mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

(byte-compile-get-constant):

Browse Source 
Replace incorrect use of assoc-default with a loop.
This commit is contained in:
Richard M. Stallman 2006-11-28 02:22:17 +00:00
parent 503bc651bd
commit 7fb4fa10a8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/emacs-lisp/bytecomp.el
View File

@ -2864,8 +2864,12 @@ That command is designed for interactive use only" fn))
(defmacro byte-compile-get-constant (const)
`(or (if (stringp ,const)
(assoc-default ,const byte-compile-constants
'equal-including-properties nil)
;; In a string constant, treat properties as significant.
(let (result)
(dolist (elt byte-compile-constants)
(if (equal-including-properties (car elt) ,const)
(setq result elt)))
result)
(assq ,const byte-compile-constants))
(car (setq byte-compile-constants
(cons (list ,const) byte-compile-constants)))))