From 23bdfc9af669002b44b41982432f7118b1fd3b12 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 30 Dec 1999 08:26:31 +0000 Subject: [PATCH] (tar-mode-map): Bind q to quit-window, not tar-quit. (tar-quit): Function deleted. --- lisp/tar-mode.el | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index eb8a42584f1..234e99c79d3 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -542,7 +542,7 @@ 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 "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 @@ Leaves the region wide." (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) -- 2.39.5