[Emacs-diffs] Changes to emacs/lisp/facemenu.el

[Richard M. Stallman]

Index: emacs/lisp/facemenu.el
diff -c emacs/lisp/facemenu.el:1.55 emacs/lisp/facemenu.el:1.56
*** emacs/lisp/facemenu.el:1.55 Mon Dec  3 01:09:24 2001
--- emacs/lisp/facemenu.el      Wed Jan  2 17:56:04 2002
***************
*** 611,617 ****
  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))
                       (or (internal-lisp-face-p (car face-list) frame)
                           (check-face (car face-list))))))
         (active-list (list (car face-list)))
--- 611,617 ----
  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-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,626 ****
      (while face-list
        (if (let ((face-atts
                 (if (consp (car face-list))
!                    (face-attribute-vector (car face-list))
                   (or (internal-lisp-face-p (car face-list) frame)
                       (check-face (car face-list)))))
                (i mask-len)
--- 620,626 ----
      (while face-list
        (if (let ((face-atts
                 (if (consp (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)