From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 28 Nov 2006 02:22:17 +0000 (+0000)
Subject: (byte-compile-get-constant):
X-Git-Tag: emacs-pretest-22.0.92~423
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7fb4fa10a82d1a44f69d9027a0304c4eee89db61;p=emacs.git

(byte-compile-get-constant):
Replace incorrect use of assoc-default with a loop.
---

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)))))