diff options
| author | Karl Heuer <[email protected]> | 1999-07-20 00:49:54 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1999-07-20 00:49:54 +0000 |
| commit | efaec94ebd0c9c8862a214912aea466ddf02ebc1 (patch) | |
| tree | 9ca3662a403ff52341e4d035e274129b1acd3df1 /lisp/term | |
| parent | c47b5bbea9f4baf7f3ed32700adda543e3502ef7 (diff) | |
(mouse-set-font): If user uses w32 dialog but
selects no font, treat that as zero selections, not one.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/w32-win.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 55d680d5e5..5067b46d15 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. |