# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 972611173 0
# Node ID 80681aca08597a84d9c56d37d46552e9adf00e50
# Parent  c8119677d63e97bf6f584535bb3190a6a769a4d6
(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 -r c8119677d63e -r 80681aca0859 lisp/faces.el
--- a/lisp/faces.el	Fri Oct 27 01:36:40 2000 +0000
+++ b/lisp/faces.el	Fri Oct 27 01:46:13 2000 +0000
@@ -1157,12 +1157,16 @@
   (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))