Mercurial > emacs
changeset 20970:00fce41bcd4f
Add "q" for quit, and use "C" for copy and "R" for
rename as in dired.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 25 Feb 1998 22:37:35 +0000 |
| parents | 6007dc30ec3b |
| children | 22a407edd2f0 |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)