(mouse-set-font): If user uses w32 dialog but

[bpt/emacs.git] / lisp / term / w32-win.el

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 55d680d..5067b46 100644 (file)
--- 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.