diff options
| author | Kenichi Handa | 1997-08-03 02:51:30 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-08-03 02:51:30 +0000 |
| commit | 9ff9457b2d71a33db8ceef8bf6e5745e7db7338a (patch) | |
| tree | 7729e48550464b76e63c654d1b2d7d62fbdf54b0 | |
| parent | 5871092a2c633961c3b76d9a094932a5f06c8f0a (diff) | |
| download | emacs-9ff9457b2d71a33db8ceef8bf6e5745e7db7338a.tar.gz emacs-9ff9457b2d71a33db8ceef8bf6e5745e7db7338a.zip | |
Fix previous change.
| -rw-r--r-- | lisp/term/x-win.el | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index c16c021164d..d991f3b76a8 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el | |||
| @@ -650,10 +650,6 @@ This is in addition to the primary selection.") | |||
| 650 | (progn | 650 | (progn |
| 651 | ;; Create the standard fontset. | 651 | ;; Create the standard fontset. |
| 652 | (create-fontset-from-fontset-spec standard-fontset-spec) | 652 | (create-fontset-from-fontset-spec standard-fontset-spec) |
| 653 | ;; Create variants of the standard fontset. | ||
| 654 | ;;(create-fontset-from-fontset-spec standard-fontset-spec 'bold) | ||
| 655 | ;;(create-fontset-from-fontset-spec standard-fontset-spec 'italic) | ||
| 656 | ;;(create-fontset-from-fontset-spec standard-fontset-spec 'bold-italic) | ||
| 657 | 653 | ||
| 658 | ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...). | 654 | ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...). |
| 659 | (create-fontset-from-x-resource) | 655 | (create-fontset-from-x-resource) |
| @@ -687,10 +683,7 @@ This is in addition to the primary selection.") | |||
| 687 | (aset xlfd-fields xlfd-regexp-encoding-subnum "startup") | 683 | (aset xlfd-fields xlfd-regexp-encoding-subnum "startup") |
| 688 | (setq fontset (x-compose-font-name xlfd-fields)) | 684 | (setq fontset (x-compose-font-name xlfd-fields)) |
| 689 | (setq fontset-spec (concat fontset ", ascii:" font)) | 685 | (setq fontset-spec (concat fontset ", ascii:" font)) |
| 690 | (create-fontset-from-fontset-spec fontset-spec nil t) | 686 | (create-fontset-from-fontset-spec fontset-spec t) |
| 691 | ;;(create-fontset-from-fontset-spec fontset-spec 'bold t) | ||
| 692 | ;;(create-fontset-from-fontset-spec fontset-spec 'italic t) | ||
| 693 | ;;(create-fontset-from-fontset-spec fontset-spec 'bold-italic t) | ||
| 694 | (setq fontset-alias-alist | 687 | (setq fontset-alias-alist |
| 695 | (cons (cons fontset font) fontset-alias-alist))) | 688 | (cons (cons fontset font) fontset-alias-alist))) |
| 696 | ))))) | 689 | ))))) |