diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/international/mule-cmds.el | 12 |
2 files changed, 13 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ef3495eada7..315d69af254 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2008-03-12 Stefan Monnier <monnier@iro.umontreal.ca> | 1 | 2008-03-12 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 2 | ||
| 3 | * international/mule-cmds.el (reset-language-environment) | ||
| 4 | (set-language-environment-nonascii-translation): Don't set-unibyte-charset. | ||
| 5 | |||
| 3 | * doc-view.el: Remove all cb-args, use closures instead. | 6 | * doc-view.el: Remove all cb-args, use closures instead. |
| 4 | (doc-view-sentinel): Merge doc-view-dvi->pdf-sentinel, | 7 | (doc-view-sentinel): Merge doc-view-dvi->pdf-sentinel, |
| 5 | doc-view-ps->pdf-sentinel, and doc-view-pdf->txt-sentinel (which was | 8 | doc-view-ps->pdf-sentinel, and doc-view-pdf->txt-sentinel (which was |
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 45b3543b0ee..2ce56546bfe 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -1775,7 +1775,11 @@ The default status is as follows: | |||
| 1775 | ;; (set-terminal-coding-system-internal nil) | 1775 | ;; (set-terminal-coding-system-internal nil) |
| 1776 | ;; (set-keyboard-coding-system-internal nil) | 1776 | ;; (set-keyboard-coding-system-internal nil) |
| 1777 | 1777 | ||
| 1778 | (set-unibyte-charset 'iso-8859-1)) | 1778 | ;; Back in Emacs-20, it was necessary to provide some fallback implicit |
| 1779 | ;; conversion, because almost no packages handled coding-system issues. | ||
| 1780 | ;; Nowadays it'd just paper over bugs. | ||
| 1781 | ;; (set-unibyte-charset 'iso-8859-1) | ||
| 1782 | ) | ||
| 1779 | 1783 | ||
| 1780 | (reset-language-environment) | 1784 | (reset-language-environment) |
| 1781 | 1785 | ||
| @@ -1964,7 +1968,11 @@ Setting this variable directly does not take effect. See | |||
| 1964 | (or (and (charsetp nonascii) | 1968 | (or (and (charsetp nonascii) |
| 1965 | (get-charset-property nonascii :ascii-compatible-p)) | 1969 | (get-charset-property nonascii :ascii-compatible-p)) |
| 1966 | (setq nonascii 'iso-8859-1)) | 1970 | (setq nonascii 'iso-8859-1)) |
| 1967 | (set-unibyte-charset nonascii))) | 1971 | ;; Back in Emacs-20, it was necessary to provide some fallback implicit |
| 1972 | ;; conversion, because almost no packages handled coding-system issues. | ||
| 1973 | ;; Nowadays it'd just paper over bugs. | ||
| 1974 | ;; (set-unibyte-charset nonascii) | ||
| 1975 | )) | ||
| 1968 | 1976 | ||
| 1969 | (defun set-language-environment-charset (language-name) | 1977 | (defun set-language-environment-charset (language-name) |
| 1970 | "Do various charset setups for language environment LANGUAGE-NAME." | 1978 | "Do various charset setups for language environment LANGUAGE-NAME." |