mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(byte-optimize-pure-func): Quote the

Browse source 
folded value.
This commit is contained in:
Andreas Schwab 2005-11-02 22:18:56 +00:00
parent 4cd305ac33
commit c80eca7195
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2005-11-02 Andreas Schwab <schwab@suse.de>
* emacs-lisp/byte-opt.el (byte-optimize-pure-func): Quote the
folded value.
2005-11-02 Nick Roberts <nickrob@snap.net.nz> 2005-11-02 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gdb-ui.el (gdb-mouse-until): Make it work in * progmodes/gdb-ui.el (gdb-mouse-until): Make it work in

2
lisp/emacs-lisp/byte-opt.el
View file

@ -1135,7 +1135,7 @@ of FORM by signaling the error at compile-time."
(setq constant nil)) (setq constant nil))
(setq args (cdr args))) (setq args (cdr args)))
(if constant (if constant
(cons 'quote (eval form)) (list 'quote (eval form))
form))) form)))
;; Avoid having to write forward-... with a negative arg for speed. ;; Avoid having to write forward-... with a negative arg for speed.