emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el


From: Pavel Janík
Subject: [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/byte-opt.el
Date: Sat, 22 Dec 2001 08:37:00 -0500

Index: emacs/lisp/emacs-lisp/byte-opt.el
diff -c emacs/lisp/emacs-lisp/byte-opt.el:1.62 
emacs/lisp/emacs-lisp/byte-opt.el:1.63
*** emacs/lisp/emacs-lisp/byte-opt.el:1.62      Thu Dec 20 13:50:58 2001
--- emacs/lisp/emacs-lisp/byte-opt.el   Sat Dec 22 08:36:59 2001
***************
*** 50,56 ****
  ;;   (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)
--- 50,55 ----
***************
*** 520,528 ****
           (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)))
           form)
  
          ((and for-effect (setq tmp (get fn 'side-effect-free))
--- 519,526 ----
           (byte-optimize-form form for-effect))
          
          ((not (symbolp fn))
!          (byte-compile-warn "`%s' is a malformed function"
!                             (prin1-to-string fn))
           form)
  
          ((and for-effect (setq tmp (get fn 'side-effect-free))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]