# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 888446255 0
# Node ID 00fce41bcd4f665878b5454fea95a4d61e60f505
# Parent  6007dc30ec3bfce852811e7e013281f77d6b8615
Add "q" for quit, and use "C" for copy and "R" for
rename as in dired.

diff -r 6007dc30ec3b -r 00fce41bcd4f lisp/tar-mode.el
--- a/lisp/tar-mode.el	Wed Feb 25 05:06:02 1998 +0000
+++ b/lisp/tar-mode.el	Wed Feb 25 22:37:35 1998 +0000
@@ -494,7 +494,7 @@
   (setq tar-mode-map (make-keymap))
   (suppress-keymap tar-mode-map)
   (define-key tar-mode-map " " 'tar-next-line)
-  (define-key tar-mode-map "c" 'tar-copy)
+  (define-key tar-mode-map "C" 'tar-copy)
   (define-key tar-mode-map "d" 'tar-flag-deleted)
   (define-key tar-mode-map "\^D" 'tar-flag-deleted)
   (define-key tar-mode-map "e" 'tar-extract)
@@ -508,9 +508,10 @@
   (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 "\^P" 'tar-previous-line)
   (define-key tar-mode-map [up] 'tar-previous-line)
-  (define-key tar-mode-map "r" 'tar-rename-entry)
+  (define-key tar-mode-map "R" 'tar-rename-entry)
   (define-key tar-mode-map "u" 'tar-unflag)
   (define-key tar-mode-map "v" 'tar-view)
   (define-key tar-mode-map "x" 'tar-expunge)
@@ -1208,6 +1209,12 @@
     (narrow-to-region 1 tar-header-offset))
   ;; return T because we've written the file.
   t)
+
+(defun tar-quit ()
+  "Kill the current tar buffer."
+  (interactive)
+  (kill-buffer nil))
+
 
 (provide 'tar-mode)