diff options
| author | Richard M. Stallman | 1998-03-08 00:22:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-03-08 00:22:03 +0000 |
| commit | 7591cf05f5b16290bc4d58ed314368f611fcf367 (patch) | |
| tree | 38265c81c473902d9fb3f0095d699f68d503370f | |
| parent | 5904765365b8e2339df75bf26833c013eb3e3f4a (diff) | |
| download | emacs-7591cf05f5b16290bc4d58ed314368f611fcf367.tar.gz emacs-7591cf05f5b16290bc4d58ed314368f611fcf367.zip | |
(select-tags-table-quit): Use quit-window.
| -rw-r--r-- | lisp/progmodes/etags.el | 4 |
1 files changed, 1 insertions, 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." | |||
| 1650 | (defun select-tags-table-quit () | 1650 | (defun select-tags-table-quit () |
| 1651 | "Kill the buffer and delete the selected window." | 1651 | "Kill the buffer and delete the selected window." |
| 1652 | (interactive) | 1652 | (interactive) |
| 1653 | (kill-buffer (current-buffer)) | 1653 | (quit-window t (selected-window))) |
| 1654 | (or (one-window-p) | ||
| 1655 | (delete-window))) | ||
| 1656 | 1654 | ||
| 1657 | ;;; Note, there is another definition of this function in bindings.el. | 1655 | ;;; Note, there is another definition of this function in bindings.el. |
| 1658 | ;;;###autoload | 1656 | ;;;###autoload |