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
98490598
Commit
98490598
authored
Oct 23, 2000
by
Miles Bader
Browse files
(header-line): Make more reasonable on mono/grayscale displays.
parent
7f1c969b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
25 additions
and
12 deletions
+25
-12
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/faces.el
lisp/faces.el
+20
-12
No files found.
lisp/ChangeLog
View file @
98490598
2000-10-23 Miles Bader <miles@lsi.nec.co.jp>
* faces.el (header-line): Make more reasonable on mono/grayscale
displays.
2000-10-23 Andrew Choi <akochoi@i-cable.com>
* cus-edit.el (custom-button-face): Use 3D look for mac.
...
...
lisp/faces.el
View file @
98490598
...
...
@@ -1552,18 +1552,26 @@ created."
;; happens to look good with the only current use of header-lines,
;; the info browser. XXX
(
:underline
t
))
(((
class
color
)
(
background
light
))
(
:box
(
:line-width
1
:style
released-button
)
:background
"grey90"
:foreground
"grey20"
:inherit
mode-line
))
(((
class
color
)
(
background
dark
))
(
:box
(
:line-width
1
:style
released-button
)
:background
"grey20"
:foreground
"grey90"
:inherit
mode-line
))
(((
class
mono
))
(
:box
(
:line-width
1
:style
released-button
)
:background
"grey"
:inherit
mode-line
))
(((
class
color
grayscale
)
(
background
light
))
(
:inherit
mode-line
:background
"grey90"
:foreground
"grey20"
:box
(
:line-width
1
:style
released-button
)))
(((
class
color
grayscale
)
(
background
dark
))
(
:inherit
mode-line
:background
"grey20"
:foreground
"grey90"
:box
(
:line-width
1
:style
released-button
)))
(((
class
mono
)
(
background
light
))
(
:inherit
mode-line
:background
"white"
:foreground
"black"
:inverse-video
nil
:box
nil
:underline
t
))
(((
class
mono
)
(
background
dark
))
(
:inherit
mode-line
:background
"black"
:foreground
"white"
:inverse-video
nil
:box
nil
:underline
t
))
(
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