Current File : //usr/local/share/emacs/27.2/lisp/cus-face.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defalias 'custom-facep 'facep)
#@63 Like `defface', but with FACE evaluated as a normal argument.
(defalias 'custom-declare-face #[(face spec doc &rest args) "\305N\204) \306\307 !\305#\210\310B\nB \203 \311\307 !\"\210\312\f\313#\210\314\315!\210\207" [face spec current-load-list doc args face-defface-spec face-spec-set purecopy defface set-face-documentation custom-handle-all-keywords custom-face run-hooks custom-define-hook] 4 (#$ . 440)])
#@717 Alist of face attributes.
The elements are of the form (KEY TYPE PRE-FILTER POST-FILTER),
where KEY is the name of the attribute, TYPE is a widget type for
editing the attribute, PRE-FILTER is a function to make the attribute's
value suitable for the customization widget, and POST-FILTER is a
function to make the customized value suitable for storing. PRE-FILTER
and POST-FILTER are optional.
The PRE-FILTER should take a single argument, the attribute value as
stored, and should return a value for customization (using the
customization type TYPE).
The POST-FILTER should also take a single argument, the value after
being customized, and should return a value suitable for setting the
given face attribute.
(defconst custom-face-attributes '((:family (string :tag "Font Family" :help-echo "Font family or fontset alias name.")) (:foundry (string :tag "Font Foundry" :help-echo "Font foundry name.")) (:width (choice :tag "Width" :help-echo "Font width." :value normal (const :tag "compressed" condensed) (const :tag "condensed" condensed) (const :tag "demiexpanded" semi-expanded) (const :tag "expanded" expanded) (const :tag "extracondensed" extra-condensed) (const :tag "extraexpanded" extra-expanded) (const :tag "medium" normal) (const :tag "narrow" condensed) (const :tag "normal" normal) (const :tag "regular" normal) (const :tag "semicondensed" semi-condensed) (const :tag "semiexpanded" semi-expanded) (const :tag "ultracondensed" ultra-condensed) (const :tag "ultraexpanded" ultra-expanded) (const :tag "wide" extra-expanded))) (:height (choice :tag "Height" :help-echo "Face's font height." :value 1.0 (integer :tag "Height in 1/10 pt") (number :tag "Scale" 1.0))) (:weight (choice :tag "Weight" :help-echo "Font weight." :value normal (const :tag "ultralight" ultra-light) (const :tag "extralight" extra-light) (const :tag "light" light) (const :tag "thin" thin) (const :tag "semilight" semi-light) (const :tag "book" semi-light) (const :tag "normal" normal) (const :tag "regular" normal) (const :tag "medium" normal) (const :tag "semibold" semi-bold) (const :tag "demibold" semi-bold) (const :tag "bold" bold) (const :tag "extrabold" extra-bold) (const :tag "heavy" extra-bold) (const :tag "ultrabold" ultra-bold) (const :tag "black" ultra-bold))) (:slant (choice :tag "Slant" :help-echo "Font slant." :value normal (const :tag "italic" italic) (const :tag "oblique" oblique) (const :tag "normal" normal) (const :tag "roman" roman))) (:underline (choice :tag "Underline" :help-echo "Control text underlining." (const :tag "Off" nil) (list :tag "On" :value (:color foreground-color :style line) (const :format #1="" :value :color) (choice :tag "Color" (const :tag "Foreground Color" foreground-color) color) (const :format #1# :value :style) (choice :tag "Style" (const :tag "Line" line) (const :tag "Wave" wave)))) (lambda (real-value) (and real-value (let ((color (or (and (consp real-value) (plist-get real-value :color)) (and (stringp real-value) real-value) 'foreground-color)) (style (or (and (consp real-value) (plist-get real-value :style)) 'line))) (list :color color :style style)))) (lambda (cus-value) (and cus-value (let ((color (plist-get cus-value :color)) (style (plist-get cus-value :style))) (cond ((eq style 'line) (if (eq color 'foreground-color) t color)) (t `(:color ,color :style ,style))))))) (:overline (choice :tag "Overline" :help-echo "Control text overlining." (const :tag "Off" nil) (const :tag "On" t) (color :tag "Colored"))) (:strike-through (choice :tag "Strike-through" :help-echo "Control text strike-through." (const :tag "Off" nil) (const :tag "On" t) (color :tag "Colored"))) (:box (choice :tag "Box around text" :help-echo "Control box around text." (const :tag "Off" nil) (list :tag "Box" :value (:line-width 2 :color "grey75" :style released-button) (const :format #1# :value :line-width) (integer :tag "Width") (const :format #1# :value :color) (choice :tag "Color" (const :tag "*" nil) color) (const :format #1# :value :style) (choice :tag "Style" (const :tag "Raised" released-button) (const :tag "Sunken" pressed-button) (const :tag "None" nil)))) (lambda (real-value) (and real-value (let ((lwidth (or (and (consp real-value) (plist-get real-value :line-width)) (and (integerp real-value) real-value) 1)) (color (or (and (consp real-value) (plist-get real-value :color)) (and (stringp real-value) real-value) nil)) (style (and (consp real-value) (plist-get real-value :style)))) (list :line-width lwidth :color color :style style)))) (lambda (cus-value) (and cus-value (let ((lwidth (plist-get cus-value :line-width)) (color (plist-get cus-value :color)) (style (plist-get cus-value :style))) (cond ((and (null color) (null style)) lwidth) ((and (null lwidth) (null style)) color) (t (nconc (and lwidth `(:line-width ,lwidth)) (and color `(:color ,color)) (and style `(:style ,style))))))))) (:inverse-video (choice :tag "Inverse-video" :help-echo "Control whether text should be in inverse-video." (const :tag "Off" nil) (const :tag "On" t))) (:foreground (color :tag "Foreground" :help-echo "Set foreground color (name or #RRGGBB hex spec).")) (:distant-foreground (color :tag "Distant Foreground" :help-echo "Set distant foreground color (name or #RRGGBB hex spec).")) (:background (color :tag "Background" :help-echo "Set background color (name or #RRGGBB hex spec).")) (:stipple (choice :tag "Stipple" :help-echo "Background bit-mask" (const :tag "None" nil) (file :tag "File" :help-echo "Name of bitmap file." :must-match t))) (:extend (choice :tag "Extend" :help-echo "Control whether attributes should be extended after EOL." (const :tag "Off" nil) (const :tag "On" t))) (:inherit (repeat :tag "Inherit" :help-echo "List of faces to inherit attributes from." (face :Tag "Face" default)) (lambda (real-value) (cond ((or (null real-value) (eq real-value 'unspecified)) nil) ((symbolp real-value) (list real-value)) (t real-value))) (lambda (cus-value) (if (and (consp cus-value) (null (cdr cus-value))) (car cus-value) cus-value)))) (#$ . 866))
#@241 For FACE on FRAME, return an alternating list describing its attributes.
The list has the form (KEYWORD VALUE KEYWORD VALUE...).
Each keyword should be listed in `custom-face-attributes'.
If FRAME is nil, use the global defaults for FACE.
(defalias 'custom-face-attributes-get #[(face frame) "\306\n\2033 \n@@\307\f
# \n\nA\n\310=\204/ \n\204( \311=\204/ \n BB*\202 *\207" [custom-face-attributes plist attrs attribute face frame nil face-attribute unspecified :inherit value] 4 (#$ . 6891)])
#@337 Apply a list of face specs for user customizations.
This works by calling `custom-theme-set-faces' for the `user'
theme, a special theme referring to settings made via Customize.
The arguments should be a list where each entry has the form:
(FACE SPEC [NOW [COMMENT]])
See the documentation of `custom-theme-set-faces' for details.
(defalias 'custom-set-faces #[(&rest args) "\301\302\303#\207" [args apply custom-theme-set-faces user] 4 (#$ . 7406)])
#@1195 Apply a list of face specs associated with theme THEME.
THEME should be a theme name (a symbol). The special theme named
`user' refers to user settings applied via Customize.
The remaining ARGS should be a list where each entry is a list of
the form:
(FACE SPEC [NOW [COMMENT]])
FACE should be a face name (a symbol). If FACE is a face alias,
the setting refers to the parent face.
SPEC should be a face spec. For details, see `defface'.
NOW, if present and non-nil, forces the face settings to take
immediate effect in the Emacs display; in particular, FACE is
initialized as a face if it is not yet one. If NOW is omitted or
nil, the caller is responsible for making the settings take
effect later, by calling `custom-theme-recalc-face' or
`face-spec-recalc'.
COMMENT is a string comment about FACE.
This function works by calling `custom-push-theme' to record each
SPEC in each FACE's `theme-face' property, and in THEME's
`theme-settings' property. If FACE has not already been
customized, it also stores SPEC in the `saved-face' property.
If THEME has a non-nil `theme-immediate' property, this is
equivalent to providing the NOW argument to all faces in the
argument list.
(defalias 'custom-theme-set-faces #[(theme &rest args) "\211\211 >\262?\205 \306\307\"\266\310N \311 \211 \205\314
@\211<\204) \306\312!\210\f@\fA@ \211 \313N\203> \313N \314!\204Q \315\316 \317 %\210\202\303 \320\f8\321\f8 \316N \203o @@\322=\204 \323 \324 #\210\323 \325 #\210\315\316 \317 %\210 \204\222 \n\203\242 \323 \326 \203\237 \327\202\240 \302#\210 \204\262 \n\204\262 \330 !\203\302 \323 \331 #\210\332 \333#\210+*
A\211\204 \311+\207" [theme custom-known-themes immediate args entry --dolist-tail-- error "Unknown theme `%s'" theme-immediate nil "Incompatible Custom theme spec" face-alias custom--should-apply-setting custom-push-theme theme-face set 2 3 user put saved-face saved-face-comment force-face rogue facep face-comment face-spec-set t spec face oldspec comment now] 7 (#$ . 7871)])
#@192 Reset the specs in THEME of some faces to their specs in other themes.
Each of the arguments ARGS has this form:
(FACE IGNORED)
This means reset FACE. The argument IGNORED is ignored.
(defalias 'custom-theme-reset-faces #[(theme &rest args) "\211\211 >\262?\205 \305\306\"\266\n\307\211 \205, \f@\310\311 @\312$\210\fA\211\204 \307*\207" [theme custom-known-themes args arg --dolist-tail-- error "Unknown theme `%s'" nil custom-push-theme theme-face reset] 6 (#$ . 9927)])
#@227 Reset the specs of some faces to their specs in specified themes.
This creates settings in the `user' theme.
Each of the arguments ARGS has this form:
(FACE FROM-THEME)
This means reset FACE to its value in FROM-THEME.
(defalias 'custom-reset-faces #[(&rest args) "\301\302\303#\207" [args apply custom-theme-reset-faces user] 4 (#$ . 10424)])
(provide 'cus-face)
Mini Shell