Mercurial > emacs
changeset 67721:d372bc6eff1d
(lisp-complete-symbol): Don't call delete-windows-on with an inexistent buffer.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 21 Dec 2005 20:02:20 +0000 |
| parents | 477912b55071 |
| children | 3a3904075d3d |
| files | lisp/ChangeLog lisp/emacs-lisp/lisp.el |
| diffstat | 2 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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>
--- 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