diff options
| author | Richard M. Stallman | 1998-04-23 21:57:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-04-23 21:57:25 +0000 |
| commit | ba74e83386aef63dad42f060a0f4c61570b8034c (patch) | |
| tree | c2f415c9a52c38f5759bf905b18c7695d6783e83 | |
| parent | 9fc0913c1018fbfdc0009013b58745de4fa5726d (diff) | |
| download | emacs-ba74e83386aef63dad42f060a0f4c61570b8034c.tar.gz emacs-ba74e83386aef63dad42f060a0f4c61570b8034c.zip | |
(load-with-code-conversion): Don't pass extra arg to eval-buffer.
(set-auto-coding): Doc fix.
| -rw-r--r-- | lisp/international/mule.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 47c5816fc0f..82d9cbcddc9 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -75,7 +75,8 @@ Return t if file exists." | |||
| 75 | ;; If this Emacs is running with --unibyte, | 75 | ;; If this Emacs is running with --unibyte, |
| 76 | ;; convert multibyte strings to unibyte | 76 | ;; convert multibyte strings to unibyte |
| 77 | ;; after reading them. | 77 | ;; after reading them. |
| 78 | (not default-enable-multibyte-characters))) | 78 | ;; (not default-enable-multibyte-characters) |
| 79 | )) | ||
| 79 | (let (kill-buffer-hook kill-buffer-query-functions) | 80 | (let (kill-buffer-hook kill-buffer-query-functions) |
| 80 | (kill-buffer buffer))) | 81 | (kill-buffer buffer))) |
| 81 | (let ((hook (assoc file after-load-alist))) | 82 | (let ((hook (assoc file after-load-alist))) |
| @@ -772,7 +773,7 @@ in the tailing 3K-byte oof STRING. | |||
| 772 | The return value is the specified coding system, | 773 | The return value is the specified coding system, |
| 773 | or nil if nothing specified. | 774 | or nil if nothing specified. |
| 774 | 775 | ||
| 775 | The variable `auto-file-coding-system' (which see) is set to this | 776 | The variable `set-auto-coding-function' (which see) is set to this |
| 776 | function by default." | 777 | function by default." |
| 777 | (condition-case nil | 778 | (condition-case nil |
| 778 | (let ((case-fold-search t) | 779 | (let ((case-fold-search t) |