(load-with-code-conversion):

Pass full file name to `eval-buffer' unless preloading.

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.