Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d5179a01
Commit
d5179a01
authored
Feb 02, 2000
by
Eli Zaretskii
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(display-color-p): Use framep-on-display.
(display-grayscale-p): New function.
parent
9911648b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
27 additions
and
5 deletions
+27
-5
lisp/ChangeLog
lisp/ChangeLog
+15
-0
lisp/faces.el
lisp/faces.el
+12
-5
No files found.
lisp/ChangeLog
View file @
d5179a01
2000-02-02 Eli Zaretskii <eliz@is.elta.co.il>
* frame.el (frames-on-display-list, framep-on-display): New
functions.
(display-mouse-p, display-popup-menus-p, display-graphic-p)
(display-selections-p, display-screens, display-pixel-width)
(display-pixel-height, display-mm-width, display-mm-height)
(display-backing-store, display-save-under, display-planes)
(display-color-cells, display-visual-class): New functions.
* term/tty-colors.el (tty-color-gray-shades): New function.
* faces.el (display-color-p): Use framep-on-display.
(display-grayscale-p): New function.
2000-01-31 Dave Love <fx@gnu.org>
* emacs-lisp/fontset.el (standard-fontset-spec): Purecopy it.
...
...
lisp/faces.el
View file @
d5179a01
...
...
@@ -1201,13 +1201,20 @@ If COLOR is the symbol `unspecified' or one of the strings
The optional argument DISPLAY specifies which display to ask about.
DISPLAY should be either a frame or a display name (a string).
If omitted or nil, that stands for the selected frame's display."
(
if
(
and
(
stringp
display
)
(
not
(
fboundp
'x-display-list
)))
nil
(
if
(
memq
(
framep
(
or
display
(
selected-frame
)))
'
(
x
w32
))
(
xw-display-color-p
display
)
(
tty-display-color-p
display
))))
(
if
(
memq
(
framep-on-display
display
)
'
(
x
w32
))
(
xw-display-color-p
display
)
(
tty-display-color-p
display
)))
(
defalias
'x-display-color-p
'display-color-p
)
(
defun
display-grayscale-p
(
&optional
display
)
"Return non-nil if frames on DISPLAY can display shades of gray."
(
let
((
frame-type
(
framep-on-display
display
)))
(
cond
((
memq
frame-type
'
(
x
w32
mac
))
(
x-display-grayscale-p
display
))
(
t
(
>
(
tty-color-gray-shades
display
)
2
)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Background mode.
...
...
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