mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(info-node, info-menu-5, info-xref, info-header-node)

Browse Source 
(Info-title-1-face, Info-title-2-face, Info-title-3-face)
(Info-title-4-face): Use new syntax.
(info-xref-visited): Inherit from info-xref.
This commit is contained in:
Stefan Monnier 2004-04-21 20:54:19 +00:00
parent 780b142e2d
commit 508bce68ce
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
lisp/info.el
View File

@ -66,29 +66,29 @@ The Lisp code is executed when the node is selected.")
(put 'Info-enable-active-nodes 'risky-local-variable t)
(defface info-node
'((((class color) (background light)) (:foreground "brown" :weight bold :slant italic))
(((class color) (background dark)) (:foreground "white" :weight bold :slant italic))
(t (:weight bold :slant italic)))
'((((class color) (background light)) :foreground "brown" :weight bold :slant italic)
(((class color) (background dark)) :foreground "white" :weight bold :slant italic)
(t :weight bold :slant italic))
"Face for Info node names."
:group 'info)
(defface info-menu-5
'((((class color)) (:foreground "red1"))
(t (:underline t)))
'((((class color)) :foreground "red1")
(t :underline t))
"Face for every third `*' in an Info menu."
:group 'info)
(defface info-xref
'((((class color) (background light)) (:foreground "blue"))
(((class color) (background dark)) (:foreground "cyan"))
(t (:underline t)))
'((((class color) (background light)) :foreground "blue")
(((class color) (background dark)) :foreground "cyan")
(t :underline t))
"Face for Info cross-references."
:group 'info)
(defface info-xref-visited
'((((class color) (background light)) (:foreground "magenta4"))
(((class color) (background dark)) (:foreground "magenta4"))
(t (:underline t)))
'((t :inherit info-xref)
(((class color) (background light)) :foreground "magenta4")
(((class color) (background dark)) :foreground "magenta4"))
"Face for visited Info cross-references."
:group 'info)
@ -110,12 +110,12 @@ A header-line does not scroll with the rest of the buffer."
:group 'info)
(defface info-header-xref
'((t (:inherit info-xref)))
'((t :inherit info-xref))
"Face for Info cross-references in a node header."
:group 'info)
(defface info-header-node
'((t (:inherit info-node)))
'((t :inherit info-node))
"Face for Info nodes in a node header."
:group 'info)
@ -3124,26 +3124,26 @@ the variable `Info-file-list-for-emacs'."
(Info-goto-emacs-command-node command)))))
(defface Info-title-1-face
'((((type tty pc) (class color)) (:foreground "yellow" :weight bold))
(t (:height 1.2 :inherit Info-title-2-face)))
'((((type tty pc) (class color)) :foreground "yellow" :weight bold)
(t :height 1.2 :inherit Info-title-2-face))
"Face for Info titles at level 1."
:group 'info)
(defface Info-title-2-face
'((((type tty pc) (class color)) (:foreground "lightblue" :weight bold))
(t (:height 1.2 :inherit Info-title-3-face)))
'((((type tty pc) (class color)) :foreground "lightblue" :weight bold)
(t :height 1.2 :inherit Info-title-3-face))
"Face for Info titles at level 2."
:group 'info)
(defface Info-title-3-face
'((((type tty pc) (class color)) (:weight bold))
(t (:height 1.2 :inherit Info-title-4-face)))
'((((type tty pc) (class color)) :weight bold)
(t :height 1.2 :inherit Info-title-4-face))
"Face for Info titles at level 3."
:group 'info)
(defface Info-title-4-face
'((((type tty pc) (class color)) (:weight bold))
(t (:weight bold :inherit variable-pitch)))
'((((type tty pc) (class color)) :weight bold)
(t :weight bold :inherit variable-pitch))
"Face for Info titles at level 4."
:group 'info)