Lines Matching +defs:describe +defs:face
43 "Influencing face font selection."
47 (defcustom face-font-selection-order
49 "*A list specifying how face font selection chooses fonts.
53 those face attributes first that appear first in the list. For
66 (defcustom face-font-family-alternatives
82 (defcustom face-font-registry-alternatives
114 (defun face-list ()
115 "Return a list of all defined face names."
116 (mapcar #'car face-new-frame-defaults))
121 (defun make-face (face &optional no-init-from-resources)
122 "Define a new face with name FACE, a symbol.
125 in the global variable `face-x-resources'.) If FACE is already known
126 as a face, leave it unmodified. Value is FACE."
127 (interactive "SMake face: ")
128 (unless (facep face)
131 (internal-make-lisp-face face frame))
132 ;; Add the face to the face menu.
133 (when (fboundp 'facemenu-add-new-face)
134 (facemenu-add-new-face face))
137 (make-face-x-resource-internal face)))
138 face)
141 (defun make-empty-face (face)
142 "Define a new, empty face with name FACE.
143 If the face already exists, it is left unmodified. Value is FACE."
144 (interactive "SMake empty face: ")
145 (make-face face 'no-init-from-resources))
148 (defun copy-face (old-face new-face &optional frame new-frame)
149 "Define a face just like OLD-FACE, with name NEW-FACE.
151 If NEW-FACE already exists as a face, it is modified to be like
162 copy the information from face OLD-FACE on frame FRAME
168 (copy-face old-face new-face frame))
169 (copy-face old-face new-face t))
170 (internal-copy-lisp-face old-face new-face frame new-frame))
171 new-face))
182 ;; private to the face implementation.
184 (defun internal-find-face (name &optional frame)
185 "Retrieve the face named NAME.
186 Return nil if there is no such face.
187 If NAME is already a face, it is simply returned.
190 (make-obsolete 'internal-find-face 'facep "21.1")
193 (defun internal-get-face (name &optional frame)
194 "Retrieve the face named NAME; error if there is none.
195 If NAME is already a face, it is simply returned.
198 (check-face name)))
199 (make-obsolete 'internal-get-face "see `facep' and `check-face'." "21.1")
207 (defun facep (face)
208 "Return non-nil if FACE is a face name or internal face object.
209 Return nil otherwise. A face name can be a string or a symbol.
210 An internal face object is a vector of the kind used internally
211 to record face data."
212 (internal-lisp-face-p face))
215 (defun check-face (face)
216 "Signal an error if FACE doesn't name a face.
218 (unless (facep face)
219 (error "Not a face: %s" face))
220 face)
227 (defun face-id (face &optional frame)
228 "Return the internal ID of face with name FACE.
229 The optional argument FRAME is ignored, since the internal face ID
230 of a face name is the same for all frames."
231 (check-face face)
232 (get face 'face))
235 (defun face-equal (face1 face2 &optional frame)
241 (internal-lisp-face-equal-p face1 face2 frame))
244 (defun face-differs-from-default-p (face &optional frame)
245 "Return non-nil if FACE displays differently from the default face.
246 If the optional argument FRAME is given, report on face FACE in that frame.
247 If FRAME is t, report on the defaults for face FACE (for new frames).
256 (attr-val (face-attribute face attr frame t)))
259 (display-supports-face-attributes-p (list attr attr-val)
265 (defun face-nontrivial-p (face &optional frame)
266 "True if face FACE has some non-nil attribute.
267 If the optional argument FRAME is given, report on face FACE in that frame.
268 If FRAME is t, report on the defaults for face FACE (for new frames).
270 (not (internal-lisp-face-empty-p face frame)))
276 ;;; Setting face attributes from X resources.
279 (defcustom face-x-resources
299 "*List of X resources and classes for face attributes.
301 the name of a face attribute, and each ENTRY is a cons of the form
308 (defun set-face-attribute-from-resource (face attribute resource class frame)
313 (let* ((face-name (face-name face))
314 (value (internal-face-x-get-resource (concat face-name resource)
318 (internal-set-lisp-face-attribute-from-resource
319 face attribute (downcase value) frame)
322 face-name frame attribute value))))
326 (defun set-face-attributes-from-resources (face frame)
329 (dolist (definition face-x-resources)
332 (set-face-attribute-from-resource face attribute (car entry)
336 (defun make-face-x-resource-internal (face &optional frame)
341 (set-face-attributes-from-resources face frame))
342 (set-face-attributes-from-resources face frame)))
348 ;;; Retrieving face attributes.
351 (defun face-name (face)
352 "Return the name of face FACE."
353 (symbol-name (check-face face)))
356 (defun face-attribute (face attribute &optional frame inherit)
358 If the optional argument FRAME is given, report on face FACE in that frame.
359 If FRAME is t, report on the defaults for face FACE (for new frames).
367 If INHERIT is a face or a list of faces, then the result is further merged
368 with that face (or faces), until it becomes specified and absolute.
372 relative values by merging with the `default' face (which is always
374 (let ((value (internal-get-lisp-face-attribute face attribute frame)))
375 (when (and inherit (face-attribute-relative-p attribute value))
377 (let ((inh-from (face-attribute face :inherit frame)))
381 (face-attribute-merged-with attribute value inh-from frame))
386 (face-attribute-relative-p attribute value))
388 (setq value (face-attribute-merged-with attribute value inherit frame)))
391 (defun face-attribute-merged-with (attribute value faces &optional frame)
393 FACES may be either a single face or a list of faces.
395 (cond ((not (face-attribute-relative-p attribute value))
400 (face-attribute-merged-with
402 (face-attribute-merged-with attribute value (car faces) frame)
406 (merge-face-attribute attribute
408 (face-attribute faces attribute frame t)))))
411 (defmacro face-attribute-specified-or (value &rest body)
419 (defun face-foreground (face &optional frame inherit)
421 If the optional argument FRAME is given, report on face FACE in that frame.
422 If FRAME is t, report on the defaults for face FACE (for new frames).
430 If INHERIT is a face or a list of faces, then it is used to try to
435 merging with the `default' face (which is always completely specified)."
436 (face-attribute-specified-or (face-attribute face :foreground frame inherit)
439 (defun face-background (face &optional frame inherit)
441 If the optional argument FRAME is given, report on face FACE in that frame.
442 If FRAME is t, report on the defaults for face FACE (for new frames).
450 If INHERIT is a face or a list of faces, then it is used to try to
455 merging with the `default' face (which is always completely specified)."
456 (face-attribute-specified-or (face-attribute face :background frame inherit)
459 (defun face-stipple (face &optional frame inherit)
461 If the optional argument FRAME is given, report on face FACE in that frame.
462 If FRAME is t, report on the defaults for face FACE (for new frames).
470 If INHERIT is a face or a list of faces, then it is used to try to
475 with the `default' face (which is always completely specified)."
476 (face-attribute-specified-or (face-attribute face :stipple frame inherit)
480 (defalias 'face-background-pixmap 'face-stipple)
483 (defun face-underline-p (face &optional frame)
485 If the optional argument FRAME is given, report on face FACE in that frame.
486 If FRAME is t, report on the defaults for face FACE (for new frames).
488 (eq (face-attribute face :underline frame) t))
491 (defun face-inverse-video-p (face &optional frame)
493 If the optional argument FRAME is given, report on face FACE in that frame.
494 If FRAME is t, report on the defaults for face FACE (for new frames).
496 (eq (face-attribute face :inverse-video frame) t))
499 (defun face-bold-p (face &optional frame)
501 If the optional argument FRAME is given, report on face FACE in that frame.
502 If FRAME is t, report on the defaults for face FACE (for new frames).
504 Use `face-attribute' for finer control."
505 (let ((bold (face-attribute face :weight frame)))
509 (defun face-italic-p (face &optional frame)
511 If the optional argument FRAME is given, report on face FACE in that frame.
512 If FRAME is t, report on the defaults for face FACE (for new frames).
514 Use `face-attribute' for finer control."
515 (let ((italic (face-attribute face :slant frame)))
525 (defun face-documentation (face)
527 If FACE is a face-alias, get the documentation for the target face."
528 (let ((alias (get face 'face-alias))
532 (setq doc (get alias 'face-documentation))
533 (format "%s is an alias for the face `%s'.%s" face alias
536 (get face 'face-documentation))))
539 (defun set-face-documentation (face string)
542 (put face 'face-documentation (purecopy string)))
545 (defalias 'face-doc-string 'face-documentation)
546 (defalias 'set-face-doc-string 'set-face-documentation)
552 ;; Setting face attributes.
556 (defvar inhibit-face-set-after-frame-default nil
557 "If non-nil, that tells `face-set-after-frame-default' to do nothing.")
559 (defun set-face-attribute (face frame &rest args)
567 face attribute name. All attributes can be set to `unspecified';
589 scale any underlying face, or a function, which is called with the old
590 height (from the underlying face), and should return the new height.
611 VALUE is t, underline with foreground color of the face. If VALUE is
618 VALUE is t, overline with foreground color of the face. If VALUE is a
626 face. If VALUE is a string, strike-through with that color. If VALUE
634 of the face. If VALUE is a string, the string must be a color name,
643 the foreground color of the face for simple boxes, and the background
644 color of the face for 3D boxes. STYLE specifies whether a 3D box
670 Set font-related face attributes from VALUE. VALUE must be a valid
680 VALUE is the name of a face from which to inherit attributes, or a list
681 of face names. Attributes from inherited faces are merged into the face
682 like an underlying face would be, with higher priority than underlying faces."
685 ;; If we set the new-frame defaults, this face is modified outside Custom.
687 (put (or (get face 'face-alias) face) 'face-modified t))
691 (let ((inhibit-face-set-after-frame-default t))
692 (internal-set-lisp-face-attribute face (car args)
698 (defun make-face-bold (face &optional frame noerror)
700 FRAME nil or not specified means change face on all frames.
702 Use `set-face-attribute' for finer control of the font weight."
703 (interactive (list (read-face-name "Make which face bold")))
704 (set-face-attribute face frame :weight 'bold))
707 (defun make-face-unbold (face &optional frame noerror)
709 FRAME nil or not specified means change face on all frames.
711 (interactive (list (read-face-name "Make which face non-bold")))
712 (set-face-attribute face frame :weight 'normal))
715 (defun make-face-italic (face &optional frame noerror)
717 FRAME nil or not specified means change face on all frames.
719 Use `set-face-attribute' for finer control of the font slant."
720 (interactive (list (read-face-name "Make which face italic")))
721 (set-face-attribute face frame :slant 'italic))
724 (defun make-face-unitalic (face &optional frame noerror)
726 FRAME nil or not specified means change face on all frames.
728 (interactive (list (read-face-name "Make which face non-italic")))
729 (set-face-attribute face frame :slant 'normal))
732 (defun make-face-bold-italic (face &optional frame noerror)
734 FRAME nil or not specified means change face on all frames.
736 Use `set-face-attribute' for finer control of font weight and slant."
737 (interactive (list (read-face-name "Make which face bold-italic")))
738 (set-face-attribute face frame :weight 'bold :slant 'italic))
741 (defun set-face-font (face font &optional frame)
743 FRAME nil or not specified means change face on all frames.
745 and `:slant'. When called interactively, prompt for the face and font."
746 (interactive (read-face-and-attribute :font))
747 (set-face-attribute face frame :font font))
751 ;; stipple pattern is now part of the face realization process, and is
752 ;; done in C depending on the frame on which the face is realized.
754 (defun set-face-background (face color &optional frame)
755 "Change the background color of face FACE to COLOR (a string).
756 FRAME nil or not specified means change face on all frames.
759 When called interactively, prompts for the face and color."
760 (interactive (read-face-and-attribute :background))
761 (set-face-attribute face frame :background (or color 'unspecified)))
764 (defun set-face-foreground (face color &optional frame)
765 "Change the foreground color of face FACE to COLOR (a string).
766 FRAME nil or not specified means change face on all frames.
769 When called interactively, prompts for the face and color."
770 (interactive (read-face-and-attribute :foreground))
771 (set-face-attribute face frame :foreground (or color 'unspecified)))
774 (defun set-face-stipple (face stipple &optional frame)
775 "Change the stipple pixmap of face FACE to STIPPLE.
776 FRAME nil or not specified means change face on all frames.
783 (interactive (read-face-and-attribute :stipple))
784 (set-face-attribute face frame :stipple (or stipple 'unspecified)))
787 (defun set-face-underline-p (face underline &optional frame)
788 "Specify whether face FACE is underlined.
793 FRAME nil or not specified means change face on all frames.
794 Use `set-face-attribute' to ``unspecify'' underlining."
796 (let ((list (read-face-and-attribute :underline)))
798 (set-face-attribute face frame :underline underline))
800 (define-obsolete-function-alias 'set-face-underline
801 'set-face-underline-p "22.1")
804 (defun set-face-inverse-video-p (face inverse-video-p &optional frame)
805 "Specify whether face FACE is in inverse video.
808 FRAME nil or not specified means change face on all frames.
809 Use `set-face-attribute' to ``unspecify'' the inverse video attribute."
811 (let ((list (read-face-and-attribute :inverse-video)))
813 (set-face-attribute face frame :inverse-video inverse-video-p))
816 (defun set-face-bold-p (face bold-p &optional frame)
817 "Specify whether face FACE is bold.
820 FRAME nil or not specified means change face on all frames.
821 Use `set-face-attribute' or `modify-face' for finer control."
823 (make-face-unbold face frame)
824 (make-face-bold face frame)))
827 (defun set-face-italic-p (face italic-p &optional frame)
828 "Specify whether face FACE is italic.
831 FRAME nil or not specified means change face on all frames.
832 Use `set-face-attribute' or `modify-face' for finer control."
834 (make-face-unitalic face frame)
835 (make-face-italic face frame)))
838 (defalias 'set-face-background-pixmap 'set-face-stipple)
841 (defun invert-face (face &optional frame)
843 If FRAME is omitted or nil, it means change face on all frames.
846 of the default face. Value is FACE."
847 (interactive (list (read-face-name "Invert face")))
848 (let ((fg (face-attribute face :foreground frame))
849 (bg (face-attribute face :background frame)))
851 (set-face-attribute face frame :foreground bg :background fg)
852 (set-face-attribute face frame
854 (face-attribute 'default :background frame)
856 (face-attribute 'default :foreground frame))))
857 face)
865 (defun read-face-name (prompt &optional string-describing-default multiple)
866 "Read a face, defaulting to the face or faces on the char after point.
867 If it has the property `read-face-name', that overrides the `face' property.
868 PROMPT should be a string that describes what the caller will do with the face;
870 STRING-DESCRIBING-DEFAULT should describe what default the caller will use if
873 Otherwise, return a single face."
874 (let ((faceprop (or (get-char-property (point) 'read-face-name)
875 (get-char-property (point) 'face)))
879 ;; Try to get a face name from the buffer.
880 (if (memq (intern-soft (thing-at-point 'symbol)) (face-list))
882 ;; Add the named faces that the `face' property uses.
897 (if (get s 'face-alias)
927 ;; Return either a list of faces or just one face.
933 (defun face-valid-attribute-values (attribute &optional frame)
934 "Return valid values for face attribute ATTRIBUTE.
950 (internal-lisp-face-attribute-values attribute)))
954 (internal-lisp-face-attribute-values attribute))
958 (internal-lisp-face-attribute-values attribute))))
976 (face-list))))
984 (defvar face-attribute-name-alist
999 "An alist of descriptive names for face attributes.
1001 ATTRIBUTE-NAME is a face attribute name (a keyword symbol), and
1005 (defun face-descriptive-attribute-name (attribute)
1007 (cdr (assq attribute face-attribute-name-alist)))
1010 (defun face-read-string (face default name &optional completion-alist)
1011 "Interactively read a face attribute string value.
1012 FACE is the face whose attribute is read. If non-nil, DEFAULT is the
1025 (format "%s for face `%s' (default %s): "
1026 name face default)
1027 (format "%s for face `%s': " name face))
1032 (defun face-read-integer (face default name)
1033 "Interactively read an integer face attribute value.
1034 FACE is the face whose attribute is read. DEFAULT is the default
1038 (face-read-string face
1050 (defun read-face-attribute (face attribute &optional frame)
1053 of a global face. Value is the new attribute value."
1054 (let* ((old-value (face-attribute face attribute frame))
1055 (attribute-name (face-descriptive-attribute-name attribute))
1056 (valid (face-valid-attribute-values attribute frame))
1072 (face-read-string face default attribute-name valid))
1091 (setq new-value (face-read-integer face old-value attribute-name)))
1104 (defun read-face-font (face &optional frame)
1108 (completing-read (format "Set font attributes of face `%s' from font: " face)
1112 (defun read-all-face-attributes (face &optional frame)
1117 (dolist (attribute face-attribute-name-alist result)
1119 (cons (read-face-attribute face (car attribute) frame)
1122 (defun modify-face (&optional face foreground background stipple
1125 If optional argument FRAME is nil or omitted, modify the face used
1126 for newly created frame, i.e. the global face.
1127 For non-interactive use, `set-face-attribute' is preferred.
1129 and the face and its settings are obtained by querying the user."
1131 (if face
1132 (set-face-attribute face frame
1140 (setq face (read-face-name "Modify face"))
1141 (apply #'set-face-attribute face frame
1142 (read-all-face-attributes face frame))))
1144 (defun read-face-and-attribute (attribute &optional frame)
1145 "Read face name and face attribute value.
1147 FRAME nil or unspecified means read attribute value of global face.
1148 Value is a list (FACE NEW-VALUE) where FACE is the face read
1151 (let* ((prompt "Set font-related attributes of face")
1152 (face (read-face-name prompt))
1153 (font (read-face-font face frame)))
1154 (list face font)))
1156 (let* ((attribute-name (face-descriptive-attribute-name attribute))
1157 (prompt (format "Set %s of face" attribute-name))
1158 (face (read-face-name prompt))
1159 (new-value (read-face-attribute face attribute frame)))
1160 (list face new-value)))))
1192 disp-frame window face-name)
1201 (sort (face-list) #'string-lessp))))
1215 "\\[help-follow] on a face name to customize it\n"
1216 "or on its sample text for a description of the face.\n\n")))
1218 (dolist (face faces)
1219 (setq face-name (symbol-name face))
1220 (insert (format line-format face-name))
1221 ;; Hyperlink to a customization buffer for the face. Using
1225 (search-backward face-name)
1227 (help-xref-button 0 'help-customize-face face)))
1231 ;; Hyperlink to a help buffer for the face.
1235 (help-xref-button 0 'help-face face)))
1237 (put-text-property beg (1- (point)) 'face face)
1238 ;; Make all face commands default to the proper face
1240 (put-text-property line-beg (1- (point)) 'read-face-name face)
1250 ;; copy all the face definitions from FRAME,
1256 (let ((faces (face-list)))
1258 (copy-face (car faces) (car faces) frame disp-frame)
1262 (defun describe-face (face &optional frame)
1263 "Display the properties of face FACE on FRAME.
1267 If the optional argument FRAME is given, report on face FACE in that frame.
1268 If FRAME is t, report on the defaults for face FACE (for new frames).
1270 (interactive (list (read-face-name "Describe face" "= `default' face" t)))
1288 (help-setup-xref (list #'describe-face face) (interactive-p))
1289 (unless face
1290 (setq face 'default))
1291 (if (not (listp face))
1292 (setq face (list face)))
1296 (dolist (f face)
1299 (insert " undefined face.\n")
1300 (let ((customize-label "customize this face")
1302 (insert (concat " (" (propertize "sample" 'font-lock-face f) ")"))
1305 (or (face-documentation f)
1306 "Not documented as a face.")
1312 (help-xref-button 1 'help-customize-face f)))
1313 ;; The next 4 sexps are copied from describe-function-1
1316 (setq file-name (describe-simplify-lib-file-name file-name))
1324 (help-xref-button 1 'help-face-def f file-name))
1329 (let ((attr (face-attribute f (car a) frame)))
1334 ;; Make a hyperlink to the parent face.
1337 (help-xref-button 1 'help-face attr)))
1349 ;; face implementation.
1351 (defun face-attr-construct (face &optional frame)
1354 face attributes of FACE where ATTRIBUTE is the attribute name and
1357 (dolist (entry face-attribute-name-alist result)
1359 (value (face-attribute face attribute)))
1364 (defun face-spec-set-match-display (display frame)
1408 (display-supports-face-attributes-p options frame))
1414 (defun face-spec-choose (spec &optional frame)
1439 (when (face-spec-set-match-display display frame)
1445 (defun face-spec-reset-face (face &optional frame)
1447 (let ((attrs face-attribute-name-alist))
1450 (set-face-attribute face frame (car attr-and-name) 'unspecified))
1454 (defun face-spec-set (face spec &optional frame)
1456 FRAME is the frame whose frame-local face is set. FRAME nil means
1459 (let ((attrs (face-spec-choose spec frame)))
1461 (face-spec-reset-face face frame))
1470 ;; Compatibility with 20.x. Some bogus face specs seem to
1473 (t (unless (assq attribute face-x-resources)
1476 (set-face-attribute face frame attribute value)))
1478 ;; When we reset the face based on its spec, then it is unmodified
1481 (put (or (get face 'face-alias) face) 'face-modified nil)))
1484 (defun face-attr-match-p (face attrs &optional frame)
1490 (let ((list face-attribute-name-alist)
1498 (value-now (face-attribute face attr frame)))
1503 (defun face-spec-match-p (face spec &optional frame)
1505 (face-attr-match-p face (face-spec-choose spec frame) frame))
1507 (defsubst face-default-spec (face)
1508 "Return the default face-spec for FACE, ignoring any user customization.
1510 (get face 'face-defface-spec))
1512 (defsubst face-user-default-spec (face)
1513 "Return the user's customized face-spec for FACE, or the default if none.
1515 (or (get face 'customized-face)
1516 (get face 'saved-face)
1517 (face-default-spec face)))
1657 ;; faces that don't match what their face-spec says they should
1661 (dolist (face (face-list))
1662 (when (not (face-spec-match-p face
1663 (face-user-default-spec face)
1665 (push face locally-modified-faces)))
1670 ;; For all named faces, choose face specs matching the new frame
1672 (dolist (face (face-list))
1673 (unless (memq face locally-modified-faces)
1674 (face-spec-set face (face-user-default-spec face) frame)))))))
1746 (face-set-after-frame-default frame)
1755 (defun face-set-after-frame-default (frame)
1756 "Set frame-local faces of FRAME from face specs and resources.
1758 (unless inhibit-face-set-after-frame-default
1759 (if (face-attribute 'default :font t)
1760 (set-face-attribute 'default frame :font
1761 (face-attribute 'default :font t))
1762 (set-face-attribute 'default frame :family
1763 (face-attribute 'default :family t))
1764 (set-face-attribute 'default frame :height
1765 (face-attribute 'default :height t))
1766 (set-face-attribute 'default frame :slant
1767 (face-attribute 'default :slant t))
1768 (set-face-attribute 'default frame :weight
1769 (face-attribute 'default :weight t))
1770 (set-face-attribute 'default frame :width
1771 (face-attribute 'default :width t))))
1773 (let ((face-params '((foreground-color default :foreground)
1781 (dolist (param face-params)
1783 (face (nth 1 param))
1785 (default-value (face-attribute face attr t)))
1786 ;; Compile a list of face attributes to set, but don't set
1787 ;; them yet. The call to make-face-x-resource-internal,
1791 ;; The face spec does not specify a new-frame value for
1795 (push (list face frame attr value) apply-params))
1796 ;; The face spec specifies a value for this attribute, to be
1797 ;; applied to the face on all new frames.
1798 (push (list face frame attr default-value) apply-params))))
1799 ;; Initialize faces from face specs and X resources. The
1802 (dolist (face (delq 'default (face-list)))
1805 (face-spec-set face (face-user-default-spec face) frame)
1807 (make-face-x-resource-internal face frame))
1808 (internal-merge-in-global-face face frame))
1811 ;; rewrites parameters changed by make-face-x-resource-internal
1813 (apply 'set-face-attribute param))))
1845 (face-set-after-frame-default frame)
1858 (face-set-after-frame-default frame)))
1876 (define-obsolete-function-alias 'frame-update-face-colors
1891 "Basic default face."
1896 "Basic bold face."
1909 "Basic italic face."
1914 "Basic bold-italic face."
1923 "Basic underlined face."
1928 "The basic fixed-pitch face."
1933 "The basic variable-pitch face."
1945 "Basic face for shadowed text."
1959 "Basic face for unvisited links."
1967 "Basic face for visited links."
1983 "Basic face for highlighting."
2000 "Basic face for highlighting the region."
2016 "Basic face for displaying the secondary selection."
2025 "Basic face for highlighting trailing whitespace."
2062 "Basic mode line face for selected window."
2078 "Basic mode line face for non-selected windows."
2088 "Basic mode line face for highlighting."
2101 (put 'modeline 'face-alias 'mode-line)
2102 (put 'modeline-inactive 'face-alias 'mode-line-inactive)
2103 (put 'modeline-highlight 'face-alias 'mode-line-highlight)
2104 (put 'modeline-buffer-id 'face-alias 'mode-line-buffer-id)
2113 ;; the window-system face variants, which deemphasize the
2114 ;; header-line in relation to the mode-line face. If a terminal
2137 "Basic header-line face."
2154 By default, Emacs automatically adds this face to the value of
2161 (append minibuffer-prompt-properties (list 'face 'minibuffer-prompt)))
2170 "Basic face for the fringes to the left and right of windows under X."
2176 "Basic face for the scroll bar colors under X."
2182 "Basic face for the frame border under X."
2188 "Basic face for the cursor color under X.
2189 Note: Other faces cannot inherit from the cursor face."
2194 (put 'cursor 'face-no-inherit t)
2197 "Basic face for the mouse color under X."
2210 "Basic tool-bar face."
2221 "Basic face for the font and colors of the menu bar and popup menus."
2234 ;; functions are not used in the face implementation itself.
2284 (defun x-resolve-font-name (pattern &optional face frame)
2291 (or (symbolp face)
2292 (setq face (face-name face)))
2296 ;; Note that x-list-fonts has code to handle a face with nil as its font.
2297 (let ((fonts (x-list-fonts pattern face frame 1)))
2299 (if face
2301 (if (null (face-font face))
2303 (error "No matching fonts are the same height as face `%s'" face))
2304 (if (null (face-font face))
2307 (error "Height of font `%s' doesn't match face `%s'"
2308 pattern face)))
2333 (make-obsolete 'x-frob-font-weight 'make-face-... "21.1")
2354 (make-obsolete 'x-frob-font-slant 'make-face-... "21.1")
2365 (make-obsolete 'x-make-font-bold 'make-face-bold "21.1")
2371 (make-obsolete 'x-make-font-demibold 'make-face-bold "21.1")
2377 (make-obsolete 'x-make-font-unbold 'make-face-unbold "21.1")
2383 (make-obsolete 'x-make-font-italic 'make-face-italic "21.1")
2389 (make-obsolete 'x-make-font-oblique 'make-face-italic "21.1")
2395 (make-obsolete 'x-make-font-unitalic 'make-face-unitalic "21.1")
2402 (make-obsolete 'x-make-font-bold-italic 'make-face-bold-italic "21.1")