From 65c9d7855ef3883bcc8d162853775a961b9f7c73 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 16 Feb 1998 03:03:46 +0000 Subject: [PATCH] (standard-display-european): If AUTO is nil, clear multibyte in *scratch*, and load latin-1. --- lisp/disp-table.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/disp-table.el b/lisp/disp-table.el index f023c42f638..01a1fce17de 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -186,7 +186,8 @@ codes for apostrophe and space. 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 @@ probably want to edit European characters in single-byte mode." (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. -- 2.39.2