diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-06-12 00:04:43 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-06-12 00:04:43 +0000 |
| commit | 36d455c43b9a6d83348488a0a67685e902dd0fab (patch) | |
| tree | 2f32468093f3083a1534f1f92591cddae6aa0021 /lisp/international/mule.el | |
| parent | 5050a2ef8615ee3adec0b92a8a45df2f09362515 (diff) | |
| download | emacs-36d455c43b9a6d83348488a0a67685e902dd0fab.tar.gz | |
(set-buffer-file-coding-system): If CODING-SYSTEM is nil, set
buffer-file-coding-system to nil unconditionally.
Diffstat (limited to 'lisp/international/mule.el')
| -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 `buffer-file-coding-system' directly." (interactive "zCoding system for visited file (default, nil): \nP") (check-coding-system coding-system) - (if (and buffer-file-coding-system (null force)) + (if (and coding-system buffer-file-coding-system (null force)) (let ((x (coding-system-eol-type buffer-file-coding-system)) (y (coding-system-eol-type coding-system))) (if (and (numberp x) (>= x 0) (<= x 2) (vectorp y)) |