206 |
(equal (aref standard-display-table 161) [161]))) |
(equal (aref standard-display-table 161) [161]))) |
207 |
(progn |
(progn |
208 |
(standard-display-default 160 255) |
(standard-display-default 160 255) |
209 |
(unless (or (memq window-system '(x w32)) |
(unless (or (memq window-system '(x w32))) |
|
(interactive-p)) |
|
210 |
(and (terminal-coding-system) |
(and (terminal-coding-system) |
211 |
(set-terminal-coding-system nil)))) |
(set-terminal-coding-system nil)))) |
212 |
;; If the user does this explicitly from Lisp (as in .emacs), |
;; Turn off multibyte chars for more compatibility. |
213 |
;; turn off multibyte chars for more compatibility. |
(setq-default enable-multibyte-characters nil) |
214 |
(unless (interactive-p) |
|
215 |
(setq-default enable-multibyte-characters nil) |
;; Switch to Latin-1 language environment |
|
(mapcar (lambda (buffer) |
|
|
(with-current-buffer buffer |
|
|
(if enable-multibyte-characters |
|
|
(set-buffer-multibyte nil)))) |
|
|
(buffer-list))) |
|
|
;; If the user does this explicitly, |
|
|
;; switch to Latin-1 language environment |
|
216 |
;; unless some other has been specified. |
;; unless some other has been specified. |
217 |
(unless (interactive-p) |
(if (equal current-language-environment "English") |
218 |
(if (equal current-language-environment "English") |
(set-language-environment "latin-1")) |
219 |
(set-language-environment "latin-1"))) |
(unless (or noninteractive (memq window-system '(x w32))) |
|
(unless (or noninteractive (memq window-system '(x w32)) |
|
|
(interactive-p)) |
|
220 |
;; Send those codes literally to a character-based terminal. |
;; Send those codes literally to a character-based terminal. |
221 |
;; If we are using single-byte characters, |
;; If we are using single-byte characters, |
222 |
;; it doesn't matter which coding system we use. |
;; it doesn't matter which coding system we use. |