From f9de6f69e99d1fdd4a7f536e01effbbe30d1b6b9 Mon Sep 17 00:00:00 2001
From: Jason Rumney <jasonr@gnu.org>
Date: Sun, 27 Feb 2000 21:11:51 +0000
Subject: (mouse-set-font): Do not build fontset from chosen font.

---
 lisp/term/w32-win.el | 26 +++-----------------------
 1 file changed, 3 insertions(+), 23 deletions(-)

(limited to 'lisp/term')

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 1fc7bd3336..07d35c63b1 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -336,7 +336,6 @@ x-invocation args from which the X-related things are extracted, first
 the switch (e.g., \"-fg\") in the following code, and possible values
 \(e.g., \"black\") in the option handler code (e.g., x-handle-switch).
 This returns ARGS with the arguments that have been processed removed."
-  ;;(message "%s" args)
   (setq x-invocation-args args
 	args nil)
   (while x-invocation-args
@@ -901,9 +900,7 @@ Courier. These fonts are used in the font menu if the variable
   "Select a font. If `w32-use-w32-font-dialog' is non-nil (the default),
 use the Windows font dialog. Otherwise use a pop-up menu (like Emacs
 on other platforms) initialized with the fonts in
-`w32-fixed-font-alist'. Emacs will attempt to create a fontset from
-the font chosen, covering all the charsets that can be fully represented
-with the font."
+`w32-fixed-font-alist'."
   (interactive
    (if w32-use-w32-font-dialog
        (let ((chosen-font (w32-select-font)))
@@ -914,29 +911,12 @@ with the font."
       (if (fboundp 'new-fontset)
       (append w32-fixed-font-alist (list (generate-fontset-menu)))))))
   (if fonts
-      (let (font fontset xlfd resolved-font)
+      (let (font)
 	(while fonts
 	  (condition-case nil
 	      (progn
                 (setq font (car fonts))
-                (if (fontset-name-p font)
-                    (setq fontset font)
-                  (condition-case nil
-                      (setq resolved-font (x-resolve-font-name font)
-                            xlfd (x-decompose-font-name resolved-font)
-                            fontset
-                              (create-fontset-from-ascii-font
-                               font resolved-font
-                               (format "%s_%s_%s_%s"
-                                       (aref xlfd xlfd-regexp-family-subnum)
-                                       (aref xlfd xlfd-regexp-registry-subnum)
-                                       (aref xlfd xlfd-regexp-encoding-subnum)
-                                       (aref xlfd
-                                             xlfd-regexp-pixelsize-subnum))))
-                    (error nil)))
-                (if fontset
-                    (set-default-font fontset)
-                  (set-default-font font))
+		(set-default-font font)
                 (setq fonts nil))
 	    (error (setq fonts (cdr fonts)))))
 	(if (null font)
-- 
cgit v1.2.3