mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix previous change.

Browse source
This commit is contained in:
Kenichi Handa 1997-08-03 02:51:30 +00:00
parent 5871092a2c
commit 9ff9457b2d
1 changed files with 1 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/term/x-win.el
View 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)))
)))))