diff options
author | Richard M. Stallman <[email protected]> | 2002-01-02 22:56:12 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2002-01-02 22:56:12 +0000 |
commit | f790dddf6d62e741a8b8a2757d45385256e00c67 (patch) | |
tree | cc5ff92cbb46307c1829978256c1067f2c1f8b69 | |
parent | edde72f6c6a14bf388d5005495793f9c3d60dbdf (diff) |
(facemenu-active-faces):
Use face-attributes-as-vector, not face-attributes-vector.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/facemenu.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6befeb0670..688afb62bd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-01-02 Richard M. Stallman <[email protected]> + + * facemenu.el (facemenu-active-faces): + Use face-attributes-as-vector, not face-attributes-vector. + 2002-01-02 Eli Zaretskii <[email protected]> * bindings.el (function-key-map): Don't bind shifted keypad diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 6ad61585f9..c138e13794 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -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) |