# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1006967647 0
# Node ID dab4b3303b4ca5c403aad5867b926772f8935b8e
# Parent  38da3e26f6777abd2e7026c4fdc29fe9c02f6818
(mouse-set-font): Make it a no-op if multiple fonts
aren't supported.  Print a message to that effect if invoked.

diff -r 38da3e26f677 -r dab4b3303b4c lisp/mouse.el
--- 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.