Commit cee30b8f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(x-list-fonts): Return "default" when appropriate.

(query-fontset): Add (alternative) alias definition.
parent 020c3567
......@@ -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)
;; 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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment