Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

(tar-extract): Don't use set-visited-file-name. to

Browse source 
avoid interaction problems with ange-ftp.
This commit is contained in:
Richard M. Stallman 1994-12-18 18:48:04 +00:00
parent 342aa43969
commit fef5a0becf
1 changed files with 10 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
lisp/tar-mode.el
View file

@ -685,30 +685,23 @@ save your changes to disk."
(set-buffer buffer)
(insert-buffer-substring tar-buffer start end)
(goto-char 0)
;; Give it a name for list-buffers and to decide mode.
;; Set buffer-file-name by hand first
;; so that set-visited-file-name won't lock the filename.
(setq buffer-file-name
(expand-file-name (concat tarname ":" name)))
(set-visited-file-name buffer-file-name)
(normal-mode) ; pick a mode.
;;; Without a file name, save-buffer doesn't work.
;;; (set-visited-file-name nil) ; nuke the name - not meaningful.
(rename-buffer bufname)
(make-local-variable 'tar-superior-buffer)
(make-local-variable 'tar-superior-descriptor)
(setq tar-superior-buffer tar-buffer)
(setq tar-superior-descriptor descriptor)
(setq buffer-file-truename
(abbreviate-file-name buffer-file-name))
;; Set the default-directory to the dir of the
;; superior buffer.
(setq default-directory
(save-excursion
(set-buffer tar-superior-buffer)
(set-buffer tar-buffer)
default-directory))
(tar-subfile-mode 1)
(normal-mode) ; pick a mode.
(rename-buffer bufname)
(make-local-variable 'tar-superior-buffer)
(make-local-variable 'tar-superior-descriptor)
(setq tar-superior-buffer tar-buffer)
(setq tar-superior-descriptor descriptor)
(tar-subfile-mode 1)
(setq buffer-read-only read-only-p)
(set-buffer-modified-p nil))
(set-buffer tar-buffer))