diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-10-23 18:24:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-10-23 18:24:00 +0000 |
| commit | 01ae35c122edd68c047b5069d99f42f3bb6f41e2 (patch) | |
| tree | 2d96109f88572bc3ad752e1651269c834aaab39f /lisp/international/mule.el | |
| parent | 4ad093d0b50c078e1c7cf7ceb2c569498d2bab6f (diff) | |
| download | emacs-01ae35c122edd68c047b5069d99f42f3bb6f41e2.tar.gz | |
(load-with-code-conversion):
Pass full file name to `eval-buffer' unless preloading.
Diffstat (limited to 'lisp/international/mule.el')
| -rw-r--r-- | lisp/international/mule.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index a4a1ca76e2c..8283940bd2d 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -85,7 +85,9 @@ Return t if file exists." ;; Make `kill-buffer' quiet. (set-buffer-modified-p nil)) ;; Have the original buffer current while we eval. - (eval-buffer buffer nil file + (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. |