aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiles Bader2000-10-12 07:52:42 +0000
committerMiles Bader2000-10-12 07:52:42 +0000
commit1cb4393ea7e023da544a290acb4f171efe22dec8 (patch)
tree61ec1e842abf8dd1f095509261c453fefa150435
parent4fb2ad983113708e3d1867ac74e91fb84ffeeb18 (diff)
downloademacs-1cb4393ea7e023da544a290acb4f171efe22dec8.tar.gz
emacs-1cb4393ea7e023da544a290acb4f171efe22dec8.zip
(header-line): Change tty-variant to use underlining.
-rw-r--r--lisp/ChangeLog2
-rw-r--r--lisp/faces.el11
2 files changed, 12 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d1f4dce9159..4297e1a4d11 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
12000-10-12 Miles Bader <miles@lsi.nec.co.jp> 12000-10-12 Miles Bader <miles@lsi.nec.co.jp>
2 2
3 * faces.el (header-line): Change tty-variant to use underlining.
4
3 * isearch.el (isearch-set-lazy-highlight-faces-at): New function. 5 * isearch.el (isearch-set-lazy-highlight-faces-at): New function.
4 (isearch-highlight): Restore lazy-isearch face properties at old 6 (isearch-highlight): Restore lazy-isearch face properties at old
5 position, and suppress them at new position. 7 position, and suppress them at new position.
diff --git a/lisp/faces.el b/lisp/faces.el
index fc026154e21..89c3bf73f3c 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1535,7 +1535,16 @@ created."
1535 1535
1536(defface header-line 1536(defface header-line
1537 '((((type tty)) 1537 '((((type tty))
1538 (:inverse-video t)) 1538 ;; This used to be `:inverse-video t', but that doesn't look very
1539 ;; good when combined with inverse-video mode-lines and multiple
1540 ;; windows. Underlining looks better, and is more consistent with
1541 ;; the window-system face variants, which deemphasize the
1542 ;; header-line in relation to the mode-line face. If a terminal
1543 ;; can't underline, then the header-line will end up without any
1544 ;; highlighting; this may be too confusing in general, although it
1545 ;; happens to look good with the only current use of header-lines,
1546 ;; the info browser. XXX
1547 (:underline t))
1539 (((class color) (background light)) 1548 (((class color) (background light))
1540 (:box (:line-width 1 :style released-button) 1549 (:box (:line-width 1 :style released-button)
1541 :background "grey90" :foreground "grey20" 1550 :background "grey90" :foreground "grey20"