From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 8 Mar 1998 00:22:03 +0000 (+0000)
Subject: (select-tags-table-quit): Use quit-window.
X-Git-Tag: emacs-20.3~1977
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7591cf05f5b16290bc4d58ed314368f611fcf367;p=emacs.git

(select-tags-table-quit): Use quit-window.
---

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