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>
* 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.
2000-03-15 Gerd Moellmann <gerd@gnu.org>
......
......@@ -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
;; Mosaic-style hyperlink...
(defface custom-variable-tag-face `((((class color)
(defface custom-variable-tag-face
`((((class color)
(background dark))
(:foreground "light blue"
:bold t
:family "helv"
:height ,(floor (face-attribute
'default :height) 0.9)))
(: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 ,(floor (face-attribute
'default :height) 0.9)))
(: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,30 +2981,41 @@ and so forth. The remaining group tags are shown with
:type '(repeat face)
:group 'custom-faces)
(defface custom-group-tag-face-1 `((((class color)
(defface custom-group-tag-face-1
`((((class color)
(background dark))
(:foreground "pink" :family "helv"
:height ,(floor (face-attribute
'default :height) 0.9)
: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 ,(floor (face-attribute
'default :height) 0.9)))
:height ,(let ((height (face-attribute 'default :height)))
(if (numberp height)
(floor height 0.9)
height))))
(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))
(:foreground "light blue" :bold t
:height ,(floor (face-attribute
'default :height) 0.9)))
:height ,(let ((height (face-attribute 'default :height)))
(if (numberp height)
(floor height 0.9)
height))))
(((class color)
(background light))
(:foreground "blue" :bold t
:height ,(floor (face-attribute
'default :height) 0.9)))
: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)
......
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