diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-08 01:53:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-08 01:53:55 +0000 |
| commit | 58c817539d68b811a06124bd47cdfc7bfea7cad2 (patch) | |
| tree | de5069a85292cb08e83ccd222e842feecb5352df /lisp/disp-table.el | |
| parent | 4aa5eb5a429988ca6fffe4a0addb756f77a9d922 (diff) | |
| download | emacs-58c817539d68b811a06124bd47cdfc7bfea7cad2.tar.gz | |
(standard-display-european): Don't call
set-terminal-coding-system when window-system is w32.
Diffstat (limited to 'lisp/disp-table.el')
| -rw-r--r-- | lisp/disp-table.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el index 849a6a92e8a..1fe43c43d11 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -203,7 +203,7 @@ probably want to edit European characters in single-byte mode." (equal (aref standard-display-table 161) [161]))) (progn (standard-display-default 160 255) - (unless (eq window-system 'x) + (unless (memq window-system '(x w32)) (set-terminal-coding-system nil))) ;; If the user does this explicitly, ;; turn off multibyte chars for more compatibility. @@ -218,7 +218,7 @@ probably want to edit European characters in single-byte mode." (unless auto (if (equal current-language-environment "English") (set-language-environment "latin-1"))) - (unless (or noninteractive (eq window-system 'x)) + (unless (or noninteractive (memq window-system '(x w32))) ;; Send those codes literally to a non-X terminal. ;; If AUTO is nil, we are using single-byte characters, ;; so it doesn't matter which one we use. |