diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-08-07 17:33:49 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-08-07 17:33:49 +0000 |
commit | 3a4beca534f568378f269e39bc75ab3db23613b2 (patch) | |
tree | 1acadc1bee458b00565ec3cb94779bea39a5e056 /lisp/term | |
parent | 4d90fdf56e97cd6d492116ccd5dd6cfd126491b2 (diff) | |
download | emacs-3a4beca534f568378f269e39bc75ab3db23613b2.tar.gz |
(x-list-fonts): Return "default" when appropriate.
(query-fontset): Add (alternative) alias definition.
Diffstat (limited to 'lisp/term')
-rw-r--r-- | lisp/term/pc-win.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el index fccb693c452..8ee6a0b88de 100644 --- a/lisp/term/pc-win.el +++ b/lisp/term/pc-win.el @@ -260,7 +260,10 @@ ;; From src/xfns.c (defun x-display-color-p (&optional display) 't) -(defun x-list-fonts (pattern &optional face frame) (list "default")) +(defun x-list-fonts (pattern &optional face frame maximum width) + (if (and (numberp width) (= width 1)) + (list "default") + (list "no-such-font"))) (defun x-color-defined-p (color) (numberp (msdos-color-translate color))) (defun x-display-pixel-width (&optional frame) (frame-width frame)) (defun x-display-pixel-height (&optional frame) (frame-height frame)) @@ -351,6 +354,9 @@ This is in addition to the primary selection.") (defun x-frob-font-slant (font which) font) +;; From src/fontset.c: +(fset 'query-fontset 'ignore) + ;; From lisp/term/x-win.el: make iconify-or-deiconify-frame a no-op. (fset 'iconify-or-deiconify-frame 'ignore) |