Commit 381e32f0 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(mouse-set-font): Make it a no-op if multiple fonts

aren't supported.  Print a message to that effect if invoked.
parent bb313871
2001-11-28 Eli Zaretskii <eliz@is.elta.co.il>
* mouse.el (mouse-set-font): Make it a no-op if multiple fonts
aren't supported. Print a message to that effect if invoked.
2001-11-27 Stephen Eglen <stephen@gnu.org>
 
* locate.el (locate): Put point at first matching file rather
......
......@@ -2136,10 +2136,11 @@ and selects that window."
(defun mouse-set-font (&rest fonts)
"Select an emacs font from a list of known good fonts and fontsets."
(interactive
(x-popup-menu
last-nonmenu-event
;; Append list of fontsets currently defined.
(append x-fixed-font-alist (list (generate-fontset-menu)))))
(and (display-multi-font-p)
(x-popup-menu
last-nonmenu-event
;; Append list of fontsets currently defined.
(append x-fixed-font-alist (list (generate-fontset-menu))))))
(if fonts
(let (font)
(while fonts
......@@ -2151,7 +2152,8 @@ and selects that window."
(error
(setq fonts (cdr fonts)))))
(if (null font)
(error "Font not found")))))
(error "Font not found")))
(message "Cannot change fonts on this display")))
;;; Bindings for mouse commands.
......
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