diff options
| author | Pavel Janík <Pavel@Janik.cz> | 2001-12-22 13:36:59 +0000 |
|---|---|---|
| committer | Pavel Janík <Pavel@Janik.cz> | 2001-12-22 13:36:59 +0000 |
| commit | 5f11d42cee721667e981578f908168fe09cf847f (patch) | |
| tree | 4ee3ea2062f0dd33a36fb28e46c856534214cfa6 /lisp/emacs-lisp | |
| parent | 676927b7d8e597a75e23c26db9283d93ac0e882e (diff) | |
| download | emacs-5f11d42cee721667e981578f908168fe09cf847f.tar.gz emacs-5f11d42cee721667e981578f908168fe09cf847f.tar.bz2 emacs-5f11d42cee721667e981578f908168fe09cf847f.zip | |
(byte-optimize-form-code-walker): Remove mocklisp case.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 6 |
1 files 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)) |