1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 13:10:57 -08:00

(load-with-code-conversion):

Use third arg to eval-buffer and don't set buffer-file-name.
This commit is contained in:
Richard M. Stallman 1997-09-07 18:32:24 +00:00
parent d8b9150f33
commit 0b79b2ace8

View file

@ -58,13 +58,10 @@ Return t if file exists."
;; This is buffer-local.
(setq enable-multibyte-characters t)
(insert-file-contents fullname)
;; We must set `buffer-file-name' for `eval-buffer' and
;; `load-history'.
(setq buffer-file-name file)
;; Make `kill-buffer' quiet.
(set-buffer-modified-p nil))
;; Eval in the original buffer.
(eval-buffer buffer))
(eval-buffer buffer nil file))
(let (kill-buffer-hook kill-buffer-query-functions)
(kill-buffer buffer)))
(let ((hook (assoc file after-load-alist)))