diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-11-28 02:22:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-11-28 02:22:17 +0000 |
| commit | 7fb4fa10a82d1a44f69d9027a0304c4eee89db61 (patch) | |
| tree | c3c50ded0b8a02dc4517058294b372a431745116 /lisp/emacs-lisp | |
| parent | 503bc651bd1d9cfa1079023df5249ee219dc44a0 (diff) | |
| download | emacs-7fb4fa10a82d1a44f69d9027a0304c4eee89db61.tar.gz | |
(byte-compile-get-constant):
Replace incorrect use of assoc-default with a loop.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 02a88c13973..0fa2da23721 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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))))) |