Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 01:34:21 +00:00
Code Issues Projects Releases Packages Wiki Activity

(face-differs-from-default-p): Compare face

Browse source 
attributes individually.
This commit is contained in:
Gerd Moellmann 1999-09-25 19:57:48 +00:00
parent d279baa8e7
commit 6904df7a9c
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/faces.el
View file

@ -219,8 +219,19 @@ A face is considered to be ``the same'' as the default face if it is
actually specified in the same way (equal attributes) or if it is
fully-unspecified, and thus inherits the attributes of any face it
is displayed on top of."
(or (internal-lisp-face-empty-p face frame)
(not (internal-lisp-face-equal-p face 'default frame))))
(cond ((eq frame t) (setq frame nil))
((null frame) (setq frame (selected-frame))))
(let* ((v1 (internal-lisp-face-p face frame))
(n (if v1 (length v1) 0))
(v2 (internal-lisp-face-p 'default frame))
(i 1))
(unless v1
(error "Not a face: %S" face))
(while (and (< i n)
(or (eq 'unspecified (aref v1 i))
(equal (aref v1 i) (aref v2 i))))
(setq i (1+ i)))
(< i n)))
(defun face-nontrivial-p (face &optional frame)