;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:37:41 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/cus-face.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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 "`cus-face.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'custom-facep 'facep) #@61 Like `defface', but FACE is evaluated as a normal argument. (defalias 'custom-declare-face #[(face spec doc &rest args) "\306N\204e\307\306 #\210\310\311!\203G\311!\204G\312N\206 \313 \314\315!\210 \203< @ A\316\f\n#\210\202)+ \317>\203G\320!\210\203Z\321!\204Z\322\323!\"\210\324\325#\210\326\327!\210\207" [face spec frame frames value window-system face-defface-spec put fboundp facep saved-face frame-list nil make-empty-face face-spec-set (x w32) make-face-x-resource-internal face-documentation set-face-documentation purecopy custom-handle-all-keywords custom-face run-hooks custom-define-hook doc args] 4 (#$ . 650)]) #@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 (choice :tag "Font family" :help-echo "Font family or fontset alias name." (const :tag "*" nil) (string :tag "Family"))) (:width (choice :tag "Width" :help-echo "Font width." (const :tag "*" nil) (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." (const :tag "*" nil) (integer :tag "Height in 1/10 pt") (number :tag "Scale" 1.0))) (:weight (choice :tag "Weight" :help-echo "Font weight." (const :tag "*" nil) (const :tag "black" ultra_bold) (const :tag "bold" bold) (const :tag "book" semi-light) (const :tag "demibold" semi-bold) (const :tag "extralight" extra-light) (const :tag "extrabold" extra-bold) (const :tag "heavy" extra-bold) (const :tag "light" light) (const :tag "medium" normal) (const :tag "normal" normal) (const :tag "regular" normal) (const :tag "semibold" semi-bold) (const :tag "semilight" semi-light) (const :tag "ultralight" ultra-light) (const :tag "ultrabold" ultra-bold))) (:slant (choice :tag "Slant" :help-echo "Font slant." (const :tag "*" nil) (const :tag "italic" italic) (const :tag "oblique" oblique) (const :tag "normal" normal))) (:underline (choice :tag "Underline" :help-echo "Control text underlining." (const :tag "*" nil) (const :tag "On" t) (const :tag "Off" off) (color :tag "Colored"))) (:overline (choice :tag "Overline" :help-echo "Control text overlining." (const :tag "*" nil) (const :tag "On" t) (const :tag "Off" off) (color :tag "Colored"))) (:strike-through (choice :tag "Strike-through" :help-echo "Control text strike-through." (const :tag "*" nil) (const :tag "On" t) (const :tag "Off" off) (color :tag "Colored"))) (:box (choice :tag "Box around text" :help-echo "Control box around text." (const :tag "*" nil) (const :tag "Off" off) (list :tag "Box" :value (:line-width 2 :color "grey75" :style released-button) (const :format "" :value :line-width) (integer :tag "Width") (const :format "" :value :color) (choice :tag "Color" (const :tag "*" nil) color) (const :format "" :value :style) (choice :tag "Style" (const :tag "Raised" released-button) (const :tag "Sunken" pressed-button) (const :tag "None" nil)))) (lambda (real-value) (if (null real-value) 'off (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) (cond ((null cus-value) 'unspecified) ((eq cus-value 'off) nil) (t (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 "*" nil) (const :tag "On" t) (const :tag "Off" off))) (:foreground (choice :tag "Foreground" :help-echo "Set foreground color." (const :tag "*" nil) (color :tag "Color"))) (:background (choice :tag "Background" :help-echo "Set background color." (const :tag "*" nil) (color :tag "Color"))) (:stipple (choice :tag "Stipple" :help-echo "Background bit-mask" (const :tag "*" nil) (const :tag "None" off) (file :tag "File" :help-echo "Name of bitmap file." :must-match 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)))) (#$ . 1315)) #@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 (#$ . 6501)]) #@337 Initialize faces according to user preferences. The arguments should be a list where each entry has the form: (FACE SPEC [NOW [COMMENT]]) SPEC is stored as the saved value for FACE. If NOW is present and non-nil, FACE is created now, according to SPEC. COMMENT is a string comment about FACE. See `defface' for the format of SPEC. (defalias 'custom-set-faces #[(&rest args) "\205g@\211<\203Q @ A@\306 8\307 8\310 \311\f#\210\310 \312\n#\210 \2031\310 \313\314#\210 \204;\315 !\203J\310 \316\n#\210\317 !\210\320 \f\"\210A,\202c@A@\310 \311\f#\210*AA)\202\207" [args entry comment now spec face 2 3 put saved-face saved-face-comment force-face t facep face-comment make-empty-face face-spec-set] 6 (#$ . 7018)]) (provide 'cus-face)