]> code.delx.au - gnu-emacs/commitdiff
Fix previous change.
authorKenichi Handa <handa@m17n.org>
Sun, 3 Aug 1997 02:51:30 +0000 (02:51 +0000)
committerKenichi Handa <handa@m17n.org>
Sun, 3 Aug 1997 02:51:30 +0000 (02:51 +0000)
lisp/term/x-win.el

index c16c021164dabb0a2744335ba01c6af69b3b91c6..d991f3b76a8e92bb46bf84eea367617fe31acaef 100644 (file)
@@ -650,10 +650,6 @@ This is in addition to the primary selection.")
     (progn
       ;; Create the standard fontset.
       (create-fontset-from-fontset-spec standard-fontset-spec)
-      ;; Create variants of the standard fontset.
-      ;;(create-fontset-from-fontset-spec standard-fontset-spec 'bold)
-      ;;(create-fontset-from-fontset-spec standard-fontset-spec 'italic)
-      ;;(create-fontset-from-fontset-spec standard-fontset-spec 'bold-italic)
 
       ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...).
       (create-fontset-from-x-resource)
@@ -687,10 +683,7 @@ This is in addition to the primary selection.")
                (aset xlfd-fields xlfd-regexp-encoding-subnum "startup")
                (setq fontset (x-compose-font-name xlfd-fields))
                (setq fontset-spec (concat fontset ", ascii:" font))
-               (create-fontset-from-fontset-spec fontset-spec nil t)
-               ;;(create-fontset-from-fontset-spec fontset-spec 'bold t)
-               ;;(create-fontset-from-fontset-spec fontset-spec 'italic t)
-               ;;(create-fontset-from-fontset-spec fontset-spec 'bold-italic t)
+               (create-fontset-from-fontset-spec fontset-spec t)
                (setq fontset-alias-alist
                      (cons (cons fontset font) fontset-alias-alist)))
              )))))