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

2 files changed, 9 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 159632e3c9d..eabd584c585 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,11 @@
+2005-12-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * emacs-lisp/lisp.el (lisp-complete-symbol): Don't call
+        delete-windows-on with an inexistent buffer.
+
 2005-12-22  Nick Roberts  <nickrob@snap.net.nz>
 
-        * progmodes/gud.el (gud-tooltip-modes, gud-tooltip-display): 
+        * progmodes/gud.el (gud-tooltip-modes, gud-tooltip-display):
         Delete defcustom variable :tag names.
 
 2005-12-20  Stefan Monnier  <monnier@iro.umontreal.ca>
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 7aeb33a648e..5d593ecb9fd 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -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