diff options
author | Gerd Moellmann <[email protected]> | 2000-03-16 22:15:26 +0000 |
---|---|---|
committer | Gerd Moellmann <[email protected]> | 2000-03-16 22:15:26 +0000 |
commit | 16b20ed921e053c4391fb2b4c0922ff31b66d8b2 (patch) | |
tree | e0503820c470007af1c2d543b8cd3a375b6c4730 /lisp/cus-edit.el | |
parent | d0a4cd145217ab15c818538f6b0e26500e288785 (diff) |
(custom-variable-tag-face): Handle case that
default face's height is not a number.
(custom-face-tag-face, custom-group-tag-face-1)
(custom-group-tag-face): Ditto.
(custom-group-tag-face-1): Add :group.
Diffstat (limited to 'lisp/cus-edit.el')
-rw-r--r-- | lisp/cus-edit.el | 100 |
1 files changed, 58 insertions, 42 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 9851de8d3b..85cef188e8 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1985,20 +1985,22 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"." ;; When this was underlined blue, users confused it with a ;; Mosaic-style hyperlink... -(defface custom-variable-tag-face `((((class color) - (background dark)) - (:foreground "light blue" - :bold t - :family "helv" - :height ,(floor (face-attribute - 'default :height) 0.9))) - (((class color) - (background light)) - (:foreground "blue" :family "helv" - :bold t - :height ,(floor (face-attribute - 'default :height) 0.9))) - (t (:bold t))) +(defface custom-variable-tag-face + `((((class color) + (background dark)) + (:foreground "light blue" :bold t :family "helv" + :height ,(let ((height (face-attribute 'default :height))) + (if (numberp height) + (floor height 0.9) + height)))) + (((class color) + (background light)) + (:foreground "blue" :family "helv" :bold t + :height ,(let ((height (face-attribute 'default :height))) + (if (numberp height) + (floor height 0.9) + height)))) + (t (:bold t))) "Face used for unpushable variable tags." :group 'custom-faces) @@ -2520,9 +2522,12 @@ Match frames with dark backgrounds.") ;;; The `custom-face' Widget. -(defface custom-face-tag-face `((t (:bold t :family "helv" - :height ,(floor (face-attribute - 'default :height) 0.9)))) +(defface custom-face-tag-face + `((t (:bold t :family "helv" + :height ,(let ((height (face-attribute 'default :height))) + (if (numberp height) + (floor height 0.9) + height))))) "Face used for face tags." :group 'custom-faces) @@ -2976,31 +2981,42 @@ and so forth. The remaining group tags are shown with :type '(repeat face) :group 'custom-faces) -(defface custom-group-tag-face-1 `((((class color) - (background dark)) - (:foreground "pink" :family "helv" - :height ,(floor (face-attribute - 'default :height) 0.9) - :bold t)) - (((class color) - (background light)) - (:foreground "red" :bold t - :height ,(floor (face-attribute - 'default :height) 0.9))) - (t (:bold t))) - "Face used for group tags.") - -(defface custom-group-tag-face `((((class color) - (background dark)) - (:foreground "light blue" :bold t - :height ,(floor (face-attribute - 'default :height) 0.9))) - (((class color) - (background light)) - (:foreground "blue" :bold t - :height ,(floor (face-attribute - 'default :height) 0.9))) - (t (:bold t))) +(defface custom-group-tag-face-1 + `((((class color) + (background dark)) + (:foreground "pink" :family "helv" + :height ,(let ((height (face-attribute 'default :height))) + (if (numberp height) + (floor height 0.9) + height)) + :bold t)) + (((class color) + (background light)) + (:foreground "red" :bold t + :height ,(let ((height (face-attribute 'default :height))) + (if (numberp height) + (floor height 0.9) + height)))) + (t (:bold t))) + "Face used for group tags." + :group 'custom-faces) + +(defface custom-group-tag-face + `((((class color) + (background dark)) + (:foreground "light blue" :bold t + :height ,(let ((height (face-attribute 'default :height))) + (if (numberp height) + (floor height 0.9) + height)))) + (((class color) + (background light)) + (:foreground "blue" :bold t + :height ,(let ((height (face-attribute 'default :height))) + (if (numberp height) + (floor height 0.9) + height)))) + (t (:bold t))) "Face used for low level group tags." :group 'custom-faces) |