From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 16 Feb 1998 03:03:46 +0000 (+0000)
Subject: (standard-display-european): If AUTO is nil,
X-Git-Tag: emacs-20.3~2168
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65c9d7855ef3883bcc8d162853775a961b9f7c73;p=emacs.git

(standard-display-european): If AUTO is nil,
clear multibyte in *scratch*, and load latin-1.
---

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.