Commit 7591cf05 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 59047653
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment