Mercurial > emacs
comparison lisp/arc-mode.el @ 50835:b7770bea6205
(archive-set-buffer-as-visiting-file): Use
after-insert-file-set-coding, not
after-insert-file-set-buffer-file-coding-system.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 06 May 2003 05:08:32 +0000 |
| parents | ad28e7a35442 |
| children | 00d0f607793b |
comparison
equal
deleted
inserted
replaced
| 50834:82b5c65c0b81 | 50835:b7770bea6205 |
|---|---|
| 892 (not (eq coding 'no-conversion))) | 892 (not (eq coding 'no-conversion))) |
| 893 (decode-coding-region (point-min) (point-max) coding) | 893 (decode-coding-region (point-min) (point-max) coding) |
| 894 (setq last-coding-system-used coding)) | 894 (setq last-coding-system-used coding)) |
| 895 (set-buffer-modified-p nil) | 895 (set-buffer-modified-p nil) |
| 896 (kill-local-variable 'buffer-file-coding-system) | 896 (kill-local-variable 'buffer-file-coding-system) |
| 897 (after-insert-file-set-buffer-file-coding-system (- (point-max) | 897 (after-insert-file-set-coding (- (point-max) (point-min)))))) |
| 898 (point-min)))))) | |
| 899 | 898 |
| 900 (defun archive-mouse-extract (event) | 899 (defun archive-mouse-extract (event) |
| 901 "Extract a file whose name you click on." | 900 "Extract a file whose name you click on." |
| 902 (interactive "e") | 901 (interactive "e") |
| 903 (mouse-set-point event) | 902 (mouse-set-point event) |