From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 25 Feb 1998 22:37:35 +0000 (+0000)
Subject: Add "q" for quit, and use "C" for copy and "R" for
X-Git-Tag: emacs-20.3~2104
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92062a094cb5c404803b9b228f6ff9c411dda08a;p=emacs.git

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 a050f51fa07..d194f2e9e78 100644
--- 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))
+
 
 (provide 'tar-mode)