Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a114b1ca
Commit
a114b1ca
authored
Sep 17, 2000
by
Miles Bader
Browse files
(header-line): Change defaults to be less confusing when mixed with mode-lines.
parent
50ac70af
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
17 additions
and
6 deletions
+17
-6
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/faces.el
lisp/faces.el
+14
-6
No files found.
lisp/ChangeLog
View file @
a114b1ca
2000-09-18 Miles Bader <miles@gnu.org>
* faces.el (header-line): Change defaults to be less confusing
when mixed with mode-lines.
* info.el (Info-fontify-node): Make a few cleanups.
Add extra `help-echo' and `local-map' props to node xrefs.
Use header-specific faces for node-names & xrefs.
...
...
lisp/faces.el
View file @
a114b1ca
...
...
@@ -1529,12 +1529,20 @@ created."
(put 'modeline 'face-alias 'mode-line)
(defface header-line
'
((((
type
x
)
(
class
color
))
(
:box
(
:line-width
2
:style
released-button
)
:background
"grey75"
:foreground
"black"
))
(((
type
w32
)
(
class
color
))
(
:box
(
:line-width
2
:style
released-button
)
:background
"grey75"
:foreground
"black"
))
'((((type tty))
(:inverse-video t))
(((class color) (background light))
(:box (:line-width 1 :style released-button)
:background "grey90"
:inherit mode-line))
(((class color) (background dark))
(:box (:line-width 1 :style released-button)
:background "grey20"
:inherit mode-line))
(((class mono))
(:box (:line-width 1 :style released-button)
:background "grey"
:inherit mode-line))
(t
(:inverse-video t)))
"Basic header-line face."
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment