mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 07:01:11 -08:00
Code Issues Projects Releases Wiki Activity

(face-id): If the argument is a face alias, return the ID of the target face.

Browse source
This commit is contained in:
Juanma Barranquero 2007-06-05 10:13:03 +00:00
parent 65fddb7472
commit b2d5aa4656
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-06-05 Juanma Barranquero <lekktu@gmail.com>
* faces.el (face-id): If the argument is a face alias,
return the ID of the target face.
2007-06-05 Michael Albinus <michael.albinus@gmx.de>
* net/socks.el (top): Remove unnecessary copyright line.

5
lisp/faces.el
View file

@ -222,11 +222,12 @@ Value is FACE."
(defun face-id (face &optional frame)
"Return the internal ID of face with name FACE.
If FACE is a face-alias, return the ID of the target face.
The optional argument FRAME is ignored, since the internal face ID
of a face name is the same for all frames."
(check-face face)
(get face 'face))
(or (get face 'face)
(face-id (get face 'face-alias))))
(defun face-equal (face1 face2 &optional frame)
"Non-nil if faces FACE1 and FACE2 are equal.