Mercurial > emacs

comparison lisp/term/pc-win.el @ 13484:be831ed47a75

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-display-color-p): Accept optional arg.
author Richard M. Stallman <rms@gnu.org>
date Fri, 10 Nov 1995 17:40:47 +0000
parents b37425ecb3f0
children 6da84b713ae7
comparison
equal deleted inserted replaced
13483:6ae78193650e 13484:be831ed47a75
106 ;; values returned are questionable, but usually only the form of the 106 ;; values returned are questionable, but usually only the form of the
107 ;; returned value matters. Also, by the way, recall that `ignore' is 107 ;; returned value matters. Also, by the way, recall that `ignore' is
108 ;; a useful function for returning 'nil regardless of argument. 108 ;; a useful function for returning 'nil regardless of argument.
109 109
110 ;; From src/xfns.c 110 ;; From src/xfns.c
111 (defun x-display-color-p () 't) 111 (defun x-display-color-p (&optional display) 't)
112 (fset 'focus-frame 'ignore) 112 (fset 'focus-frame 'ignore)
113 (fset 'unfocus-frame 'ignore) 113 (fset 'unfocus-frame 'ignore)
114 (defun x-list-fonts (pattern &optional face frame) (list "default")) 114 (defun x-list-fonts (pattern &optional face frame) (list "default"))
115 (defun x-color-defined-p (color) (numberp (msdos-color-translate color))) 115 (defun x-color-defined-p (color) (numberp (msdos-color-translate color)))
116 (defun x-display-pixel-width (&optional frame) (* 8 (frame-width frame))) 116 (defun x-display-pixel-width (&optional frame) (* 8 (frame-width frame)))