procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(tar-subfile-mode): Doc fix.

Browse source 
(tar-extract): Call tar-subfile-mode after setting buffer-read-only
and the buffer modified flag.
This commit is contained in:
Richard M. Stallman 1996-03-06 07:49:55 +00:00
parent 18b1fecd4a
commit 766052779b
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/tar-mode.el
View file

@ -602,9 +602,9 @@ See also: variables `tar-update-datestamp' and `tar-anal-blocksize'.
(defun tar-subfile-mode (p) (defun tar-subfile-mode (p)
"Minor mode for editing an element of a tar-file. "Minor mode for editing an element of a tar-file.
This mode redefines the save-buffer command to save the current buffer back This mode arranges for \"saving\" this buffer to write the data
into its associated tar-file buffer. You must save that buffer to actually into the tar-file buffer that it came from. The changes will actually
save your changes to disk." appear on disk when you save the tar-file's buffer."
(interactive "P") (interactive "P")
(or (and (boundp 'tar-superior-buffer) tar-superior-buffer) (or (and (boundp 'tar-superior-buffer) tar-superior-buffer)
(error "This buffer is not an element of a tar file")) (error "This buffer is not an element of a tar file"))
@ -731,9 +731,9 @@ save your changes to disk."
(make-local-variable 'tar-superior-descriptor) (make-local-variable 'tar-superior-descriptor)
(setq tar-superior-buffer tar-buffer) (setq tar-superior-buffer tar-buffer)
(setq tar-superior-descriptor descriptor) (setq tar-superior-descriptor descriptor)
(tar-subfile-mode 1)
(setq buffer-read-only read-only-p) (setq buffer-read-only read-only-p)
(set-buffer-modified-p nil)) (set-buffer-modified-p nil)
(tar-subfile-mode 1))
(set-buffer tar-buffer)) (set-buffer tar-buffer))
(narrow-to-region 1 tar-header-offset))) (narrow-to-region 1 tar-header-offset)))
(if view-p (if view-p