Add "q" for quit, and use "C" for copy and "R" for

rename as in dired.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index a050f51fa07c5abc530c319e02347efbc8f1cd59..d194f2e9e78c5092ef242d467fce39a5da37ff3a 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -494,7 +494,7 @@ is visible (and the real data of the buffer is hidden)."
   (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 @@ is visible (and the real data of the buffer is hidden)."
   (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 @@ Leaves the region wide."
     (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))
+
 \f
 (provide 'tar-mode)