(facemenu-active-faces):

Use face-attributes-as-vector, not face-attributes-vector.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6befeb0670f..688afb62bdb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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
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)