Mercurial > emacs
changeset 41633:dab4b3303b4c
(mouse-set-font): Make it a no-op if multiple fonts
aren't supported. Print a message to that effect if invoked.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Wed, 28 Nov 2001 17:14:07 +0000 |
| parents | 38da3e26f677 |
| children | 9913d3ce1971 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 7 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Wed Nov 28 17:09:34 2001 +0000 +++ b/lisp/mouse.el Wed Nov 28 17:14:07 2001 +0000 @@ -2136,10 +2136,11 @@ (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 @@ (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.