From 8eb1dc02a11982d9d7fdc85fc2cc1f1a30586692 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 29 May 2002 16:36:55 +0000 Subject: [PATCH] (mouse-set-font): Avoid misleading error message if user makes no selection. --- lisp/mouse.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index 01f4479465f..70fee40b53e 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -2175,11 +2175,12 @@ and selects that window." (defun mouse-set-font (&rest fonts) "Select an emacs font from a list of known good fonts and fontsets." (interactive - (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)))))) + (progn (unless (display-multi-font-p) + (error "Cannot change fonts on this display")) + (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 @@ -2191,8 +2192,7 @@ and selects that window." (error (setq fonts (cdr fonts))))) (if (null font) - (error "Font not found"))) - (message "Cannot change fonts on this display"))) + (error "Font not found"))))) ;;; Bindings for mouse commands. -- 2.39.5