# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 946542391 0
# Node ID ed3145e6ffec97d3e1c896dcbf54eca373957cc4
# Parent  4f6a80a0f1bab68e5272184f66136e6dd1ac0a39
(tar-mode-map): Bind q to quit-window, not tar-quit.
(tar-quit): Function deleted.

diff -r 4f6a80a0f1ba -r ed3145e6ffec lisp/tar-mode.el
--- a/lisp/tar-mode.el	Thu Dec 30 08:22:06 1999 +0000
+++ b/lisp/tar-mode.el	Thu Dec 30 08:26:31 1999 +0000
@@ -542,7 +542,7 @@
   (define-key tar-mode-map [down] 'tar-next-line)
   (define-key tar-mode-map "o" 'tar-extract-other-window)
   (define-key tar-mode-map "p" 'tar-previous-line)
-  (define-key tar-mode-map "q" 'tar-quit)
+  (define-key tar-mode-map "q" 'quit-window)
   (define-key tar-mode-map "\^P" 'tar-previous-line)
   (define-key tar-mode-map [up] 'tar-previous-line)
   (define-key tar-mode-map "R" 'tar-rename-entry)
@@ -1328,14 +1328,8 @@
 	(tar-clear-modification-flags)
 	(set-buffer-modified-p nil))
     (narrow-to-region 1 (byte-to-position tar-header-offset)))
-  ;; return T because we've written the file.
+  ;; Return t because we've written the file.
   t)
-
-(defun tar-quit ()
-  "Kill the current tar buffer."
-  (interactive)
-  (kill-buffer nil))
-
 
 (provide 'tar-mode)