diff options
| author | Karl Heuer | 1997-12-04 04:47:41 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-12-04 04:47:41 +0000 |
| commit | 0f69cb38947f85a6c8f894c789226dfa6e3092b2 (patch) | |
| tree | 1e4f2db7023766776a5f84a106d6c5f3cc32657a | |
| parent | f9e899b67eb75bbc93dec779594ac13bc1b0733c (diff) | |
| download | emacs-0f69cb38947f85a6c8f894c789226dfa6e3092b2.tar.gz emacs-0f69cb38947f85a6c8f894c789226dfa6e3092b2.zip | |
(load-with-code-conversion): Doc fix.
| -rw-r--r-- | lisp/international/mule.el | 6 |
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).") | |||
| 31 | Distribution date of this version of MULE (multilingual environment).") | 31 | Distribution 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. |
| 35 | The FILE is decoded before evaluation if necessary. | 35 | The file contents are decoded before evaluation if necessary. |
| 36 | If optional second arg NOERROR is non-nil, | 36 | If 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. |
| 38 | Print messages at start and end of loading unless | 38 | Print 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))) |