diff options
| author | Miles Bader <[email protected]> | 2006-03-09 07:15:37 +0000 |
|---|---|---|
| committer | Miles Bader <[email protected]> | 2006-03-09 07:15:37 +0000 |
| commit | b1af5d6a27620aacc93a9a34bc242488c15e668b (patch) | |
| tree | 6f6fe2a93497d6149a5deb60dbd3e204315ed31b /lisp/arc-mode.el | |
| parent | 845df8100b62cafb758936ff333a0a1088d2220f (diff) | |
| parent | 61e66a158a521e1ebdaa2e547dcc98d383674a75 (diff) | |
Revision: [email protected]/emacs--unicode--0--patch-40
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 135-143)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 49-55)
- Merge from emacs--devo--0
- Update from CVS
- Update from CVS: Makefile.in (release-*): New targets.
Diffstat (limited to 'lisp/arc-mode.el')
| -rw-r--r-- | lisp/arc-mode.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index e664368df4..d699a78f8e 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -929,17 +929,19 @@ using `make-temp-file', and the generated name is returned." (read-only-p (or archive-read-only view-p (string-match file-name-invalid-regexp ename))) + (arcfilename (expand-file-name (concat arcname ":" iname))) (buffer (get-buffer bufname)) (just-created nil) (file-name-coding archive-file-name-coding-system)) - (if buffer + (if (and buffer + (string= (buffer-file-name buffer) arcfilename)) nil (setq archive (archive-maybe-copy archive)) + (setq bufname (generate-new-buffer-name bufname)) (setq buffer (get-buffer-create bufname)) (setq just-created t) (with-current-buffer buffer - (setq buffer-file-name - (expand-file-name (concat arcname ":" iname))) + (setq buffer-file-name arcfilename) (setq buffer-file-truename (abbreviate-file-name buffer-file-name)) ;; Set the default-directory to the dir of the superior buffer. |