(load-with-code-conversion):

Pass full file name to `eval-buffer' unless preloading.
This commit is contained in:
Richard M. Stallman 2005-10-23 18:24:00 +00:00
parent 4ad093d0b5
commit 01ae35c122

View file

@ -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.