diff options
| author | Kenichi Handa | 2000-06-12 00:04:43 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2000-06-12 00:04:43 +0000 |
| commit | 36d455c43b9a6d83348488a0a67685e902dd0fab (patch) | |
| tree | 2f32468093f3083a1534f1f92591cddae6aa0021 | |
| parent | 5050a2ef8615ee3adec0b92a8a45df2f09362515 (diff) | |
| download | emacs-36d455c43b9a6d83348488a0a67685e902dd0fab.tar.gz emacs-36d455c43b9a6d83348488a0a67685e902dd0fab.zip | |
(set-buffer-file-coding-system): If CODING-SYSTEM is nil, set
buffer-file-coding-system to nil unconditionally.
| -rw-r--r-- | lisp/international/mule.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 92c29fc78f1..16e4c7e9ed8 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -815,7 +815,7 @@ don't want to mark the buffer modified, just set the variable | |||
| 815 | `buffer-file-coding-system' directly." | 815 | `buffer-file-coding-system' directly." |
| 816 | (interactive "zCoding system for visited file (default, nil): \nP") | 816 | (interactive "zCoding system for visited file (default, nil): \nP") |
| 817 | (check-coding-system coding-system) | 817 | (check-coding-system coding-system) |
| 818 | (if (and buffer-file-coding-system (null force)) | 818 | (if (and coding-system buffer-file-coding-system (null force)) |
| 819 | (let ((x (coding-system-eol-type buffer-file-coding-system)) | 819 | (let ((x (coding-system-eol-type buffer-file-coding-system)) |
| 820 | (y (coding-system-eol-type coding-system))) | 820 | (y (coding-system-eol-type coding-system))) |
| 821 | (if (and (numberp x) (>= x 0) (<= x 2) (vectorp y)) | 821 | (if (and (numberp x) (>= x 0) (<= x 2) (vectorp y)) |