Mercurial > emacs

comparison lisp/emacs-lisp/lisp.el @ 67721:d372bc6eff1d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 dc66229d83bf
children bffc4c57eda9
comparison
equal deleted inserted replaced
67720:477912b55071 67721:d372bc6eff1d
587 (setq list (cdr list))) 587 (setq list (cdr list)))
588 (setq list (nreverse new)))) 588 (setq list (nreverse new))))
589 (if (> (length list) 1) 589 (if (> (length list) 1)
590 (with-output-to-temp-buffer "*Completions*" 590 (with-output-to-temp-buffer "*Completions*"
591 (display-completion-list list pattern)) 591 (display-completion-list list pattern))
592 (delete-windows-on "*Completions*"))) 592 (if (get-buffer "*Completions*")
593 (delete-windows-on "*Completions*"))))
593 (message "Making completion list...%s" "done"))))))) 594 (message "Making completion list...%s" "done")))))))
594 595
595 ;;; arch-tag: aa7fa8a4-2e6f-4e9b-9cd9-fef06340e67e 596 ;; arch-tag: aa7fa8a4-2e6f-4e9b-9cd9-fef06340e67e
596 ;;; lisp.el ends here 597 ;;; lisp.el ends here