[Emacs-diffs] Changes to emacs/lisp/info.el

[Miles Bader]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.430 emacs/lisp/info.el:1.431
*** emacs/lisp/info.el:1.430    Mon Jun  6 12:47:51 2005
--- emacs/lisp/info.el  Fri Jun 10 08:58:53 2005
***************
*** 3524,3552 ****
          (t
           (Info-goto-emacs-command-node command)))))
  
! (defface Info-title-1-face
    '((((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."
    :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))
!   "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))
!   "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))
!   "Face for Info titles at level 4."
    :group 'info)
  
  (defface info-menu-header
    '((((type tty pc))
--- 3524,3560 ----
          (t
           (Info-goto-emacs-command-node command)))))
  
! (defface info-title-1
    '((((type tty pc) (class color)) :foreground "green" :weight bold)
!     (t :height 1.2 :inherit info-title-2))
!   "Face for info titles at level 1."
    :group 'info)
+ ;; 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 for info titles at level 2."
    :group 'info)
+ ;; 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 for info titles at level 3."
    :group 'info)
+ ;; 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."
    :group 'info)
+ ;; backward-compatibility alias
+ (put 'Info-title-4-face 'face-alias 'info-title-4)
  
  (defface info-menu-header
    '((((type tty pc))
***************
*** 3686,3695 ****
                                    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))))
              (put-text-property (match-beginning 1) (match-end 1)
                                 'font-lock-face face))
            ;; This is a serious problem for trying to handle multiple
--- 3694,3703 ----
                                    nil t)
            (let* ((c (preceding-char))
                   (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