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:
parent
d8b9150f33
commit
0b79b2ace8
1 changed files with 1 additions and 4 deletions
|
|
@ -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)))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue