changeset 92764:79b4e32b9b79

(reset-language-environment, set-language-environment-nonascii-translation): Don't set-unibyte-charset.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 12 Mar 2008 17:48:00 +0000
parents 5d8ccd2d65e2
children 8a7561cc8360
files lisp/ChangeLog lisp/international/mule-cmds.el
diffstat 2 files changed, 13 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Mar 12 15:26:49 2008 +0000
+++ b/lisp/ChangeLog	Wed Mar 12 17:48:00 2008 +0000
@@ -1,5 +1,8 @@
 2008-03-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* international/mule-cmds.el (reset-language-environment)
+	(set-language-environment-nonascii-translation): Don't set-unibyte-charset.
+
 	* doc-view.el: Remove all cb-args, use closures instead.
 	(doc-view-sentinel): Merge doc-view-dvi->pdf-sentinel,
 	doc-view-ps->pdf-sentinel, and doc-view-pdf->txt-sentinel (which was
--- a/lisp/international/mule-cmds.el	Wed Mar 12 15:26:49 2008 +0000
+++ b/lisp/international/mule-cmds.el	Wed Mar 12 17:48:00 2008 +0000
@@ -1775,7 +1775,11 @@
   ;; (set-terminal-coding-system-internal nil)
   ;; (set-keyboard-coding-system-internal nil)
 
-  (set-unibyte-charset 'iso-8859-1))
+  ;; Back in Emacs-20, it was necessary to provide some fallback implicit
+  ;; conversion, because almost no packages handled coding-system issues.
+  ;; Nowadays it'd just paper over bugs.
+  ;; (set-unibyte-charset 'iso-8859-1)
+  )
 
 (reset-language-environment)
 
@@ -1964,7 +1968,11 @@
     (or (and (charsetp nonascii)
 	     (get-charset-property nonascii :ascii-compatible-p))
 	(setq nonascii 'iso-8859-1))
-    (set-unibyte-charset nonascii)))
+    ;; Back in Emacs-20, it was necessary to provide some fallback implicit
+    ;; conversion, because almost no packages handled coding-system issues.
+    ;; Nowadays it'd just paper over bugs.
+    ;; (set-unibyte-charset nonascii)
+    ))
 
 (defun set-language-environment-charset (language-name)
   "Do various charset setups for language environment LANGUAGE-NAME."