Commit fbd798e2 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(standard-display-european):

Simplify since the function is not interactive any more.
Don't set the existing buffers to unibyte.
parent 6d57b1a3
...@@ -206,27 +206,17 @@ for users who call this function in `.emacs'." ...@@ -206,27 +206,17 @@ for users who call this function in `.emacs'."
(equal (aref standard-display-table 161) [161]))) (equal (aref standard-display-table 161) [161])))
(progn (progn
(standard-display-default 160 255) (standard-display-default 160 255)
(unless (or (memq window-system '(x w32)) (unless (or (memq window-system '(x w32)))
(interactive-p))
(and (terminal-coding-system) (and (terminal-coding-system)
(set-terminal-coding-system nil)))) (set-terminal-coding-system nil))))
;; If the user does this explicitly from Lisp (as in .emacs), ;; Turn off multibyte chars for more compatibility.
;; turn off multibyte chars for more compatibility. (setq-default enable-multibyte-characters nil)
(unless (interactive-p)
(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
;; unless some other has been specified. ;; unless some other has been specified.
(unless (interactive-p) (if (equal current-language-environment "English")
(if (equal current-language-environment "English") (set-language-environment "latin-1"))
(set-language-environment "latin-1"))) (unless (or noninteractive (memq window-system '(x w32)))
(unless (or noninteractive (memq window-system '(x w32))
(interactive-p))
;; Send those codes literally to a character-based terminal. ;; Send those codes literally to a character-based terminal.
;; If we are using single-byte characters, ;; If we are using single-byte characters,
;; it doesn't matter which coding system we use. ;; it doesn't matter which coding system we use.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment