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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 159632e3c9d26b6acab95e9ad92c47ed17ed06ff..eabd584c585fb14c2a749b73a1c06d4b429d0640 100644 (file)
--- 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 7aeb33a648e1c83501d8a23d1c029675d830b132..5d593ecb9fddcca593e4acf394ed70b5a42d8dc3 100644 (file)
--- 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