# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1135195340 0
# Node ID d372bc6eff1d75bfec87a5a30f5c178133f9fc5d
# Parent  477912b55071dcaf7c5b02e72022719ec35bedaa
(lisp-complete-symbol): Don't call delete-windows-on with an inexistent buffer.

diff -r 477912b55071 -r d372bc6eff1d lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Dec 21 17:33:40 2005 +0000
+++ b/lisp/ChangeLog	Wed Dec 21 20:02:20 2005 +0000
@@ -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 -r 477912b55071 -r d372bc6eff1d lisp/emacs-lisp/lisp.el
--- a/lisp/emacs-lisp/lisp.el	Wed Dec 21 17:33:40 2005 +0000
+++ b/lisp/emacs-lisp/lisp.el	Wed Dec 21 20:02:20 2005 +0000
@@ -589,8 +589,9 @@
 		 (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