Mercurial > emacs
comparison lisp/term/pc-win.el @ 19211:e83ac35f9bcb
(x-list-fonts): Return "default" when appropriate.
(query-fontset): Add (alternative) alias definition.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 07 Aug 1997 17:33:49 +0000 |
| parents | 94ca3c126cee |
| children | 7fb99affa49a |
comparison
equal
deleted
inserted
replaced
| 19210:ad26cf3804c3 | 19211:e83ac35f9bcb |
|---|---|
| 258 ;; returned value matters. Also, by the way, recall that `ignore' is | 258 ;; returned value matters. Also, by the way, recall that `ignore' is |
| 259 ;; a useful function for returning 'nil regardless of argument. | 259 ;; a useful function for returning 'nil regardless of argument. |
| 260 | 260 |
| 261 ;; From src/xfns.c | 261 ;; From src/xfns.c |
| 262 (defun x-display-color-p (&optional display) 't) | 262 (defun x-display-color-p (&optional display) 't) |
| 263 (defun x-list-fonts (pattern &optional face frame) (list "default")) | 263 (defun x-list-fonts (pattern &optional face frame maximum width) |
| 264 (if (and (numberp width) (= width 1)) | |
| 265 (list "default") | |
| 266 (list "no-such-font"))) | |
| 264 (defun x-color-defined-p (color) (numberp (msdos-color-translate color))) | 267 (defun x-color-defined-p (color) (numberp (msdos-color-translate color))) |
| 265 (defun x-display-pixel-width (&optional frame) (frame-width frame)) | 268 (defun x-display-pixel-width (&optional frame) (frame-width frame)) |
| 266 (defun x-display-pixel-height (&optional frame) (frame-height frame)) | 269 (defun x-display-pixel-height (&optional frame) (frame-height frame)) |
| 267 (defun x-display-planes (&optional frame) 4) ; 3 for background, actually | 270 (defun x-display-planes (&optional frame) 4) ; 3 for background, actually |
| 268 (defun x-display-color-cells (&optional frame) 16) ; ??? | 271 (defun x-display-color-cells (&optional frame) 16) ; ??? |
| 348 | 351 |
| 349 ;; From lisp/faces.el: we only have one font, so always return | 352 ;; From lisp/faces.el: we only have one font, so always return |
| 350 ;; it, no matter which variety they've asked for. | 353 ;; it, no matter which variety they've asked for. |
| 351 (defun x-frob-font-slant (font which) | 354 (defun x-frob-font-slant (font which) |
| 352 font) | 355 font) |
| 356 | |
| 357 ;; From src/fontset.c: | |
| 358 (fset 'query-fontset 'ignore) | |
| 353 | 359 |
| 354 ;; From lisp/term/x-win.el: make iconify-or-deiconify-frame a no-op. | 360 ;; From lisp/term/x-win.el: make iconify-or-deiconify-frame a no-op. |
| 355 (fset 'iconify-or-deiconify-frame 'ignore) | 361 (fset 'iconify-or-deiconify-frame 'ignore) |
| 356 | 362 |
| 357 ;; From lisp/frame.el | 363 ;; From lisp/frame.el |