Mercurial > emacs
diff lisp/tar-mode.el @ 14769:acf049402d18
(tar-subfile-mode): Doc fix.
(tar-extract): Call tar-subfile-mode after setting buffer-read-only
and the buffer modified flag.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 06 Mar 1996 07:49:55 +0000 |
parents | f8eba77ccb7f |
children | 85a85480fa3c |
line wrap: on
line diff
--- a/lisp/tar-mode.el Wed Mar 06 06:28:39 1996 +0000 +++ b/lisp/tar-mode.el Wed Mar 06 07:49:55 1996 +0000 @@ -602,9 +602,9 @@ (defun tar-subfile-mode (p) "Minor mode for editing an element of a tar-file. -This mode redefines the save-buffer command to save the current buffer back -into its associated tar-file buffer. You must save that buffer to actually -save your changes to disk." +This mode arranges for \"saving\" this buffer to write the data +into the tar-file buffer that it came from. The changes will actually +appear on disk when you save the tar-file's buffer." (interactive "P") (or (and (boundp 'tar-superior-buffer) tar-superior-buffer) (error "This buffer is not an element of a tar file")) @@ -731,9 +731,9 @@ (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)) + (setq buffer-read-only read-only-p) + (set-buffer-modified-p nil) + (tar-subfile-mode 1)) (set-buffer tar-buffer)) (narrow-to-region 1 tar-header-offset))) (if view-p