diff options
| author | Eli Zaretskii | 1999-02-22 16:01:30 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 1999-02-22 16:01:30 +0000 |
| commit | 06e3b626d8bc871fafe5760abd3bc394923f65ab (patch) | |
| tree | a154a11a960e131a70b6f8d46bb1749be738179a | |
| parent | 504737d5f65ef070bac4ed9787e23acb52cb032d (diff) | |
| download | emacs-06e3b626d8bc871fafe5760abd3bc394923f65ab.tar.gz emacs-06e3b626d8bc871fafe5760abd3bc394923f65ab.zip | |
(archive-set-buffer-as-visiting-file): Save
excursion while calling set-auto-coding-function.
| -rw-r--r-- | lisp/arc-mode.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index cc9f10531e7..05878ea52d5 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el | |||
| @@ -844,8 +844,9 @@ using `make-temp-name', and the generated name is returned." | |||
| 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 |