/[emacs]/emacs/lisp/emacs-lisp/byte-opt.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/byte-opt.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.62 by pj, Thu Dec 20 18:50:58 2001 UTC revision 1.63 by pj, Sat Dec 22 13:36:59 2001 UTC
# Line 50  Line 50 
50  ;;   (put 'debug-on-error 'binding-is-magic t)  ;;   (put 'debug-on-error 'binding-is-magic t)
51  ;;   (put 'debug-on-abort 'binding-is-magic t)  ;;   (put 'debug-on-abort 'binding-is-magic t)
52  ;;   (put 'debug-on-next-call 'binding-is-magic t)  ;;   (put 'debug-on-next-call 'binding-is-magic t)
 ;;   (put 'mocklisp-arguments 'binding-is-magic t)  
53  ;;   (put 'inhibit-quit 'binding-is-magic t)  ;;   (put 'inhibit-quit 'binding-is-magic t)
54  ;;   (put 'quit-flag 'binding-is-magic t)  ;;   (put 'quit-flag 'binding-is-magic t)
55  ;;   (put 't 'binding-is-magic t)  ;;   (put 't 'binding-is-magic t)
# Line 520  Line 519 
519             (byte-optimize-form form for-effect))             (byte-optimize-form form for-effect))
520                        
521            ((not (symbolp fn))            ((not (symbolp fn))
522             (or (eq 'mocklisp (car-safe fn)) ; ha!             (byte-compile-warn "`%s' is a malformed function"
523                 (byte-compile-warn "`%s' is a malformed function"                                (prin1-to-string fn))
                                   (prin1-to-string fn)))  
524             form)             form)
525    
526            ((and for-effect (setq tmp (get fn 'side-effect-free))            ((and for-effect (setq tmp (get fn 'side-effect-free))

Legend:
Removed from v.1.62  
changed lines
  Added in v.1.63

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26