[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       06/11/28 02:22:18

Index: bytecomp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.188
retrieving revision 2.189
diff -u -b -r2.188 -r2.189
--- bytecomp.el 19 Nov 2006 15:19:39 -0000      2.188
+++ bytecomp.el 28 Nov 2006 02:22:17 -0000      2.189
@@ -2864,8 +2864,12 @@
 
 (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)))))