Commit f790dddf authored by Richard M. Stallman's avatar Richard M. Stallman

(facemenu-active-faces):

Use face-attributes-as-vector, not face-attributes-vector.
parent edde72f6
2002-01-02 Richard M. Stallman <rms@gnu.org>
* facemenu.el (facemenu-active-faces):
Use face-attributes-as-vector, not face-attributes-vector.
2002-01-02 Eli Zaretskii <eliz@is.elta.co.il>
* bindings.el (function-key-map): Don't bind shifted keypad
......
......@@ -611,7 +611,7 @@ If the optional argument FRAME is given, use the faces in that frame; otherwise
use the selected frame. If t, then the global, non-frame faces are used."
(let* ((mask-atts (copy-sequence
(if (consp (car face-list))
(face-attribute-vector (car face-list))
(face-attributes-as-vector (car face-list))
(or (internal-lisp-face-p (car face-list) frame)
(check-face (car face-list))))))
(active-list (list (car face-list)))
......@@ -620,7 +620,7 @@ use the selected frame. If t, then the global, non-frame faces are used."
(while face-list
(if (let ((face-atts
(if (consp (car face-list))
(face-attribute-vector (car face-list))
(face-attributes-as-vector (car face-list))
(or (internal-lisp-face-p (car face-list) frame)
(check-face (car face-list)))))
(i mask-len)
......
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