diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-12-21 20:02:20 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-12-21 20:02:20 +0000 |
| commit | 398de7181d468e168b9face80f5a4015aebf5abd (patch) | |
| tree | 2692561df707e5ef64df2a70f19d69c231bf7856 /lisp/emacs-lisp/lisp.el | |
| parent | a425bd036ee1f22e6f7f4c4f7222371b10ff189f (diff) | |
| download | emacs-398de7181d468e168b9face80f5a4015aebf5abd.tar.gz emacs-398de7181d468e168b9face80f5a4015aebf5abd.tar.bz2 emacs-398de7181d468e168b9face80f5a4015aebf5abd.zip | |
(lisp-complete-symbol): Don't call delete-windows-on with an inexistent buffer.
Diffstat (limited to 'lisp/emacs-lisp/lisp.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 5 |
1 files changed, 3 insertions, 2 deletions
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 |