mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(facemenu-active-faces):

Browse Source 
Use face-attributes-as-vector, not face-attributes-vector.
This commit is contained in:
Richard M. Stallman 2002-01-02 22:56:12 +00:00
parent edde72f6c6
commit f790dddf6d
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

4
lisp/facemenu.el
View File

@ -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)