diff options
| author | Richard M. Stallman | 1998-05-08 01:53:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-05-08 01:53:55 +0000 |
| commit | 58c817539d68b811a06124bd47cdfc7bfea7cad2 (patch) | |
| tree | de5069a85292cb08e83ccd222e842feecb5352df | |
| parent | 4aa5eb5a429988ca6fffe4a0addb756f77a9d922 (diff) | |
| download | emacs-58c817539d68b811a06124bd47cdfc7bfea7cad2.tar.gz emacs-58c817539d68b811a06124bd47cdfc7bfea7cad2.zip | |
(standard-display-european): Don't call
set-terminal-coding-system when window-system is w32.
| -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." | |||
| 203 | (equal (aref standard-display-table 161) [161]))) | 203 | (equal (aref standard-display-table 161) [161]))) |
| 204 | (progn | 204 | (progn |
| 205 | (standard-display-default 160 255) | 205 | (standard-display-default 160 255) |
| 206 | (unless (eq window-system 'x) | 206 | (unless (memq window-system '(x w32)) |
| 207 | (set-terminal-coding-system nil))) | 207 | (set-terminal-coding-system nil))) |
| 208 | ;; If the user does this explicitly, | 208 | ;; If the user does this explicitly, |
| 209 | ;; turn off multibyte chars for more compatibility. | 209 | ;; turn off multibyte chars for more compatibility. |
| @@ -218,7 +218,7 @@ probably want to edit European characters in single-byte mode." | |||
| 218 | (unless auto | 218 | (unless auto |
| 219 | (if (equal current-language-environment "English") | 219 | (if (equal current-language-environment "English") |
| 220 | (set-language-environment "latin-1"))) | 220 | (set-language-environment "latin-1"))) |
| 221 | (unless (or noninteractive (eq window-system 'x)) | 221 | (unless (or noninteractive (memq window-system '(x w32))) |
| 222 | ;; Send those codes literally to a non-X terminal. | 222 | ;; Send those codes literally to a non-X terminal. |
| 223 | ;; If AUTO is nil, we are using single-byte characters, | 223 | ;; If AUTO is nil, we are using single-byte characters, |
| 224 | ;; so it doesn't matter which one we use. | 224 | ;; so it doesn't matter which one we use. |