# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 932431794 0
# Node ID 22d526660026e7b8d76c70ad601b5598cd086090
# Parent  a78f0c2654d63cd3307be1c91c9a9a0c3e4c1bd9
(mouse-set-font): If user uses w32 dialog but
selects no font, treat that as zero selections, not one.

diff -r a78f0c2654d6 -r 22d526660026 lisp/term/w32-win.el
--- a/lisp/term/w32-win.el	Mon Jul 19 22:21:44 1999 +0000
+++ b/lisp/term/w32-win.el	Tue Jul 20 00:49:54 1999 +0000
@@ -900,7 +900,8 @@
 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.