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

aren't supported.  Print a message to that effect if invoked.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5152ff1710a0f7f5535ccef262629358f29cab5..af7972964b9d0c11ca2d487c3ac8fd75a04d6b0c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 0ad52d5d7d724ffc88fe6b93e5a194a4ce3beebf..4ca47e5ccc80279a5fac4e26f88f580dc79ae4f2 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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")))
 \f
 ;;; Bindings for mouse commands.