From: Karl Heuer Date: Tue, 20 Jul 1999 00:49:54 +0000 (+0000) Subject: (mouse-set-font): If user uses w32 dialog but X-Git-Tag: emacs-pretest-21.0.90~7477 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=efaec94ebd0c9c8862a214912aea466ddf02ebc1;p=emacs.git (mouse-set-font): If user uses w32 dialog but selects no font, treat that as zero selections, not one. --- diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 55d680d5e5e..5067b46d15b 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -900,7 +900,8 @@ the font chosen, covering all the charsets that can be fully represented with the font." (interactive (if w32-use-w32-font-dialog - (list (w32-select-font)) + (let ((chosen-font (w32-select-font))) + (and chosen-font (list chosen-font))) (x-popup-menu last-nonmenu-event ;; Append list of fontsets currently defined.