Mercurial > emacs

changeset 63208:0502430a647c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 fecefbfcd215
children 24689001fa22
files lisp/ChangeLog lisp/info.el
diffstat 2 files changed, 33 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Jun 10 08:48:45 2005 +0000
+++ b/lisp/ChangeLog	Fri Jun 10 08:58:53 2005 +0000
@@ -1,5 +1,12 @@
 2005-06-10  Miles Bader  <miles@gnu.org>
 
+	* 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.
+
 	* hilit-chg.el (highlight-changes, highlight-changes-delete):
 	Remove "-face" suffix from face names.
 	(highlight-changes-face, highlight-changes-delete-face):
--- 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