(ignore): Use defun instead of fset to define; the byte compiler is smart

enough now not to compile this trivial function into slow byte code.

1 files changed, 3 insertions, 8 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index 080c7c5ce4b..5ae06d130ef 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -203,15 +203,10 @@ in KEYMAP as NEWDEF those chars which are defined as OLDDEF in OLDMAP."
            (cons 'progn body)
            (list 'store-match-data original)))))
 
-;; Avoids useless byte-compilation.
-;; In the future, would be better to fix byte compiler
-;; not to really compile in cases like this,
-;; and use defun here.
-(fset 'ignore '(lambda (&rest ignore) 
-                 "Do nothing.
+(defun ignore (&rest ignore) 
+  "Do nothing.
 Accept any number of arguments, but ignore them."
-                 nil))
-
+  nil)
 
 ; old names
 (fset 'make-syntax-table 'copy-syntax-table)