mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

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

Browse Source 
aren't supported.  Print a message to that effect if invoked.
This commit is contained in:
Eli Zaretskii 2001-11-28 17:15:33 +00:00
parent bb313871fb
commit 381e32f064
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

12
lisp/mouse.el
View File

@ -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.