diff options
| author | Kenichi Handa | 2003-05-06 05:10:59 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2003-05-06 05:10:59 +0000 |
| commit | 844da0ff4c55692b61bedebd5822c8f6745b2f38 (patch) | |
| tree | 9d9140c43cf065eed33fc3c727194964ce39d71e | |
| parent | e9cc41c8988b4d84a278e3d9e8f215332092171e (diff) | |
| download | emacs-844da0ff4c55692b61bedebd5822c8f6745b2f38.tar.gz emacs-844da0ff4c55692b61bedebd5822c8f6745b2f38.zip | |
(byte-compile-file): Fix comment
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 43e12411d97..9b9e5645dee 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2003-05-06 Kenichi Handa <handa@etlken2> | ||
| 2 | |||
| 3 | * arc-mode.el (archive-set-buffer-as-visiting-file): Use | ||
| 4 | after-insert-file-set-coding, not | ||
| 5 | after-insert-file-set-buffer-file-coding-system. | ||
| 6 | |||
| 1 | 2003-05-05 Stefan Monnier <monnier@cs.yale.edu> | 7 | 2003-05-05 Stefan Monnier <monnier@cs.yale.edu> |
| 2 | 8 | ||
| 3 | * uniquify.el (uniquify-buffer-name-style) | 9 | * uniquify.el (uniquify-buffer-name-style) |
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 6092bea6da0..aee0ff7b412 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -1553,8 +1553,8 @@ The value is non-nil if there were no errors, nil if errors." | |||
| 1553 | ;; unless the file itself forces unibyte with -*-coding: raw-text;-*- | 1553 | ;; unless the file itself forces unibyte with -*-coding: raw-text;-*- |
| 1554 | (set-buffer-multibyte t) | 1554 | (set-buffer-multibyte t) |
| 1555 | (insert-file-contents filename) | 1555 | (insert-file-contents filename) |
| 1556 | ;; Mimic the way after-insert-file-set-buffer-file-coding-system | 1556 | ;; Mimic the way after-insert-file-set-coding can make the |
| 1557 | ;; can make the buffer unibyte when visiting this file. | 1557 | ;; buffer unibyte when visiting this file. |
| 1558 | (when (or (eq last-coding-system-used 'no-conversion) | 1558 | (when (or (eq last-coding-system-used 'no-conversion) |
| 1559 | (eq (coding-system-type last-coding-system-used) 5)) | 1559 | (eq (coding-system-type last-coding-system-used) 5)) |
| 1560 | ;; For coding systems no-conversion and raw-text..., | 1560 | ;; For coding systems no-conversion and raw-text..., |