Mercurial > emacs
diff lisp/info.el @ 63208:0502430a647c
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-378
Remove "-face" suffix from and downcase info faces
2005-06-10 Miles Bader <miles@gnu.org>
* lisp/info.el (info-title-1, info-title-2, info-title-3)
(info-title-4): Remove "-face" suffix from and downcase face names.
(Info-title-1-face, Info-title-2-face, Info-title-3-face)
(Info-title-4-face):
New backward-compatibility aliases for renamed faces.
(Info-fontify-node): Use renamed info faces.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 10 Jun 2005 08:58:53 +0000 |
parents | 58dcb71db77b |
children | 512a76e42d3f a1b34dec1104 |
line wrap: on
line diff
--- a/lisp/info.el Fri Jun 10 08:48:45 2005 +0000 +++ b/lisp/info.el Fri Jun 10 08:58:53 2005 +0000 @@ -3524,29 +3524,37 @@ (t (Info-goto-emacs-command-node command))))) -(defface Info-title-1-face +(defface info-title-1 '((((type tty pc) (class color)) :foreground "green" :weight bold) - (t :height 1.2 :inherit Info-title-2-face)) - "Face for Info titles at level 1." + (t :height 1.2 :inherit info-title-2)) + "Face for info titles at level 1." :group 'info) - -(defface Info-title-2-face +;; backward-compatibility alias +(put 'Info-title-1-face 'face-alias 'info-title-1) + +(defface info-title-2 '((((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." + (t :height 1.2 :inherit info-title-3)) + "Face for info titles at level 2." :group 'info) - -(defface Info-title-3-face +;; backward-compatibility alias +(put 'Info-title-2-face 'face-alias 'info-title-2) + +(defface info-title-3 '((((type tty pc) (class color)) :weight bold) - (t :height 1.2 :inherit Info-title-4-face)) - "Face for Info titles at level 3." + (t :height 1.2 :inherit info-title-4)) + "Face for info titles at level 3." :group 'info) - -(defface Info-title-4-face +;; backward-compatibility alias +(put 'Info-title-3-face 'face-alias 'info-title-3) + +(defface info-title-4 '((((type tty pc) (class color)) :weight bold) (t :weight bold :inherit variable-pitch)) - "Face for Info titles at level 4." + "Face for info titles at level 4." :group 'info) +;; backward-compatibility alias +(put 'Info-title-4-face 'face-alias 'info-title-4) (defface info-menu-header '((((type tty pc)) @@ -3686,10 +3694,10 @@ nil t) (let* ((c (preceding-char)) (face - (cond ((= c ?*) 'Info-title-1-face) - ((= c ?=) 'Info-title-2-face) - ((= c ?-) 'Info-title-3-face) - (t 'Info-title-4-face)))) + (cond ((= c ?*) 'info-title-1) + ((= c ?=) 'info-title-2) + ((= c ?-) 'info-title-3) + (t 'info-title-4)))) (put-text-property (match-beginning 1) (match-end 1) 'font-lock-face face)) ;; This is a serious problem for trying to handle multiple