Commit 073f69e6 authored by Miles Bader's avatar Miles Bader
Browse files

(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.
parent 4ddf0e64
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment