diff options
author | Roland McGrath <[email protected]> | 1992-12-21 18:34:22 +0000 |
---|---|---|
committer | Roland McGrath <[email protected]> | 1992-12-21 18:34:22 +0000 |
commit | a42a43055f9f5b882f1d2b8aad483fe1f37100c6 (patch) | |
tree | 17736da8573f4409f3792ad7f9c332b25662d40d | |
parent | ac21ec406ae2ec178dd477ccc08dd9e32bc532da (diff) |
(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.
-rw-r--r-- | lisp/subr.el | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 080c7c5ce4..5ae06d130e 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) |