Mercurial > emacs
comparison lisp/tar-mode.el @ 10188:f837d768d569
(tar-extract): Don't use set-visited-file-name. to
avoid interaction problems with ange-ftp.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 18 Dec 1994 18:48:04 +0000 |
| parents | cf4658356724 |
| children | d20db86b0c0c |
comparison
equal
deleted
inserted
replaced
| 10187:a3b8bfad0a75 | 10188:f837d768d569 |
|---|---|
| 683 (widen) | 683 (widen) |
| 684 (save-excursion | 684 (save-excursion |
| 685 (set-buffer buffer) | 685 (set-buffer buffer) |
| 686 (insert-buffer-substring tar-buffer start end) | 686 (insert-buffer-substring tar-buffer start end) |
| 687 (goto-char 0) | 687 (goto-char 0) |
| 688 ;; Give it a name for list-buffers and to decide mode. | |
| 689 ;; Set buffer-file-name by hand first | |
| 690 ;; so that set-visited-file-name won't lock the filename. | |
| 691 (setq buffer-file-name | 688 (setq buffer-file-name |
| 692 (expand-file-name (concat tarname ":" name))) | 689 (expand-file-name (concat tarname ":" name))) |
| 693 (set-visited-file-name buffer-file-name) | 690 (setq buffer-file-truename |
| 691 (abbreviate-file-name buffer-file-name)) | |
| 692 ;; Set the default-directory to the dir of the | |
| 693 ;; superior buffer. | |
| 694 (setq default-directory | |
| 695 (save-excursion | |
| 696 (set-buffer tar-buffer) | |
| 697 default-directory)) | |
| 694 (normal-mode) ; pick a mode. | 698 (normal-mode) ; pick a mode. |
| 695 ;;; Without a file name, save-buffer doesn't work. | |
| 696 ;;; (set-visited-file-name nil) ; nuke the name - not meaningful. | |
| 697 (rename-buffer bufname) | 699 (rename-buffer bufname) |
| 698 | |
| 699 (make-local-variable 'tar-superior-buffer) | 700 (make-local-variable 'tar-superior-buffer) |
| 700 (make-local-variable 'tar-superior-descriptor) | 701 (make-local-variable 'tar-superior-descriptor) |
| 701 (setq tar-superior-buffer tar-buffer) | 702 (setq tar-superior-buffer tar-buffer) |
| 702 (setq tar-superior-descriptor descriptor) | 703 (setq tar-superior-descriptor descriptor) |
| 703 ;; Set the default-directory to the dir of the | 704 (tar-subfile-mode 1) |
| 704 ;; superior buffer. | |
| 705 (setq default-directory | |
| 706 (save-excursion | |
| 707 (set-buffer tar-superior-buffer) | |
| 708 default-directory)) | |
| 709 | |
| 710 (tar-subfile-mode 1) | |
| 711 | |
| 712 (setq buffer-read-only read-only-p) | 705 (setq buffer-read-only read-only-p) |
| 713 (set-buffer-modified-p nil)) | 706 (set-buffer-modified-p nil)) |
| 714 (set-buffer tar-buffer)) | 707 (set-buffer tar-buffer)) |
| 715 (narrow-to-region 1 tar-header-offset))) | 708 (narrow-to-region 1 tar-header-offset))) |
| 716 (if view-p | 709 (if view-p |