procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(display-color-p): Use framep-on-display.

Browse source 
(display-grayscale-p): New function.
This commit is contained in:
Eli Zaretskii 2000-02-02 11:38:16 +00:00
parent 9911648b58
commit d5179a0172
2 changed files with 27 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/ChangeLog
View file

@ -1,3 +1,18 @@
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.

17
lisp/faces.el
View file

@ -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.