Mercurial > emacs
comparison lisp/arc-mode.el @ 24381:b3c0f3ad64d8
(archive-set-buffer-as-visiting-file): Save
excursion while calling set-auto-coding-function.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 22 Feb 1999 16:01:30 +0000 |
| parents | 4e3bead33d34 |
| children | 0a8d7e789bca |
comparison
equal
deleted
inserted
replaced
| 24380:6ef51f9beabc | 24381:b3c0f3ad64d8 |
|---|---|
| 842 (save-excursion | 842 (save-excursion |
| 843 (goto-char (point-min)) | 843 (goto-char (point-min)) |
| 844 (let ((coding | 844 (let ((coding |
| 845 (or coding-system-for-read | 845 (or coding-system-for-read |
| 846 (and set-auto-coding-function | 846 (and set-auto-coding-function |
| 847 (funcall set-auto-coding-function | 847 (save-excursion |
| 848 filename (- (point-max) (point-min)))) | 848 (funcall set-auto-coding-function |
| 849 filename (- (point-max) (point-min))))) | |
| 849 ;; dos-w32.el defines find-operation-coding-system for | 850 ;; dos-w32.el defines find-operation-coding-system for |
| 850 ;; DOS/Windows systems which preserves the coding-system | 851 ;; DOS/Windows systems which preserves the coding-system |
| 851 ;; of existing files. We want it to act here as if the | 852 ;; of existing files. We want it to act here as if the |
| 852 ;; extracted file existed. | 853 ;; extracted file existed. |
| 853 (let ((file-name-handler-alist | 854 (let ((file-name-handler-alist |