mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(face-default-spec, face-user-default-spec): Make defsubsts.

Browse Source
This commit is contained in:
Miles Bader 2000-10-24 01:17:23 +00:00
parent 7ae339a717
commit 94fe8a31c7
2 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2000-10-24 Miles Bader <miles@lsi.nec.co.jp>
* faces.el (face-default-spec, face-user-default-spec): Make
defsubsts.
2000-10-24 Andrew Choi <akochoi@i-cable.com>
* international/mule-conf.el (mac-roman-lower, mac-roman-upper):

16
lisp/faces.el
View File

@ -398,8 +398,6 @@ Use `face-attribute' for finer control."
(memq italic '(italic oblique))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Face documentation.
@ -1221,17 +1219,17 @@ is used. If nil or omitted, use the selected frame."
"Return t if FACE, on FRAME, matches what SPEC says it should look like."
(face-attr-match-p face (face-spec-choose spec frame) frame))
(defun face-user-default-spec (face)
"Return the user's customized face-spec for FACE, or the default if none.
If there is neither a user setting or a default for FACE, return nil."
(or (get face 'saved-face)
(get face 'face-defface-spec)))
(defun face-default-spec (face)
(defsubst face-default-spec (face)
"Return the default face-spec for FACE, ignoring any user customization.
If there is no default for FACE, return nil."
(get face 'face-defface-spec))
(defsubst face-user-default-spec (face)
"Return the user's customized face-spec for FACE, or the default if none.
If there is neither a user setting or a default for FACE, return nil."
(or (get face 'saved-face)
(face-default-spec face)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Frame-type independent color support.