Commit 16b20ed9 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(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.
parent d0a4cd14
2000-03-16 Gerd Moellmann <gerd@gnu.org> 2000-03-16 Gerd Moellmann <gerd@gnu.org>
* cus-edit.el (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.
* info.el (Info-fontify-maximum-menu-size): Increase to 100000. * info.el (Info-fontify-maximum-menu-size): Increase to 100000.
2000-03-15 Gerd Moellmann <gerd@gnu.org> 2000-03-15 Gerd Moellmann <gerd@gnu.org>
......
...@@ -1985,19 +1985,21 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"." ...@@ -1985,19 +1985,21 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
;; When this was underlined blue, users confused it with a ;; When this was underlined blue, users confused it with a
;; Mosaic-style hyperlink... ;; Mosaic-style hyperlink...
(defface custom-variable-tag-face `((((class color) (defface custom-variable-tag-face
`((((class color)
(background dark)) (background dark))
(:foreground "light blue" (:foreground "light blue" :bold t :family "helv"
:bold t :height ,(let ((height (face-attribute 'default :height)))
:family "helv" (if (numberp height)
:height ,(floor (face-attribute (floor height 0.9)
'default :height) 0.9))) height))))
(((class color) (((class color)
(background light)) (background light))
(:foreground "blue" :family "helv" (:foreground "blue" :family "helv" :bold t
:bold t :height ,(let ((height (face-attribute 'default :height)))
:height ,(floor (face-attribute (if (numberp height)
'default :height) 0.9))) (floor height 0.9)
height))))
(t (:bold t))) (t (:bold t)))
"Face used for unpushable variable tags." "Face used for unpushable variable tags."
:group 'custom-faces) :group 'custom-faces)
...@@ -2520,9 +2522,12 @@ Match frames with dark backgrounds.") ...@@ -2520,9 +2522,12 @@ Match frames with dark backgrounds.")
;;; The `custom-face' Widget. ;;; The `custom-face' Widget.
(defface custom-face-tag-face `((t (:bold t :family "helv" (defface custom-face-tag-face
:height ,(floor (face-attribute `((t (:bold t :family "helv"
'default :height) 0.9)))) :height ,(let ((height (face-attribute 'default :height)))
(if (numberp height)
(floor height 0.9)
height)))))
"Face used for face tags." "Face used for face tags."
:group 'custom-faces) :group 'custom-faces)
...@@ -2976,30 +2981,41 @@ and so forth. The remaining group tags are shown with ...@@ -2976,30 +2981,41 @@ and so forth. The remaining group tags are shown with
:type '(repeat face) :type '(repeat face)
:group 'custom-faces) :group 'custom-faces)
(defface custom-group-tag-face-1 `((((class color) (defface custom-group-tag-face-1
`((((class color)
(background dark)) (background dark))
(:foreground "pink" :family "helv" (:foreground "pink" :family "helv"
:height ,(floor (face-attribute :height ,(let ((height (face-attribute 'default :height)))
'default :height) 0.9) (if (numberp height)
(floor height 0.9)
height))
:bold t)) :bold t))
(((class color) (((class color)
(background light)) (background light))
(:foreground "red" :bold t (:foreground "red" :bold t
:height ,(floor (face-attribute :height ,(let ((height (face-attribute 'default :height)))
'default :height) 0.9))) (if (numberp height)
(floor height 0.9)
height))))
(t (:bold t))) (t (:bold t)))
"Face used for group tags.") "Face used for group tags."
:group 'custom-faces)
(defface custom-group-tag-face `((((class color) (defface custom-group-tag-face
`((((class color)
(background dark)) (background dark))
(:foreground "light blue" :bold t (:foreground "light blue" :bold t
:height ,(floor (face-attribute :height ,(let ((height (face-attribute 'default :height)))
'default :height) 0.9))) (if (numberp height)
(floor height 0.9)
height))))
(((class color) (((class color)
(background light)) (background light))
(:foreground "blue" :bold t (:foreground "blue" :bold t
:height ,(floor (face-attribute :height ,(let ((height (face-attribute 'default :height)))
'default :height) 0.9))) (if (numberp height)
(floor height 0.9)
height))))
(t (:bold t))) (t (:bold t)))
"Face used for low level group tags." "Face used for low level group tags."
:group 'custom-faces) :group 'custom-faces)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment