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
ff52c940
Commit
ff52c940
authored
Feb 07, 2007
by
Juanma Barranquero
Browse files
(frame-set-background-mode): Use `color-values' and `display-color-p',
not `x-color-values' and `x-display-color-p'.
parent
9479c0ab
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
5 deletions
+7
-5
lisp/ChangeLog
lisp/ChangeLog
+4
-2
lisp/faces.el
lisp/faces.el
+3
-3
No files found.
lisp/ChangeLog
View file @
ff52c940
2007-02-07 Juanma Barranquero <lekktu@gmail.com>
* faces.el (face-valid-attribute-values): Use `defined-colors',
not its semi-obsolete alias `x-defined-colors'.
* faces.el (frame-set-background-mode): Use `color-values' and
`display-color-p', not `x-color-values' and `x-display-color-p'.
(face-valid-attribute-values): Use `defined-colors' instead of
`x-defined-colors'.
2007-02-07 Vinicius Jose Latorre <viniciusjl@ig.com.br>
lisp/faces.el
View file @
ff52c940
...
...
@@ -1617,17 +1617,17 @@ according to the `background-mode' and `display-type' frame parameters."
(
or
default-frame-background-mode
'dark
))
((
equal
bg-color
"unspecified-fg"
)
; inverted colors
(
if
(
eq
default-frame-background-mode
'light
)
'dark
'light
))
((
>=
(
apply
'+
(
x-
color-values
bg-color
frame
))
((
>=
(
apply
'+
(
color-values
bg-color
frame
))
;; Just looking at the screen, colors whose
;; values add up to .6 of the white total
;; still look dark to me.
(
*
(
apply
'+
(
x-
color-values
"white"
frame
))
.6
))
(
*
(
apply
'+
(
color-values
"white"
frame
))
.6
))
'light
)
(
t
'dark
)))
(
display-type
(
cond
((
null
window-system
)
(
if
(
tty-display-color-p
frame
)
'color
'mono
))
((
x-
display-color-p
frame
)
((
display-color-p
frame
)
'color
)
((
x-display-grayscale-p
frame
)
'grayscale
)
...
...
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