From: Stefan Monnier Date: Wed, 21 Dec 2005 20:02:20 +0000 (+0000) Subject: (lisp-complete-symbol): Don't call delete-windows-on with an inexistent buffer. X-Git-Tag: emacs-pretest-22.0.90~5146 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=398de7181d468e168b9face80f5a4015aebf5abd;p=emacs.git (lisp-complete-symbol): Don't call delete-windows-on with an inexistent buffer. --- 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 + + * emacs-lisp/lisp.el (lisp-complete-symbol): Don't call + delete-windows-on with an inexistent buffer. + 2005-12-22 Nick Roberts - * 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 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