diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/info.el | 9 |
2 files changed, 11 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4333d84585c..7d3342b9f8b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-10-17 Eli Zaretskii <eliz@is.elta.co.il> + + * info.el (Info-title-1-face, Info-title-2-face) + (Info-title-3-face): Define colors for tty's. + 2000-10-16 Eli Zaretskii <eliz@is.elta.co.il> * term/pc-win.el (msdos-handle-reverse-video): Don't remove diff --git a/lisp/info.el b/lisp/info.el index 1f3d2ae07fa..e08b4e88ef1 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -2364,17 +2364,20 @@ the variable `Info-file-list-for-emacs'." (Info-goto-emacs-command-node command))))) (defface Info-title-1-face - '((t (:height 1.2 :inherit Info-title-2-face))) + '((((type tty pc) (class color)) (:foreground "lightred" :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 - '((t (:height 1.2 :inherit Info-title-3-face))) + '((((type tty pc) (class color)) (:foreground "yellow" :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 - '((t (:height 1.2 :weight bold :inherit variable-pitch))) + '((((type tty pc) (class color)) (:foreground "lightblue" :weight bold)) + (t (:height 1.2 :weight bold :inherit variable-pitch))) "Face for Info titles at level 3." :group 'info) |