From 766052779be3f23e72f82b38bc1ef5a46b07215c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 6 Mar 1996 07:49:55 +0000 Subject: [PATCH] (tar-subfile-mode): Doc fix. (tar-extract): Call tar-subfile-mode after setting buffer-read-only and the buffer modified flag. --- lisp/tar-mode.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 1bc65f094ca..ce8ed3b6184 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -602,9 +602,9 @@ See also: variables `tar-update-datestamp' and `tar-anal-blocksize'. (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 @@ save your changes to disk." (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 -- 2.39.5