From 4d74b2b9539964758fc433480ad93ce912b6f3db Mon Sep 17 00:00:00 2001 From: Andreas Politz Date: Sun, 13 Oct 2019 05:08:37 +0200 Subject: Use quit-window in some functions * lisp/strokes.el: * lisp/startup.el (fancy-startup-tail): * lisp/progmodes/verilog-mode.el (verilog-complete-word) (verilog-show-completions): * lisp/progmodes/idlwave.el (idlwave-quit-help): Use `quit-window' (bug#24213). --- lisp/progmodes/verilog-mode.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/progmodes/verilog-mode.el') diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el index baeaf8b95de..5bfa5f837a0 100644 --- a/lisp/progmodes/verilog-mode.el +++ b/lisp/progmodes/verilog-mode.el @@ -7598,8 +7598,7 @@ and `verilog-separator-keywords'.)" (display-completion-list allcomp)) ;; Wait for a key press. Then delete *Completion* window (momentary-string-display "" (point)) - (delete-window (get-buffer-window (get-buffer "*Completions*"))) - ))))) + (quit-window nil (get-buffer-window "*Completions*"))))))) (defun verilog-show-completions () "Show all possible completions at current point." @@ -7611,7 +7610,8 @@ and `verilog-separator-keywords'.)" (display-completion-list (nth 2 (verilog-completion-at-point)))) ;; Wait for a key press. Then delete *Completion* window (momentary-string-display "" (point)) - (delete-window (get-buffer-window (get-buffer "*Completions*")))) + (quit-window nil (get-buffer-window "*Completions*"))) + (defun verilog-get-default-symbol () "Return symbol around current point as a string." -- cgit v1.2.3