diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 11:26:42 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 11:26:42 +0000 |
| commit | 1c7199ef585175719a35f2e0dc8e8c04f281708a (patch) | |
| tree | c34d479037d9b411ba266d8229e6f3de32f2bbe1 /lisp/cus-face.el | |
| parent | 58e4c52f54f7003efbe3e1f30d71b3cfa5e1a8d5 (diff) | |
| download | emacs-1c7199ef585175719a35f2e0dc8e8c04f281708a.tar.gz | |
Trailing whitespace deleted.
Diffstat (limited to 'lisp/cus-face.el')
| -rw-r--r-- | lisp/cus-face.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/cus-face.el b/lisp/cus-face.el index 4b33f1e4f04..f1744cc9e65 100644 --- a/lisp/cus-face.el +++ b/lisp/cus-face.el @@ -86,7 +86,7 @@ (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." @@ -113,7 +113,7 @@ (const :tag "semilight" semi-light) (const :tag "ultralight" ultra-light) (const :tag "ultrabold" ultra-bold))) - + (:slant (choice :tag "Slant" :help-echo "Font slant." @@ -121,28 +121,28 @@ (const :tag "italic" italic) (const :tag "oblique" oblique) (const :tag "normal" normal))) - + (:underline (choice :tag "Underline" :help-echo "Control text underlining." (const :tag "Off" nil) (const :tag "On" t) (color :tag "Colored"))) - + (: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 ;; Fixme: this can probably be done better. (choice :tag "Box around text" @@ -190,21 +190,21 @@ (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.")) - + (:background (color :tag "Background" :help-echo "Set background color.")) - + (:stipple (choice :tag "Stipple" :help-echo "Background bit-mask" @@ -230,7 +230,7 @@ (if (and (consp cus-value) (null (cdr cus-value))) (car cus-value) cus-value)))) - + "Alist of face attributes. The elements are of the form (KEY TYPE PRE-FILTER POST-FILTER), |