diff options
author | Richard M. Stallman <rms@gnu.org> | 2002-01-02 22:56:04 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2002-01-02 22:56:04 +0000 |
commit | 6fa170f69d44ddb0c3074ac75db5d01a66eefd80 (patch) | |
tree | b9b634b7fac9d97b2e6a6efc9392a7938150b14b /lisp/facemenu.el | |
parent | 723813fffeadbfec10f44145c381b2650a88a4b0 (diff) | |
download | emacs-6fa170f69d44ddb0c3074ac75db5d01a66eefd80.tar.gz |
(facemenu-active-faces):
Use face-attributes-as-vector, not face-attributes-vector.
Diffstat (limited to 'lisp/facemenu.el')
-rw-r--r-- | lisp/facemenu.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 6ad61585f97..c138e13794c 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) |