Commit 0f69cb38 authored by Karl Heuer's avatar Karl Heuer
Browse files

(load-with-code-conversion): Doc fix.

parent f9e899b6
...@@ -31,8 +31,8 @@ Version number and name of this version of MULE (multilingual environment).") ...@@ -31,8 +31,8 @@ Version number and name of this version of MULE (multilingual environment).")
Distribution date of this version of MULE (multilingual environment).") Distribution date of this version of MULE (multilingual environment).")
(defun load-with-code-conversion (fullname file &optional noerror nomessage) (defun load-with-code-conversion (fullname file &optional noerror nomessage)
"Execute a file of Lisp code named FILE whose absolute path is FULLNAME. "Execute a file of Lisp code named FILE whose absolute name is FULLNAME.
The FILE is decoded before evaluation if necessary. The file contents are decoded before evaluation if necessary.
If optional second arg NOERROR is non-nil, If optional second arg NOERROR is non-nil,
report no error if FILE doesn't exist. report no error if FILE doesn't exist.
Print messages at start and end of loading unless Print messages at start and end of loading unless
...@@ -67,7 +67,7 @@ Return t if file exists." ...@@ -67,7 +67,7 @@ Return t if file exists."
(insert-file-contents fullname) (insert-file-contents fullname)
;; Make `kill-buffer' quiet. ;; Make `kill-buffer' quiet.
(set-buffer-modified-p nil)) (set-buffer-modified-p nil))
;; Eval in the original buffer. ;; Have the original buffer current while we eval.
(eval-buffer buffer nil file)) (eval-buffer buffer nil file))
(let (kill-buffer-hook kill-buffer-query-functions) (let (kill-buffer-hook kill-buffer-query-functions)
(kill-buffer buffer))) (kill-buffer buffer)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment