From: Miles Bader <miles@gnu.org>
Date: Fri, 27 Oct 2000 01:46:13 +0000 (+0000)
Subject: (face-spec-choose): Change syntax so that the list of attribute-value
X-Git-Tag: emacs-pretest-21.0.90~524
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=073f69e6f7eeafe53d19fb29d44eb5f2bedda38d;p=emacs.git

(face-spec-choose): Change syntax so that the list of attribute-value
pairs is now the cdr of each clause, not the cadr.  Detect old-style
entries, and handle them.  Use pop.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 8252d273f85..60e8e1a49c2 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1157,12 +1157,16 @@ If SPEC is nil, return nil."
   (let ((tail spec)
 	result)
     (while tail
-      (let* ((entry (car tail))
-	     (display (nth 0 entry))
-	     (attrs (nth 1 entry)))
-	(setq tail (cdr tail))
+      (let* ((entry (pop tail))
+	     (display (car entry))
+	     (attrs (cdr entry)))
 	(when (face-spec-set-match-display display frame)
-	  (setq result attrs tail nil))))
+	  (setq result (if (listp (car attrs))
+			   ;; Old-style entry, the attribute list is the
+			   ;; first element.
+			   (car attrs)
+			 attrs)
+		tail nil))))
     result))