diff options
author | Kenichi Handa <handa@m17n.org> | 2010-08-25 14:15:20 +0900 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2010-08-25 14:15:20 +0900 |
commit | 4e603db3429957e6b26953c177f00a9c9d1c8766 (patch) | |
tree | 8206240e3006468bff9dfda5fb3696f80fbcb9f0 /lisp/international | |
parent | b60f961f6cdc1095e778ad624657bb57788512af (diff) | |
parent | f6aa6ec68ed936800ef2c3aefa42102e60b654cb (diff) | |
download | emacs-4e603db3429957e6b26953c177f00a9c9d1c8766.tar.gz |
merge trunk
Diffstat (limited to 'lisp/international')
-rw-r--r-- | lisp/international/mule.el | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 59d6ff42c97..84b8db3e9ca 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -326,8 +326,7 @@ Return t if file exists." (with-current-buffer buffer ;; So that we don't get completely screwed if the ;; file is encoded in some complicated character set, - ;; read it with real decoding, as a multibyte buffer, - ;; even if this is a --unibyte Emacs session. + ;; read it with real decoding, as a multibyte buffer. (set-buffer-multibyte t) ;; Don't let deactivate-mark remain set. (let (deactivate-mark) @@ -346,12 +345,7 @@ Return t if file exists." (eval-buffer buffer nil ;; This is compatible with what `load' does. (if purify-flag file fullname) - ;; If this Emacs is running with --unibyte, - ;; convert multibyte strings to unibyte - ;; after reading them. -;; (not (default-value 'enable-multibyte-characters)) - nil t - )) + nil t)) (let (kill-buffer-hook kill-buffer-query-functions) (kill-buffer buffer))) (do-after-load-evaluation fullname) |