aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1997-12-04 04:47:41 +0000
committerKarl Heuer1997-12-04 04:47:41 +0000
commit0f69cb38947f85a6c8f894c789226dfa6e3092b2 (patch)
tree1e4f2db7023766776a5f84a106d6c5f3cc32657a
parentf9e899b67eb75bbc93dec779594ac13bc1b0733c (diff)
downloademacs-0f69cb38947f85a6c8f894c789226dfa6e3092b2.tar.gz
emacs-0f69cb38947f85a6c8f894c789226dfa6e3092b2.zip
(load-with-code-conversion): Doc fix.
-rw-r--r--lisp/international/mule.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 15cfe9f58c9..f26d0105788 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -31,8 +31,8 @@ Version number and name of this version of MULE (multilingual environment).")
31Distribution date of this version of MULE (multilingual environment).") 31Distribution date of this version of MULE (multilingual environment).")
32 32
33(defun load-with-code-conversion (fullname file &optional noerror nomessage) 33(defun load-with-code-conversion (fullname file &optional noerror nomessage)
34 "Execute a file of Lisp code named FILE whose absolute path is FULLNAME. 34 "Execute a file of Lisp code named FILE whose absolute name is FULLNAME.
35The FILE is decoded before evaluation if necessary. 35The file contents are decoded before evaluation if necessary.
36If optional second arg NOERROR is non-nil, 36If optional second arg NOERROR is non-nil,
37 report no error if FILE doesn't exist. 37 report no error if FILE doesn't exist.
38Print messages at start and end of loading unless 38Print messages at start and end of loading unless
@@ -67,7 +67,7 @@ Return t if file exists."
67 (insert-file-contents fullname) 67 (insert-file-contents fullname)
68 ;; Make `kill-buffer' quiet. 68 ;; Make `kill-buffer' quiet.
69 (set-buffer-modified-p nil)) 69 (set-buffer-modified-p nil))
70 ;; Eval in the original buffer. 70 ;; Have the original buffer current while we eval.
71 (eval-buffer buffer nil file)) 71 (eval-buffer buffer nil file))
72 (let (kill-buffer-hook kill-buffer-query-functions) 72 (let (kill-buffer-hook kill-buffer-query-functions)
73 (kill-buffer buffer))) 73 (kill-buffer buffer)))