[Emacs-diffs] Changes to emacs/lisp/tar-mode.el

[Richard M. Stallman]

Index: emacs/lisp/tar-mode.el
diff -c emacs/lisp/tar-mode.el:1.88 emacs/lisp/tar-mode.el:1.89
*** emacs/lisp/tar-mode.el:1.88 Sat May 18 15:45:05 2002
--- emacs/lisp/tar-mode.el      Sat Aug 17 01:00:30 2002
***************
*** 388,398 ****
                   (dir (file-name-directory name))
                   (start (+ (tar-desc-data-start descriptor) tar-header-offset 
-1))
                   (end (+ start (tar-header-size tokens))))
!             (message "Extracting %s" name)
!             (if (and dir (not (file-exists-p dir)))
!                 (make-directory dir t))
!             (write-region start end name)
!             (set-file-modes name (tar-header-mode tokens)))))
        (set-buffer-multibyte multibyte))))
  
  (defun tar-summarize-buffer ()
--- 388,399 ----
                   (dir (file-name-directory name))
                   (start (+ (tar-desc-data-start descriptor) tar-header-offset 
-1))
                   (end (+ start (tar-header-size tokens))))
!             (unless (file-directory-p name)
!               (message "Extracting %s" name)
!               (if (and dir (not (file-exists-p dir)))
!                   (make-directory dir t))
!               (write-region start end name)
!               (set-file-modes name (tar-header-mode tokens))))))
        (set-buffer-multibyte multibyte))))
  
  (defun tar-summarize-buffer ()
***************
*** 604,617 ****
            (not tar-subfile-mode)
            (> (prefix-numeric-value p) 0)))
    (cond (tar-subfile-mode
!        (make-local-variable 'local-write-file-hooks)
!        (setq local-write-file-hooks '(tar-subfile-save-buffer))
         ;; turn off auto-save.
         (auto-save-mode -1)
         (setq buffer-auto-save-file-name nil)
         (run-hooks 'tar-subfile-mode-hook))
        (t
!        (kill-local-variable 'local-write-file-hooks))))
  
  
  ;; Revert the buffer and recompute the dired-like listing.
--- 605,617 ----
            (not tar-subfile-mode)
            (> (prefix-numeric-value p) 0)))
    (cond (tar-subfile-mode
!        (add-hook 'write-file-functions 'tar-subfile-save-buffer nil t)
         ;; turn off auto-save.
         (auto-save-mode -1)
         (setq buffer-auto-save-file-name nil)
         (run-hooks 'tar-subfile-mode-hook))
        (t
!        (remove-hook 'write-file-functions 'tar-subfile-save-buffer t))))
  
  
  ;; Revert the buffer and recompute the dired-like listing.