Mercurial > emacs
changeset 27037:ed3145e6ffec
(tar-mode-map): Bind q to quit-window, not tar-quit.
(tar-quit): Function deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 30 Dec 1999 08:26:31 +0000 |
| parents | 4f6a80a0f1ba |
| children | e168198350dd |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 2 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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)