;ELC ;;; Compiled by rms@psilocin.ai.mit.edu on Tue Aug 11 11:00:57 1998 ;;; from file /gd/gnu/emacs/lisp/faces.el ;;; in Emacs version 20.2.98.3 ;;; with bytecomp version 2.48 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`faces.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'internal-facep #[(x) "\301!\205G\302U\205\303H\304=\207" [x vectorp 12 0 face] 2]) (put 'internal-facep 'byte-optimizer 'byte-compile-inline-expand) #@58 Return t if X is a face name or an internal face vector. (defalias 'facep #[(x) "\302!\205G\303U\205\304H\305=)\204#9\205$ \236\205$\306\207" [x global-face-data vectorp 12 0 face t] 2 (#$ . 765)]) (defalias 'internal-check-face '(macro . #[(face) "\301\302D\303\304\305\306EEE\207" [face or internal-facep signal 'wrong-type-argument list 'internal-facep] 7])) #@31 Return the name of face FACE. (defalias 'face-name #[(face) "\301!\302H\207" [face internal-get-face 1] 2 (#$ . 1149)]) #@45 Return the internal ID number of face FACE. (defalias 'face-id #[(face) "\301!\302H\207" [face internal-get-face 2] 2 (#$ . 1276)]) #@367 Return the font name of face FACE, or nil if it is unspecified. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). The font default for a face is either nil, or a list of the form (bold), (italic) or (bold italic). If FRAME is omitted or nil, use the selected frame. (defalias 'face-font #[(face &optional frame) "\302 \"\303H\207" [face frame internal-get-face 3] 3 (#$ . 1416)]) #@269 Return the foreground color name of face FACE, or nil if unspecified. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame. (defalias 'face-foreground #[(face &optional frame) "\302 \"\303H\207" [face frame internal-get-face 4] 3 (#$ . 1904)]) #@269 Return the background color name of face FACE, or nil if unspecified. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame. (defalias 'face-background #[(face &optional frame) "\302 \"\303H\207" [face frame internal-get-face 5] 3 (#$ . 2300)]) #@267 Return the stipple pixmap name of face FACE, or nil if unspecified. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame. (defalias 'face-stipple #[(face &optional frame) "\302 \"\303H\207" [face frame internal-get-face 6] 3 (#$ . 2696)]) (defalias 'face-background-pixmap 'face-stipple) #@236 Return t if face FACE is underlined. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame. (defalias 'face-underline-p #[(face &optional frame) "\302 \"\303H\207" [face frame internal-get-face 7] 3 (#$ . 3136)]) #@242 Return t if face FACE is in inverse video. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame. (defalias 'face-inverse-video-p #[(face &optional frame) "\302 \"\303H\207" [face frame internal-get-face 8] 3 (#$ . 3500)]) #@62 Return non-nil if this face's font was explicitly specified. (defalias 'face-font-explicit #[(face &optional frame) "\302 \"\303H\207" [face frame internal-get-face 9] 3 (#$ . 3873)]) #@243 Return non-nil if the font of FACE is bold. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame. (defalias 'face-bold-p #[(face &optional frame) "\302 \"\303H\207" [face frame internal-get-face 10] 3 (#$ . 4065)]) #@245 Return non-nil if the font of FACE is italic. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame. (defalias 'face-italic-p #[(face &optional frame) "\302 \"\303H\207" [face frame internal-get-face 11] 3 (#$ . 4432)]) (defalias 'face-doc-string 'face-documentation) #@40 Get the documentation string for FACE. (defalias 'face-documentation #[(face) "\301N\207" [face face-documentation] 2 (#$ . 4850)]) #@150 Change the font of face FACE to FONT (a string). If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-font #[(face font &optional frame) ";\203 \304=\204\305!\206\306\307\n#\310 \300\311\n%\210\310 \312??\313\n%\207" [font window-system frame face w32 resolve-fontset-name x-resolve-font-name default internal-set-face-1 3 nil 9] 6 (#$ . 4990) (internal-face-interactive "font")]) #@306 Change the font of face FACE to FONT (a string), for an automatic change. An automatic change means that we don't change the "explicit" flag; if the font was derived from the frame font before, it is now. If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-font-auto #[(face font &optional frame) ";\203 \304=\204\305!\206\306\307\n#\310 \300\311\n%\207" [font window-system frame face w32 resolve-fontset-name x-resolve-font-name default internal-set-face-1 3] 6 (#$ . 5457) (internal-face-interactive "font")]) #@150 Set the explicit-font flag of face FACE to FLAG. If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-font-explicit #[(face flag &optional frame) "\303\304 \305\n%\207" [face flag frame internal-set-face-1 nil 9] 6 (#$ . 6056)]) #@163 Change the foreground color of face FACE to COLOR (a string). If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-foreground #[(face color &optional frame) "\303\304 \305\n%\207" [face color frame internal-set-face-1 foreground 4] 6 (#$ . 6360) (byte-code "\300\301\302\"\207" [internal-face-interactive "foreground" color] 3)]) #@223 Default stipple pattern used on monochrome displays. This stipple pattern is used on monochrome displays instead of shades of gray for a face background color. See `set-face-stipple' for possible values for this variable. (defvar face-default-stipple "gray3" (#$ . 6765)) #@130 Return t if COLOR is a shade of gray (or white or black). FRAME specifies the frame and thus the display for interpreting COLOR. (defalias 'face-color-gray-p #[(color &optional frame) "\306 \"\211@\nA@\307\n8\n\205M\310 \fZ!\311\310 !]\310\f!]\312\245W\205M\310\f Z!\311\310\f!]\310 !]\312\245W\205M\310 Z!\311\310 !]\310 !]\312\245W,\207" [color frame values r g b x-color-values 2 abs 1 20] 5 (#$ . 7044)]) #@163 Change the background color of face FACE to COLOR (a string). If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-background #[(face color &optional frame) "\203\305=\204 \203\306 \307#\204\310\n #\207\204@\311 \211\2037\312\313\n! \f@#\210\fA\211\204'\312\n \305#\210 )\207\314\n\315 \316%\207" [frame color face face-default-stipple frames t face-color-supported-p nil set-face-stipple frame-list set-face-background face-name internal-set-face-1 background 5] 7 (#$ . 7469) (byte-code "\300\301\302\"\207" [internal-face-interactive "background" color] 3)]) #@467 Change the stipple pixmap of face FACE to PIXMAP. PIXMAP should be a string, the name of a file of pixmap data. The directories listed in the `x-bitmap-file-path' variable are searched. Alternatively, PIXMAP may be a list of the form (WIDTH HEIGHT DATA) where WIDTH and HEIGHT are the size in pixels, and DATA is a string, containing the raw bits of the bitmap. If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-stipple #[(face pixmap &optional frame) "\303\304 \305\n%\207" [face pixmap frame internal-set-face-1 background-pixmap 6] 6 (#$ . 8124) (internal-face-interactive-stipple "stipple")]) (defalias 'set-face-background-pixmap 'set-face-stipple) #@176 Specify whether face FACE is underlined. (Yes if UNDERLINE-P is non-nil.) If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-underline-p #[(face underline-p &optional frame) "\303\304 \305\n%\207" [face underline-p frame internal-set-face-1 underline 7] 6 (#$ . 8860) (internal-face-interactive "underline-p" "underlined")]) #@185 Specify whether face FACE is in inverse video. (Yes if INVERSE-VIDEO-P is non-nil.) If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-inverse-video-p #[(face inverse-video-p &optional frame) "\303\304 \305\n%\207" [face inverse-video-p frame internal-set-face-1 inverse-video 8] 6 (#$ . 9263) (internal-face-interactive "inverse-video-p" "inverse-video")]) #@165 Specify whether face FACE is bold. (Yes if BOLD-P is non-nil.) If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-bold-p #[(face bold-p &optional frame) "\303=\203\f\304 \n\305#\207\306 \n\305#\207" [bold-p face frame nil make-face-unbold t make-face-bold] 4 (#$ . 9698)]) #@169 Specify whether face FACE is italic. (Yes if ITALIC-P is non-nil.) If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-italic-p #[(face italic-p &optional frame) "\303=\203\f\304 \n\305#\207\306 \n\305#\207" [italic-p face frame nil make-face-unitalic t make-face-italic] 4 (#$ . 10050)]) (defalias 'set-face-doc-string 'set-face-documentation) #@50 Set the documentation string for FACE to STRING. (defalias 'set-face-documentation #[(face string) "\302\303 #\207" [face string put face-documentation] 4 (#$ . 10472)]) (defalias 'modify-face-read-string #[(face default name alist) "\305\203\306\307 \n\227$\202\306\310 \n# \"\211\311\232\203!\312\202,\f\313\232\203+\202,\f)\207" [default face name alist value completing-read format "Set face %s %s (default %s): " "Set face %s %s: " "none" nil ""] 7]) #@715 Change the display attributes for face FACE. If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. FOREGROUND and BACKGROUND should be a colour name string (or list of strings to try) or nil. STIPPLE should be a stipple pattern name string or nil. If nil, means do not change the display attribute corresponding to that arg. BOLD-P, ITALIC-P, UNDERLINE-P, and INVERSE-P specify whether the face should be set bold, italic, underlined or in inverse-video, respectively. If one of these arguments is neither nil or t, it means do not change the display attribute corresponding to that argument. If called interactively, prompts for a face name and face attributes. (defalias 'modify-face #[(face foreground background stipple bold-p italic-p underline-p &optional inverse-p frame) "\204 \203\306\n!\203\307\n\310 #\210\f\311>\204\312\310\313\314\217\210\310\315\316\217\210\310\317\320\217\210\f\321>\2037\307\n\f #\210 \310=\203M\322\n \"\203Y\323\n \312#\210\202Y \312=\203Y\324\n \312#\210\310=\203p\322\n \"\203}\325\n \312#\210\202}\312=\203}\326\n \312#\210\327>\203\213\330\n #\210t\205\221\331 \207" [foreground background face frame inverse-p bold-p face-inverse-video-p set-face-inverse-video-p nil (t nil) t (byte-code "\303\304 \n$\207" [face foreground frame face-try-color-list set-face-foreground] 5) ((error)) (byte-code "\303\304 \n$\207" [face background frame face-try-color-list set-face-background] 5) ((error)) (set-face-stipple face stipple frame) ((error)) (nil t) face-font make-face-unbold make-face-bold make-face-unitalic make-face-italic (nil t) set-face-underline-p redraw-display italic-p underline-p] 4 (#$ . 10948) (let* ((completion-ignore-case t) (face (symbol-name (read-face-name "Modify face: "))) (colors (mapcar 'list x-colors)) (stipples (mapcar 'list (apply 'nconc (mapcar 'directory-files x-bitmap-file-path)))) (foreground (modify-face-read-string face (face-foreground (intern face)) "foreground" colors)) (background (modify-face-read-string face (face-background (intern face)) "background" colors)) (old-stipple-string (if (stringp (face-stipple (intern face))) (face-stipple (intern face)) (if (face-stipple (intern face)) (prin1-to-string (face-stipple (intern face)))))) (new-stipple-string (modify-face-read-string face old-stipple-string "stipple" stipples)) (stipple (and new-stipple-string (if (string-match "^(" new-stipple-string) (read new-stipple-string) new-stipple-string))) (bold-p (y-or-n-p (concat "Should face " face " be bold "))) (italic-p (y-or-n-p (concat "Should face " face " be italic "))) (underline-p (y-or-n-p (concat "Should face " face " be underlined "))) (inverse-p (y-or-n-p (concat "Should face " face " be inverse-video "))) (all-frames-p (y-or-n-p (concat "Modify face " face " in all frames ")))) (message "Face %s: %s" face (mapconcat 'identity (delq nil (list (and foreground (concat (downcase foreground) " foreground")) (and background (concat (downcase background) " background")) (and stipple (concat (downcase new-stipple-string) " stipple")) (and bold-p "bold") (and italic-p "italic") (and inverse-p "inverse") (and underline-p "underline"))) ", ")) (list (intern face) foreground background stipple bold-p italic-p underline-p inverse-p (if all-frames-p nil (selected-frame))))]) #@200 Internal data for face support functions. Not for external use. This is an alist associating face names with the default values for their parameters. Newly created frames get their data from here. (defvar global-face-data nil (#$ . 14309)) #@43 Returns a list of all defined face names. (defalias 'face-list #[nil "\301\302\"\207" [global-face-data mapcar car] 3 (#$ . 14557)]) #@310 Retrieve the face named NAME. Return nil if there is no such face. If the optional argument FRAME is given, this gets the face NAME for that frame; otherwise, it uses the selected frame. If FRAME is the symbol t, then the global, non-frame face is returned. If NAME is already a face, it is simply returned. (defalias 'internal-find-face #[(name &optional frame) "\303=\203 9\204\304 ! 9\203* \303=\203\n\202'\305\206&\306 !\236A\207\307 !\2047\310\311\307 D\"\210 \207" [frame name global-face-data t face-name frame-face-alist selected-frame internal-facep signal wrong-type-argument] 4 (#$ . 14698)]) #@296 Retrieve the face named NAME; error if there is none. If the optional argument FRAME is given, this gets the face NAME for that frame; otherwise, it uses the selected frame. If FRAME is the symbol t, then the global, non-frame face is returned. If NAME is already a face, it is simply returned. (defalias 'internal-get-face #[(name &optional frame) "\303 \"\206%\304\n!\205\nG\305U\205\n\306H\307=)\206%\310\311\312D\"\207" [name frame x internal-find-face vectorp 12 0 face signal wrong-type-argument internal-facep] 4 (#$ . 15324)]) (defalias 'internal-set-face-1 #[(face name value index frame) "\306 \2049\307 \211\203 \310\311 !\f \n@%\210\nA\211\204 \312 9\203* \202-\311 !\306\" I\210 )\202w\312 \" \306=\204p\f\313=\203] H=\204p\314 \"\210\202p\f\203p\315\316!\203p\316\317 !\f $\210 I))\207" [inhibit-quit frame frames face name value t frame-list internal-set-face-1 face-name internal-get-face inverse-video invert-face fboundp set-face-attribute-internal face-id index internal-face] 7]) (defalias 'read-face-name #[(prompt) "\302\302G\303U\203\304 \305\306\307 \"\302\310$\211\202\311!)\207" [face prompt nil 0 completing-read mapcar #[(x) "\301!C\207" [x symbol-name] 2] face-list t intern] 6]) (defalias 'internal-face-interactive #[(what &optional bool) "\306\307P!\310\311Q\312\n\313P!\314 !\205$ \315 \"\206$ \304\315 \"\316\317=\203E\320\n\321\322 !\323R\324\325\"\316\211\211\211\f&\202e\203Y\326\327\322 !\330\331\260!\202e\332\n\321\322 !\323R\316\211\f$ \333\232?\205o -D\207" [what fn prompt face default value intern "face-" "Set " " of face" read-face-name ": " fboundp selected-frame nil color completing-read " " symbol-name " to: " mapcar #[(color) "\211B\207" [color] 2] y-or-n-p "Should face " " be " "? " read-string "" bool x-colors] 8]) (defalias 'internal-face-interactive-stipple #[(what) "\306\307P!\310\311Q\312\n\313P!\314 !\205$ \315 \"\206$ \304\315 \"\316 !;\2032\316 !\202=\316 !\205=\317\316 !!\320\n\321\322 !\323R \"\324\325\"\203Y\326!\202[ \327\232?\205h.D\207" [what fn prompt face default old-stipple-string intern "face-" "Set " " of face" read-face-name ": " fboundp selected-frame face-stipple prin1-to-string read-string " " symbol-name " to: " string-match "^(" read "" new-stipple-string stipple] 5]) #@270 Define a new FACE on all frames. You can modify the font, color, etc of this face with the set-face- functions. If NO-RESOURCES is non-nil, then we ignore X resources and always make a face whose attributes are all nil. If the face already exists, it is unmodified. (defalias 'make-face #[(name &optional no-resources) "\306!\204h\307\310\311\"\211\312\301I\210 \313I\210\314 \315\316 \317\320!\203'\320\f!\210 \321\fI\210\n\203F\322\n@\323 !B\324\n@!B\"\210\nA\211\2040 B B+\204]\325>\203]\326 !\210\317\327!\203g\327!\210)\207" [name face frames inhibit-quit id global-face-data internal-find-face make-vector 12 nil 0 1 frame-list t internal-next-face-id fboundp make-face-internal 2 set-frame-face-alist copy-sequence frame-face-alist (x w32) make-face-x-resource-internal facemenu-add-new-face no-resources window-system] 6 (#$ . 17697) "SMake face: "]) #@198 Define a new FACE on all frames, which initially reflects the defaults. You can modify the font, color, etc of this face with the set-face- functions. If the face already exists, it is unmodified. (defalias 'make-empty-face #[(face) "\301\302\"\207" [face make-face t] 3 (#$ . 18589) "SMake empty face: "]) (defalias 'make-face-x-resource-internal #[(face &optional frame set-anyway) "\204(\306 \211\203$\307 @!\310>\203\311\312\n! @ #\210 A\211\204 )\202\334\313\312\n!\"\314\312\n!!\315\f\316P\317\"\206E \205E\320\n!\315\f\321P\322\"\206V \205V\323\n!*\315\f\324P\325\"\206h \205h\326\n!+\315\f\327P\330\"\206\203\315\f\331P\332\"\206\203 \205\203\333\n!,\315\f\334P\335\"\211-\203\231-\227\336\235\202\240 \205\240\337\n!). \203\254\340\341\342\217\210*\203\266\340\343\344\217\210+\203\300\340\345\346\217\210,\203\312\340\347\350\217\210.\204\323 \203\332\351\n.#\210.\n\207" [frame frames face set-anyway name fn frame-list framep (x w32) make-face-x-resource-internal face-name internal-get-face symbol-name x-get-resource ".attributeFont" "Face.AttributeFont" face-font ".attributeForeground" "Face.AttributeForeground" face-foreground ".attributeBackground" "Face.AttributeBackground" face-background ".attributeStipple" "Face.AttributeStipple" ".attributeBackgroundPixmap" "Face.AttributeBackgroundPixmap" face-stipple ".attributeUnderline" "Face.AttributeUnderline" ("on" "true") face-underline-p nil (byte-code "\303\230\203 \304 !\210\202-\305\230\203\306 !\210\202-\307\230\203'\310 !\210\202-\311 \n#\210\304\207" [fn face frame "italic" make-face-italic "bold" make-face-bold "bold-italic" make-face-bold-italic set-face-font] 4) ((error (byte-code "\302\235\203\303\304 #\210\202\303\305 #\210\303\207" [fn name ("italic" "bold" "bold-italic") message "no %s version found for face `%s'" "font `%s' not found for face `%s'"] 4))) (set-face-foreground face fg frame) ((error (message "color `%s' not allocated for face `%s'" fg name))) (set-face-background face bg frame) ((error (message "color `%s' not allocated for face `%s'" bg name))) (set-face-stipple face bgp frame) ((error (message "pixmap `%s' not found for face `%s'" bgp name))) set-face-underline-p fg bg bgp resource ulp] 5]) #@593 Define a face just like OLD-FACE, with name NEW-FACE. If NEW-FACE already exists as a face, it is modified to be like OLD-FACE. If it doesn't already exist, it is created. If the optional argument FRAME is given as a frame, NEW-FACE is changed on FRAME only. If FRAME is t, the frame-independent default specification for OLD-FACE is copied to NEW-FACE. If FRAME is nil, copying is done for the frame-independent defaults and for each existing frame. If the optional fourth argument NEW-FRAME is given, copy the information from face OLD-FACE on frame FRAME to NEW-FACE on frame NEW-FRAME. (defalias 'copy-face #[(old-face new-face &optional frame new-frame) "\204 \306 \204+\307 \211\203!\310\f @#\210 A\211\204\310\f \306#\210)\202m\311\f \"\312 \"\206:\313 !\314\315\316\217\210\317 \320\f \"#\210\321 \322\f \"#\210\323 \324\f \"#\210\325 \326\f \"#\210\327 \330\f \"#\210 )\207" [new-frame frame inhibit-quit frames old-face new-face t frame-list copy-face internal-get-face internal-find-face make-face nil (byte-code "\304\305 \n\" #\207" [new-face old-face frame new-frame set-face-font face-font] 5) ((error (set-face-font new-face nil new-frame))) set-face-font-explicit face-font-explicit set-face-foreground face-foreground set-face-background face-background set-face-stipple face-stipple set-face-underline-p face-underline-p] 6 (#$ . 20867)]) #@60 True if the faces FACE1 and FACE2 display in the same way. (defalias 'face-equal #[(face1 face2 &optional frame) "\303 \"\303\n \"\304 \"\304\n \"\232\205C\305 \"\305\n \"\232\205C\306 \"\306\n \"\232\205C\307 \"\307\n \"=\205C\310 \"\310\n \"\232\207" [face1 frame face2 internal-get-face face-foreground face-background face-font face-underline-p face-stipple] 4 (#$ . 22256)]) #@468 True if face FACE displays differently from the default face, on FRAME. A face is considered to be ``the same'' as the default face if it is actually specified in the same way (equivalent fonts, etc) or if it is fully unspecified, and thus inherits the attributes of any face it is displayed on top of. The optional argument FRAME specifies which frame to test; if FRAME is t, test the default for new frames. If FRAME is nil or omitted, test the selected frame. (defalias 'face-differs-from-default-p #[(face &optional frame) "\303\301\"\303\n\"\304 \"\304\n\"\232\204\304\n\"?\205l\305 \"\305\n\"\232\2042\305\n\"?\205l\306\n\"\203O\306\n\"\306 \"\206K\307\310!\236A\227\232\205l\311 \"\311\n\"\232\204c\311\n\"?\205l\312 \"\312\n\"\232)?\207" [frame default face internal-get-face face-foreground face-background face-font font frame-parameters face-stipple face-underline-p] 4 (#$ . 22655)]) #@207 True if face FACE has some non-nil attribute. The optional argument FRAME specifies which frame to test; if FRAME is t, test the default for new frames. If FRAME is nil or omitted, test the selected frame. (defalias 'face-nontrivial-p #[(face &optional frame) "\302 \"\303 \"\206%\304 \"\206%\305 \"\206%\306 \"\206%\307 \"\207" [face frame internal-get-face face-foreground face-background face-font face-stipple face-underline-p] 3 (#$ . 23591)]) #@198 Swap the foreground and background colors of face FACE. If the face doesn't specify both foreground and background, then set its foreground and background to the default background and foreground. (defalias 'invert-face #[(face &optional frame) "\306 \"\307 \"\310 \"\211\204\n\203&\311\n #\210\312 #\210\202W\313\314 !\236A\310\315 \"\2065\f\316\314 !\236A\307\315 \"\206G\311 #\210\312 #\210,*\207" [face frame bg fg frame-bg default-bg internal-get-face face-foreground face-background set-face-foreground set-face-background background-color frame-parameters default foreground-color frame-fg default-fg] 5 (#$ . 24058) (list (read-face-name "Invert face: "))]) #@69 Like set-face-font, but returns nil on failure instead of an error. (defalias 'internal-try-face-font #[(face font &optional frame) "\300\301\302\217\207" [nil (set-face-font-auto face font frame) ((error))] 3 (#$ . 24759)]) (byte-code "\306\300!\204\307\300 B\306\302!\204\307\302 B\306\303!\204 \307\303 B\306\304!\204,\307\304 B\310\305 B\311\n\312 B\313\f\314 B\315\316 B\317\320\211\321\322\323\324\322\211\325\326\211\211\327\325\320\211 !\"#$%&'()*+,\330+,*,(,&,%,$,#,\",!, ,,,,\331\260\332+,*,(,&\333\260 ,',Q,),Q.\307\207" [x-font-regexp current-load-list x-font-regexp-head x-font-regexp-weight x-font-regexp-slant x-font-regexp-weight-subnum boundp nil 1 2 x-font-regexp-slant-subnum 3 x-font-regexp-swidth-subnum 4 x-font-regexp-adstyle-subnum "[-?]" "[^-]+" "\\(bold\\|demibold\\|medium\\)" "\\([^-]*\\)" "\\([ior]\\)" "\\([^-]?\\)" "[0-9]+" "[0-9][0-9]+" "[cmp?*]" "\\`\\*?[-?*]" "\\*?\\'" "\\`[-?*]" "\\([-*?]\\|\\'\\)" encoding registry avgwidth spacing resy resx pointsize pixelsize adstyle swidth slant\? slant weight\? weight family foundry -] 29) #@288 Return a font name matching PATTERN. All wildcards in PATTERN become substantiated. If PATTERN is nil, return the name of the frame's base font, which never contains wildcards. Given optional arguments FACE and FRAME, return a font which is also the same size as FACE on FRAME, or fail. (defalias 'x-resolve-font-name #[(pattern &optional face frame) "9\204 \304! \305=\203\306\n\203`\307\n \310$\211\204\\\203W\311\312\n\"\203@\313!\2048\314\315!\210\202\\\314\316\"\210\202\\\313!\204N\314\317\n\"\210\202\\\314\320\n#\210\202\\\314\321\n\"\210 @)\207\322\323\324 !\236A\207" [face frame pattern fonts face-name t nil x-list-fonts 1 string-match "\\*" face-font error "No matching fonts are the same height as the frame default font" "No matching fonts are the same height as face `%s'" "Height of font `%s' doesn't match the frame default font" "Height of font `%s' doesn't match face `%s'" "No fonts match `%s'" font frame-parameters selected-frame] 6 (#$ . 25927)]) (defalias 'x-frob-font-weight #[(font which) "\306\307 \n\"\203 \n\310 \224O\f\n \225 \224O\311\n \225\312O\260\202K\307\f\n\"\2037\n\310\313\224O\f\n\313\225\312OQ\202K\307 \n\"\205K\n\310\313\224O\f\n\313\225\312OQ)\207" [case-fold-search x-font-regexp font x-font-regexp-weight-subnum which x-font-regexp-adstyle-subnum t string-match 0 "*" nil 1 x-font-regexp-head x-font-regexp-weight] 7]) (defalias 'x-frob-font-slant #[(font which) "\306\307 \n\"\203 \n\310 \224O\f\n \225 \224O\311\n \225\312O\260\202K\307 \n\"\2037\n\310\313\224O\f\n\313\225\312OQ\202K\307\n\"\205K\n\310\314\224O\f\n\314\225\312OQ)\207" [case-fold-search x-font-regexp font x-font-regexp-slant-subnum which x-font-regexp-adstyle-subnum t string-match 0 "*" nil 2 1 x-font-regexp-head x-font-regexp-slant] 7]) #@94 Given an X font specification, make a bold version of it. If that can't be done, return nil. (defalias 'x-make-font-bold #[(font) "\301\302\"\207" [font x-frob-font-weight "bold"] 3 (#$ . 27734)]) #@98 Given an X font specification, make a demibold version of it. If that can't be done, return nil. (defalias 'x-make-font-demibold #[(font) "\301\302\"\207" [font x-frob-font-weight "demibold"] 3 (#$ . 27938)]) #@98 Given an X font specification, make a non-bold version of it. If that can't be done, return nil. (defalias 'x-make-font-unbold #[(font) "\301\302\"\207" [font x-frob-font-weight "medium"] 3 (#$ . 28154)]) #@97 Given an X font specification, make an italic version of it. If that can't be done, return nil. (defalias 'x-make-font-italic #[(font) "\301\302\"\207" [font x-frob-font-slant "i"] 3 (#$ . 28366)]) #@98 Given an X font specification, make an oblique version of it. If that can't be done, return nil. (defalias 'x-make-font-oblique #[(font) "\301\302\"\207" [font x-frob-font-slant "o"] 3 (#$ . 28571)]) #@100 Given an X font specification, make a non-italic version of it. If that can't be done, return nil. (defalias 'x-make-font-unitalic #[(font) "\301\302\"\207" [font x-frob-font-slant "r"] 3 (#$ . 28779)]) #@105 Given an X font specification, make a bold and italic version of it. If that can't be done, return nil. (defalias 'x-make-font-bold-italic #[(font) "\301!\211\205 \302!\207" [font x-make-font-bold x-make-font-italic] 2 (#$ . 28990)]) #@103 Make the font of the given face be bold, if possible. If NOERROR is non-nil, return nil on failure. (defalias 'make-face-bold #[(face &optional frame noerror) "\305\306\307\310 %\210 \307=\203)\311\307\"<\203)\312\313\311\307\">\203%\314\202&\315\307#\207\306 \204O\316 \317\307\f#\210 \205K\317 @\f#\210 A\211\204<\306)\202\215\320 \"\311 \"\206_\311\307\"\211<\203g\306\n\206x\311\321 \"\206x\302\322 !\236A\211\203\205\323 \n#\206\215\f\206\215\324\325\n\")\207" [face frame font frames noerror internal-set-face-1 nil t 10 face-font set-face-font italic (bold italic) (bold) frame-list make-face-bold internal-get-face default frame-parameters make-face-bold-internal error "No bold version of %S"] 7 (#$ . 29235) (list (read-face-name "Make which face bold: "))]) (defalias 'make-face-bold-internal #[(face frame font) "\304\305 !\211\203\306\n #\206\307 !\211\205\306\n #)\207" [f2 font face frame nil x-make-font-bold internal-try-face-font x-make-font-demibold] 4]) #@105 Make the font of the given face be italic, if possible. If NOERROR is non-nil, return nil on failure. (defalias 'make-face-italic #[(face &optional frame noerror) "\305\306\307\310 %\210 \307=\203)\311\307\"<\203)\312\313\311\307\">\203%\314\202&\315\307#\207\306 \204O\316 \317\307\f#\210 \205K\317 @\f#\210 A\211\204<\306)\202\215\320 \"\311 \"\206_\311\307\"\211<\203g\306\n\206x\311\321 \"\206x\302\322 !\236A\211\203\205\323 \n#\206\215\f\206\215\324\325\n\")\207" [face frame font frames noerror internal-set-face-1 nil t 11 face-font set-face-font bold (bold italic) (italic) frame-list make-face-italic internal-get-face default frame-parameters make-face-italic-internal error "No italic version of %S"] 7 (#$ . 30261) (list (read-face-name "Make which face italic: "))]) (defalias 'make-face-italic-internal #[(face frame font) "\304\305 !\211\203\306\n #\206\307 !\211\205\306\n #)\207" [f2 font face frame nil x-make-font-italic internal-try-face-font x-make-font-oblique] 4]) #@114 Make the font of the given face be bold and italic, if possible. If NOERROR is non-nil, return nil on failure. (defalias 'make-face-bold-italic #[(face &optional frame noerror) "\305\306\307\310 %\210\305\306\307\311 %\210 \307=\203$\312\307\"<\203$\313\314\307#\207\306 \204J\315 \316\307\f#\210 \205F\316 @\f#\210 A\211\2047\306)\202\210\317 \"\312 \"\206Z\312\307\"\211<\203b\306\n\206s\312\320 \"\206s\302\321 !\236A\211\203\200\322 \n#\206\210\f\206\210\323\324\n\")\207" [face frame font frames noerror internal-set-face-1 nil t 10 11 face-font set-face-font (bold italic) frame-list make-face-bold-italic internal-get-face default frame-parameters make-face-bold-italic-internal error "No bold italic version of %S"] 7 (#$ . 31302) (list (read-face-name "Make which face bold-italic: "))]) (defalias 'make-face-bold-italic-internal #[(face frame font) "\305\211\306\n!\211\203(\n \232\204(\307 !\211\203( \232\204(\310 \f#\206\223\311\n!\211\203L\n \232\204L\307 !\211\203L \232\204L\310 \f#\206\223\306\n!\211\203p\n \232\204p\312 !\211\203p \232\204p\310 \f#\206\223\311\n!\211\205\223\n \232?\205\223\312 !\211\205\223 \232?\205\223\310 \f#*\207" [f3 f2 font face frame nil x-make-font-italic x-make-font-bold internal-try-face-font x-make-font-oblique x-make-font-demibold] 4]) #@107 Make the font of the given face be non-bold, if possible. If NOERROR is non-nil, return nil on failure. (defalias 'make-face-unbold #[(face &optional frame noerror) "\306\307\211\310 %\210 \311=\203%\312\311\"<\203%\313\314\312\311\">\205\"\315\311#\207\307\211 \204M\316 \317\311 #\210\f\205I\317\f@ #\210\fA\211\204:\307)\202\223\320 \"\312 \"\206]\312\311\"\211<\203e\307\n\206v\312\321 \"\206v\303\322 !\236A\211\205~\323\n!\211\203\213\324 #\206\223 \206\223\325\326\n\"*\207" [face frame font1 font frames noerror internal-set-face-1 nil 10 t face-font set-face-font italic (italic) frame-list make-face-unbold internal-get-face default frame-parameters x-make-font-unbold internal-try-face-font error "No unbold version of %S"] 7 (#$ . 32667) (list (read-face-name "Make which face non-bold: "))]) #@109 Make the font of the given face be non-italic, if possible. If NOERROR is non-nil, return nil on failure. (defalias 'make-face-unitalic #[(face &optional frame noerror) "\306\307\211\310 %\210 \311=\203%\312\311\"<\203%\313\314\312\311\">\205\"\315\311#\207\307\211 \204M\316 \317\311 #\210\f\205I\317\f@ #\210\fA\211\204:\307)\202\223\320 \"\312 \"\206]\312\311\"\211<\203e\307\n\206v\312\321 \"\206v\303\322 !\236A\211\205~\323\n!\211\203\213\324 #\206\223 \206\223\325\326\n\"*\207" [face frame font1 font frames noerror internal-set-face-1 nil 11 t face-font set-face-font bold (bold) frame-list make-face-unitalic internal-get-face default frame-parameters x-make-font-unitalic internal-try-face-font error "No unitalic version of %S"] 7 (#$ . 33516) (list (read-face-name "Make which face non-italic: "))]) #@70 *Text string to display as the sample text for `list-faces-display'. (defvar list-faces-sample-text "abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ" (#$ . -34372)) #@284 List all faces, using the same sample text in each. The sample text is a string that comes from the variable `list-faces-sample-text'. It is possible to give a particular face name different appearances in different frames. This command shows the appearance in the selected frame. (defalias 'list-faces-display #[nil "\306\307 \310\"\311\312 \311\211\313\220\212 q\210\314\f\203U\f@\fA\315\316\317 !\"c\210`c\210\320c\210\321`S\303 $\210b\210\322y\210m\204Q\323c\210\322y\210\202D)\202eb\210)\324 \221\210\325\326\313!\314\"\211\203n\327!\202q\330 @\n =\206\221\307 \211\205\220\331\f@\f@\n $\210\fA\211\204\311)-\207" [window disp-frame frame face faces standard-output sort face-list string-lessp nil selected-frame "*Faces*" t format "%25s " symbol-name "\n" put-text-property 1 " " print-help-return-message get-buffer-window get-buffer window-frame frame-list copy-face truncate-lines beg list-faces-sample-text] 7 (#$ . 34550) nil]) #@38 Display the properties of face FACE. (defalias 'describe-face #[(face) "\302\220\303\304!\210\303\305!!\210\303\306!\210\307 \210\303\310!\210\303\311!!\210\307 \210\303\312!\210\303\313!!\210\307 \210\303\314!\210\303\315!!\210\307 \210\303\316!\210\303\317!\203I\320\202J\321!\210\307 \210\303\322!\210\303\323!\206[\324!\210\307 \210\307 \210\303\325!\210\307 \210\326!\211\203y\303 !\210\202}\303\327!\210)\330 \221\207" [face doc "*Help*" princ "Properties of face `" face-name "':" terpri "Foreground: " face-foreground "Background: " face-background " Font: " face-font "Underlined: " face-underline-p "yes" "no" " Stipple: " face-stipple "none" "Documentation:" face-documentation "not documented as a face." print-help-return-message] 5 (#$ . 35555) (list (read-face-name "Describe face: "))]) (defalias 'face-attr-match-p #[(face attrs &optional frame) "\204\303 \304 \n\305\306%\205s\306 \"\203:\304 \n\307\310\311\312!\236A&\205s\304 \n\313\314\315\312!\236A&\202K\304 \n\307\314%\205s\304 \n\313\310%\205s\304 \n\316\317%\205s\304 \n\320\321%\205s\304 \n\322\323%\205s\304 \n\324\325%\207" [frame face attrs selected-frame face-attr-match-1 :inverse-video face-inverse-video-p :foreground face-background foreground-color frame-parameters :background face-foreground background-color :stipple face-stipple :bold face-bold-p :italic face-italic-p :underline face-underline-p] 9]) (defalias 'face-attr-match-1 #[(face frame plist property function &optional defaultval) "\203@ =\204AA\211\204\n \f\"\203!A@\202) \206)\n\306\f\"=\207" [plist property function face frame defaultval default] 5]) #@73 Return t if FACE, on FRAME, matches what SPEC says it should look like. (defalias 'face-spec-match-p #[(face spec &optional frame) "\303\304 \n\"\n#\207" [face spec frame face-attr-match-p face-spec-choose] 5 (#$ . 37228)]) #@72 Return a defface-style attribute list for FACE, as it exists on FRAME. (defalias 'face-attr-construct #[(face &optional frame) "\303\304 \n\"\203F\305\306BB\307 \n\303\310\311\312\313\n!\236A&\204)\310\314 \n\"BB\307 \n\303\315\314\316\313\n!\236A&\204f\315\311 \n\"BB\202f\314 \n\"\203V\310\314 \n\"BB\311 \n\"\203f\315\311 \n\"BB\317 \n\"\203v\320\317 \n\"BB\321 \n\"\203\206\322\321 \n\"BB\323 \n\"\203\226\324\323 \n\"BB\325 \n\"\203\246\326\325 \n\"BB)\207" [result face frame nil face-inverse-video-p :inverse-video t face-attr-match-1 :foreground face-background foreground-color frame-parameters face-foreground :background background-color face-stipple :stipple face-bold-p :bold face-italic-p :italic face-underline-p :underline] 9 (#$ . 37459)]) (defalias 'face-spec-choose #[(spec &optional frame) "\204\306  \307 \203- @\211@\fA@ A\310 \"\203) \307+\202 \n*\207" [frame spec result tail entry display selected-frame nil face-spec-set-match-display attrs] 4]) #@233 Set FACE's face attributes according to the first matching entry in SPEC. If optional FRAME is non-nil, set it for that frame only. If it is nil, then apply SPEC to each frame individually. See `defface' for information about SPEC. (defalias 'face-spec-set #[(face spec &optional frame) "\203`\305 \"\211\205^\306 \"\204\307 \310#\210\311 \312\313\310\211\211\211\211& \210\314 \n\315\316%\210\314 \n\317\320%\210\314 \n\321\322%\210\314 \n\323\324%\210\314 \n\325\326%\210\314 \n\327\330%\210\314 \n\331\332%)\207\333 \310\f\205\206\f@\fA\334 \211\335N\206z \336N#\210\334 #\210\202e*\207" [frame spec attrs face frames face-spec-choose face-font-explicit set-face-font nil modify-face (nil) (nil) face-spec-set-1 :foreground set-face-foreground :background set-face-background :stipple set-face-stipple :bold set-face-bold-p :italic set-face-italic-p :underline set-face-underline-p :inverse-video set-face-inverse-video-p frame-list face-spec-set saved-face face-defface-spec] 11 (#$ . 38488)]) (defalias 'face-spec-set-1 #[(face frame plist property function) "\203@ =\204AA\211\204\205\n A@\f#\207" [plist property function face frame] 5]) #@140 Non-nil iff DISPLAY matches FRAME. DISPLAY is part of a spec such as can be used in `defface'. If FRAME is nil, the current FRAME is used. (defalias 'face-spec-set-match-display #[(display frame) "\306\306\306\307 \307=\203\306 \203\\ \203\\ @ A\n@\nA \310=\2033\f>\202X \311=\203C\312\313\"\f>\202X \314=\203S\312\315\"\f>\202X\316\317 \f#\202 -\207" [display conjuncts conjunct req options match nil t type class frame-parameter display-type background background-mode error "Unknown req `%S' with options `%S'" window-system frame] 4 (#$ . 39681)]) (defalias 'x-create-frame-with-faces #[(&optional parameters) "\302\236A\206 \302 \236A\211\n\205\306\307\310\"\211\2037\311\f!\312 \236\204+\313 \236\2030\314\315 \"\314 #)+'\203B\316\317\320\217\210\316()\204W\321!(\322(!\210\202#\323\236*\316+\316,\316-\321\324B!(\325\216\326\327)\",\330(,\"\210\331\236\206\232\331 \236\206\232\306\332\333\"\211.\205\231\316.\227\334\235B)A\203\335(!/\336/\236A0\337/\236A1\340(\3361B\3370BD\"\2100\341/\236A\232\203\325\340(\3411BC\"\2100\342/\236A\232\203\352\340(\3421BC\"\2100\343/\236A\232\203\377\340(\3431BC\"\210+\322(!\210\344(!\210*\204\345(!\210\202\340(*C\"\210\346+-()\207" [parameters default-frame-alist name x-resource-name res-geometry parsed x-get-resource "geometry" "Geometry" x-parse-geometry top left append ((user-position . t) (user-size . t)) nil (byte-code "\301\236A\211\203\302 !\204\301\303 !BB)\301\207" [parameters font query-fontset create-fontset-from-ascii-font] 4) ((error)) x-create-frame frame-set-background-mode visibility (visibility) ((byte-code "\204\302 !\210\302\207" [success frame delete-frame] 2)) mapcar #[(elt) "@\301\302\303A!\304A!\305\211\211\211\211\211\211\211\211&\fB\207" [elt vector face face-name face-id nil] 14] set-frame-face-alist reverse "reverseVideo" "ReverseVideo" ("on" "true") frame-parameters foreground-color background-color modify-frame-parameters border-color mouse-color cursor-color face-set-after-frame-default make-frame-visible t default-enable-multibyte-characters frame global-face-data visibility-spec success faces rest resource params bg fg] 6]) (defalias 'face-set-after-frame-default #[(frame) "\306!\211\205? @@\211\307N\206\n\310N\n\f\236A @A \203*\311\n #\210\312\n #\210\313 \"\210, A\211\204\314)\207" [frame rest face spec global-face-data global frame-face-alist saved-face face-defface-spec face-spec-set face-fill-in make-face-x-resource-internal nil local] 5]) #@203 *The brightness of the background. Set this to the symbol dark if your background color is dark, light if your background is light, or nil (default) if you want Emacs to examine the brightness for you. (custom-declare-variable 'frame-background-mode 'nil '(#$ . -42276) :group 'faces :set #'(lambda (var value) (set var value) (mapcar 'frame-set-background-mode (frame-list))) :initialize 'custom-initialize-changed :type '(choice (choice-item dark) (choice-item light) (choice-item :tag "default" nil))) #@77 Set up the `background-mode' and `display-type' frame parameters for FRAME. (defalias 'frame-set-background-mode #[(frame) "\305\306\307\"\310!\311\f\2066 \203\312 \227!\2026\313\314\315\316\n\236A\"\"\313\314\315\317\"\"\320_W\2035\321\2026\322\323\324 B\325\326!\203G\327\202R\330!\203Q\331\202R\332BD\"+\207" [frame bg-mode params bg-resource frame-background-mode x-get-resource ".backgroundMode" "BackgroundMode" frame-parameters nil intern apply + x-color-values background-color "white" 0.6 dark light modify-frame-parameters background-mode display-type x-display-color-p color x-display-grayscale-p grayscale mono] 6 (#$ . 42787)]) (defalias 'frame-update-faces #[(frame) "\300\207" [nil] 1]) (defalias 'frame-update-face-colors #[(frame) "\303!\210 \211\205\304\305\306\217\210\nA\211\204\n\304)\207" [frame global-face-data faces frame-set-background-mode nil (byte-code "@A@@\306 !\307 ! <\204\310\f<\204\310 \204&\f\2032\311\n\310 #\210\312\n\310 #\210 \203=\313\311\n $\210\f\203H\313\312\n\f $\210,\310\207" [faces data face foreground background frame face-foreground face-background nil set-face-foreground set-face-background face-try-color-list] 5) ((error))] 4]) (defalias 'face-fill-in #[(face data frame) "\300\301\302\217\207" [nil (byte-code "\306!\307!\310!\311!\312!\203\313 \312!#\210\f\203+\314\315 \f$\210 \2037\314\316 $\210\n<\203u\317\n>\320\n>\211\203X\203X\321 \"\210\202q\203f\322 \"\210\202q\203q\323 \"\210*\202\200\n\203\200\324 \n#\210 \205\212\325 #,\207" [data stipple font background foreground face face-foreground face-background face-font face-stipple face-underline-p set-face-underline-p face-try-color-list set-face-foreground set-face-background bold italic make-face-bold-italic make-face-bold make-face-italic set-face-font set-face-stipple frame] 6) ((error))] 3]) (defalias 'face-color-supported-p #[(frame color background-p) "\205%\304 !\206%\n\305\235\206% \203\306\n \"\206%\307 !\205%\306\n \"\207" [window-system frame color background-p x-display-color-p ("black" "white") face-color-gray-p x-display-grayscale-p] 3]) (defalias 'face-try-color-list #[(function face colors frame) ";\203\305 \n\306=#\205{\n  #\207\307=\203!\310 \307 #\207\311\205z\f?\205z@\312>\204>\305 @\n\306=#\203rA\203K\311\313\314\217\210\202r@\307=\203[\310 \307 #\210\202r@\315=\203k\316 \307 #\210\202r\n @ #\210A\211\204'\311)\207" [colors frame function face done face-color-supported-p set-face-background t set-face-inverse-video-p nil (t underline) (byte-code "@\305=\203\306 \305\n#\210\202'@\307=\203 \310 \305\n#\210\202' @\n#\210\305\305\207" [colors face frame function done t set-face-inverse-video-p underline set-face-underline-p] 4) ((error)) underline set-face-underline-p] 6]) (byte-code "\306\307!\210\306\310!\210\306\311!\210\306\312!\210\306\313!\210\306\314!\210\306\315!\210\306\316!\210\306\317!\210\320\315!\321\322\323\324 \325\n\326&\210\327\323\211\211\211  \203q @ A @A@\3308\331\322 \332#\210\333 \334\f#\210\333 \335 #\210\202?-\336\326!\207" [region-face :prefix :group spec doc symbol make-face default modeline highlight bold italic bold-italic region secondary-selection underline face-id custom-declare-group basic-faces nil "The standard faces of Emacs." "huh" faces ((bold "Use bold font." ((t (:bold t)))) (bold-italic "Use bold italic font." ((t (:bold t :italic t)))) (italic "Use italic font." ((t (:italic t)))) (underline "Underline text." ((t (:underline t)))) (default "Used for text not covered by other faces." ((t nil))) (highlight "Highlight text in some way." ((((class color) (background light)) (:background "darkseagreen2")) (((class color) (background dark)) (:background "darkolivegreen")) (t (:inverse-video t)))) (modeline "Used for displaying the modeline." ((t (:inverse-video t)))) (region "Used for displaying the region." ((((class color) (background dark)) (:background "blue")) (t (:background "gray")))) (secondary-selection "Used for displaying the secondary selection." ((((class color) (background light)) (:background "paleturquoise")) (((class color) (background dark)) (:background "darkslateblue")) (t (:inverse-video t))))) 2 custom-add-to-group custom-face put face-documentation face-defface-spec provide entry all] 8)