Mercurial > emacs
changeset 20906:64a8cdbdef42
(standard-display-european): If AUTO is nil,
clear multibyte in *scratch*, and load latin-1.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 16 Feb 1998 03:03:46 +0000 |
| parents | e646a6ae42cd |
| children | 9a55a557cb5a |
| files | lisp/disp-table.el |
| diffstat | 1 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/disp-table.el Mon Feb 16 03:02:53 1998 +0000 +++ b/lisp/disp-table.el Mon Feb 16 03:03:46 1998 +0000 @@ -186,7 +186,8 @@ With prefix argument, enable European character display iff arg is positive. Normally, this function turns off `enable-multibyte-characters' -for all Emacs buffers, because users who call this function +for subsequently created Emacs buffers, and for `*scratch*. +This is because users who call this function probably want to edit European characters in single-byte mode." ;; If the optional argument AUTO is non-nil, this function @@ -206,8 +207,12 @@ (set-terminal-coding-system nil))) ;; If the user does this explicitly, ;; turn off multibyte chars for more compatibility. - (or auto - (setq-default enable-multibyte-characters nil)) + (unless auto + (setq-default enable-multibyte-characters nil) + (if (get-buffer "*scratch*") + (with-current-buffer "*scratch*" + (set-buffer-multibyte nil) + (load "latin-1")))) (standard-display-8bit 160 255) (unless (or noninteractive (eq window-system 'x)) ;; Send those codes literally to a non-X terminal.