From 7dbea39c16ba39222c345befdbbc2c627b207d21 Mon Sep 17 00:00:00 2001 From: BT Templeton Date: Tue, 10 Jul 2012 19:06:33 -0400 Subject: [PATCH] remove unused `defalias' function * src/lread.c [NOTDEF] (defalias): Remove unused function. --- src/lread.c | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/src/lread.c b/src/lread.c index 5cf5553eca..a9bb431e2c 100644 --- a/src/lread.c +++ b/src/lread.c @@ -4093,16 +4093,6 @@ defsubr (struct Lisp_Subr *sname) set_symbol_function (sym, tem); } -#ifdef NOTDEF /* Use fset in subr.el now! */ -void -defalias (struct Lisp_Subr *sname, char *string) -{ - Lisp_Object sym; - sym = intern (string); - XSETSUBR (XSYMBOL (sym)->function, sname); -} -#endif /* NOTDEF */ - /* Define an "integer variable"; a symbol whose value is forwarded to a C variable of type EMACS_INT. Sample call (with "xx" to fool make-docfile): DEFxxVAR_INT ("emacs-priority", &emacs_priority, "Documentation"); */ -- 2.20.1