Mercurial > emacs

comparison lisp/info.el @ 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 58dcb71db77b
children 512a76e42d3f a1b34dec1104
comparison
equal deleted inserted replaced
63207:fecefbfcd215 63208:0502430a647c
3522 (Info-goto-emacs-command-node 3522 (Info-goto-emacs-command-node
3523 (read-command "Find documentation for command: "))) 3523 (read-command "Find documentation for command: ")))
3524 (t 3524 (t
3525 (Info-goto-emacs-command-node command))))) 3525 (Info-goto-emacs-command-node command)))))
3526 3526
3527 (defface Info-title-1-face 3527 (defface info-title-1
3528 '((((type tty pc) (class color)) :foreground "green" :weight bold) 3528 '((((type tty pc) (class color)) :foreground "green" :weight bold)
3529 (t :height 1.2 :inherit Info-title-2-face)) 3529 (t :height 1.2 :inherit info-title-2))
3530 "Face for Info titles at level 1." 3530 "Face for info titles at level 1."
3531 :group 'info) 3531 :group 'info)
3532 3532 ;; backward-compatibility alias
3533 (defface Info-title-2-face 3533 (put 'Info-title-1-face 'face-alias 'info-title-1)
3534
3535 (defface info-title-2
3534 '((((type tty pc) (class color)) :foreground "lightblue" :weight bold) 3536 '((((type tty pc) (class color)) :foreground "lightblue" :weight bold)
3535 (t :height 1.2 :inherit Info-title-3-face)) 3537 (t :height 1.2 :inherit info-title-3))
3536 "Face for Info titles at level 2." 3538 "Face for info titles at level 2."
3537 :group 'info) 3539 :group 'info)
3538 3540 ;; backward-compatibility alias
3539 (defface Info-title-3-face 3541 (put 'Info-title-2-face 'face-alias 'info-title-2)
3542
3543 (defface info-title-3
3540 '((((type tty pc) (class color)) :weight bold) 3544 '((((type tty pc) (class color)) :weight bold)
3541 (t :height 1.2 :inherit Info-title-4-face)) 3545 (t :height 1.2 :inherit info-title-4))
3542 "Face for Info titles at level 3." 3546 "Face for info titles at level 3."
3543 :group 'info) 3547 :group 'info)
3544 3548 ;; backward-compatibility alias
3545 (defface Info-title-4-face 3549 (put 'Info-title-3-face 'face-alias 'info-title-3)
3550
3551 (defface info-title-4
3546 '((((type tty pc) (class color)) :weight bold) 3552 '((((type tty pc) (class color)) :weight bold)
3547 (t :weight bold :inherit variable-pitch)) 3553 (t :weight bold :inherit variable-pitch))
3548 "Face for Info titles at level 4." 3554 "Face for info titles at level 4."
3549 :group 'info) 3555 :group 'info)
3556 ;; backward-compatibility alias
3557 (put 'Info-title-4-face 'face-alias 'info-title-4)
3550 3558
3551 (defface info-menu-header 3559 (defface info-menu-header
3552 '((((type tty pc)) 3560 '((((type tty pc))
3553 :underline t 3561 :underline t
3554 :weight bold) 3562 :weight bold)
3684 (when not-fontified-p 3692 (when not-fontified-p
3685 (while (re-search-forward "\n\\([^ \t\n].+\\)\n\\(\\*\\*+\\|==+\\|--+\\|\\.\\.+\\)$" 3693 (while (re-search-forward "\n\\([^ \t\n].+\\)\n\\(\\*\\*+\\|==+\\|--+\\|\\.\\.+\\)$"
3686 nil t) 3694 nil t)
3687 (let* ((c (preceding-char)) 3695 (let* ((c (preceding-char))
3688 (face 3696 (face
3689 (cond ((= c ?*) 'Info-title-1-face) 3697 (cond ((= c ?*) 'info-title-1)
3690 ((= c ?=) 'Info-title-2-face) 3698 ((= c ?=) 'info-title-2)
3691 ((= c ?-) 'Info-title-3-face) 3699 ((= c ?-) 'info-title-3)
3692 (t 'Info-title-4-face)))) 3700 (t 'info-title-4))))
3693 (put-text-property (match-beginning 1) (match-end 1) 3701 (put-text-property (match-beginning 1) (match-end 1)
3694 'font-lock-face face)) 3702 'font-lock-face face))
3695 ;; This is a serious problem for trying to handle multiple 3703 ;; This is a serious problem for trying to handle multiple
3696 ;; frame types at once. We want this text to be invisible 3704 ;; frame types at once. We want this text to be invisible
3697 ;; on frames that can display the font above. 3705 ;; on frames that can display the font above.