Mercurial > emacs
comparison lisp/tar-mode.el @ 7464:1e6adb18271b
(tar-extract): Don't clear out the buffer-file-name.
Don't set list-buffers-directory.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 12 May 1994 05:03:19 +0000 |
| parents | 4fd40bd394fe |
| children | 2308d6e6404c |
comparison
equal
deleted
inserted
replaced
| 7463:a01b93a9f893 | 7464:1e6adb18271b |
|---|---|
| 683 (set-buffer buffer) | 683 (set-buffer buffer) |
| 684 (insert-buffer-substring tar-buffer start end) | 684 (insert-buffer-substring tar-buffer start end) |
| 685 (goto-char 0) | 685 (goto-char 0) |
| 686 (set-visited-file-name name) ; give it a name to decide mode. | 686 (set-visited-file-name name) ; give it a name to decide mode. |
| 687 (normal-mode) ; pick a mode. | 687 (normal-mode) ; pick a mode. |
| 688 (set-visited-file-name nil) ; nuke the name - not meaningful. | 688 ;;; Without a file name, save-buffer doesn't work. |
| 689 ;;; (set-visited-file-name nil) ; nuke the name - not meaningful. | |
| 689 (rename-buffer bufname) | 690 (rename-buffer bufname) |
| 690 | 691 |
| 691 (make-local-variable 'tar-superior-buffer) | 692 (make-local-variable 'tar-superior-buffer) |
| 692 (make-local-variable 'tar-superior-descriptor) | 693 (make-local-variable 'tar-superior-descriptor) |
| 693 (setq tar-superior-buffer tar-buffer) | 694 (setq tar-superior-buffer tar-buffer) |
| 694 (setq tar-superior-descriptor descriptor) | 695 (setq tar-superior-descriptor descriptor) |
| 695 | |
| 696 ;; Since the "real" file name is not in buffer-file-name, | |
| 697 ;; put it here for list-buffers. | |
| 698 (make-local-variable 'list-buffers-directory) | |
| 699 (setq list-buffers-directory name) | |
| 700 | 696 |
| 701 (tar-subfile-mode 1) | 697 (tar-subfile-mode 1) |
| 702 | 698 |
| 703 (setq buffer-read-only read-only-p) | 699 (setq buffer-read-only read-only-p) |
| 704 (set-buffer-modified-p nil)) | 700 (set-buffer-modified-p nil)) |