From 5f11d42cee721667e981578f908168fe09cf847f Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Sat, 22 Dec 2001 13:36:59 +0000 Subject: [PATCH] (byte-optimize-form-code-walker): Remove mocklisp case. --- lisp/emacs-lisp/byte-opt.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 37fe9f187e1..28112cc8201 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -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)) -- 2.39.5