(lisp-complete-symbol): Don't call delete-windows-on with an inexistent buffer.

This commit is contained in:
Stefan Monnier 2005-12-21 20:02:20 +00:00
parent a425bd036e
commit 398de7181d
2 changed files with 9 additions and 3 deletions

View file

@ -589,8 +589,9 @@ considered."
(if (> (length list) 1)
(with-output-to-temp-buffer "*Completions*"
(display-completion-list list pattern))
(delete-windows-on "*Completions*")))
(if (get-buffer "*Completions*")
(delete-windows-on "*Completions*"))))
(message "Making completion list...%s" "done")))))))
;;; arch-tag: aa7fa8a4-2e6f-4e9b-9cd9-fef06340e67e
;; arch-tag: aa7fa8a4-2e6f-4e9b-9cd9-fef06340e67e
;;; lisp.el ends here