790 |
(unless (memq coding-system |
(unless (memq coding-system |
791 |
'(undecided undecided-unix)) |
'(undecided undecided-unix)) |
792 |
(set-buffer-modified-p t) ; avoid locking when decoding |
(set-buffer-modified-p t) ; avoid locking when decoding |
793 |
(decode-coding-region from to coding-system) |
(let ((buffer-undo-list t)) |
794 |
|
(decode-coding-region from to coding-system)) |
795 |
(setq coding-system last-coding-system-used)) |
(setq coding-system last-coding-system-used)) |
796 |
(set-buffer-modified-p modifiedp) |
(set-buffer-modified-p modifiedp) |
797 |
(setq buffer-file-coding-system nil) |
(setq buffer-file-coding-system nil) |