Mercurial > emacs
changeset 69545:c051e02e3174
(mouse-set-font): Mention w32-list-proportional-fonts in the doc string.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 18 Mar 2006 12:57:11 +0000 |
| parents | 8c5b4b2e75e6 |
| children | fa6cedf25a5b |
| files | lisp/term/w32-win.el |
| diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/w32-win.el Sat Mar 18 12:30:21 2006 +0000 +++ b/lisp/term/w32-win.el Sat Mar 18 12:57:11 2006 +0000 @@ -1198,11 +1198,15 @@ (set-fontset-font nil (make-char 'japanese-jisx0208-1978) '("*" . "JISX0208-SJIS")) (defun mouse-set-font (&rest fonts) - "Select a font. + "Select an Emacs font from a list of known good fonts and fontsets. + If `w32-use-w32-font-dialog' is non-nil (the default), use the Windows -font dialog to get the matching FONTS. Otherwise use a pop-up menu -\(like Emacs on other platforms) initialized with the fonts in -`w32-fixed-font-alist'." +font dialog to display the list of possible fonts. Otherwise use a +pop-up menu (like Emacs does on other platforms) initialized with +the fonts in `w32-fixed-font-alist'. +If `w32-list-proportional-fonts' is non-nil, add proportional fonts +to the list in the font selection dialog (the fonts listed by the +pop-up menu are unaffected by `w32-list-proportional-fonts')." (interactive (if w32-use-w32-font-dialog (let ((chosen-font (w32-select-font (selected-frame)