From 7591cf05f5b16290bc4d58ed314368f611fcf367 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 8 Mar 1998 00:22:03 +0000 Subject: [PATCH] (select-tags-table-quit): Use quit-window. --- lisp/progmodes/etags.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 237521ad4a0..31a8158e3a6 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1650,9 +1650,7 @@ see the doc of that variable if you want to add names to the list." (defun select-tags-table-quit () "Kill the buffer and delete the selected window." (interactive) - (kill-buffer (current-buffer)) - (or (one-window-p) - (delete-window))) + (quit-window t (selected-window))) ;;; Note, there is another definition of this function in bindings.el. ;;;###autoload -- 2.39.2