Mercurial > emacs

changeset 42267:76d12dafa83d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-optimize-form-code-walker): Remove mocklisp case.
author Pavel Janík <Pavel@Janik.cz>
date Sat, 22 Dec 2001 13:36:59 +0000
parents 75bbe9d566d9
children 25a5e6273d07
files lisp/emacs-lisp/byte-opt.el
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el	Sat Dec 22 13:36:12 2001 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Sat Dec 22 13:36:59 2001 +0000
@@ -50,7 +50,6 @@
 ;;   (put 'debug-on-error 'binding-is-magic t)
 ;;   (put 'debug-on-abort 'binding-is-magic t)
 ;;   (put 'debug-on-next-call 'binding-is-magic t)
-;;   (put 'mocklisp-arguments 'binding-is-magic t)
 ;;   (put 'inhibit-quit 'binding-is-magic t)
 ;;   (put 'quit-flag 'binding-is-magic t)
 ;;   (put 't 'binding-is-magic t)
@@ -520,9 +519,8 @@
 	   (byte-optimize-form form for-effect))
 	  
 	  ((not (symbolp fn))
-	   (or (eq 'mocklisp (car-safe fn)) ; ha!
-	       (byte-compile-warn "`%s' is a malformed function"
-				  (prin1-to-string fn)))
+	   (byte-compile-warn "`%s' is a malformed function"
+			      (prin1-to-string fn))
 	   form)
 
 	  ((and for-effect (setq tmp (get fn 'side-effect-free))