Commit 6d93e4aa authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(lisp-complete-symbol): Regenerate the completion list, even after a partial

completion has been inserted in the current buffer.  If there are more than 1
completion, redisplay the *Completions* buffer; if the completion is unique,
delete the *Completions* window.
parent eba9bb5f
2005-12-10 Kevin Rodgers <ihs_4664@ihs.com>
* emacs-lisp/lisp.el (lisp-complete-symbol): Regenerate the
completion list, even after a partial completion has been
inserted in the current buffer. If there are more than 1
completion, redisplay the *Completions* buffer; if the
completion is unique, delete the *Completions* window.
2005-12-10 Eli Zaretskii <eliz@gnu.org> 2005-12-10 Eli Zaretskii <eliz@gnu.org>
   
* mail/rmail.el (rmail-next-same-subject): Handle multiple "Re: " * mail/rmail.el (rmail-next-same-subject): Handle multiple "Re: "
......
...@@ -569,10 +569,11 @@ considered." ...@@ -569,10 +569,11 @@ considered."
((null completion) ((null completion)
(message "Can't find completion for \"%s\"" pattern) (message "Can't find completion for \"%s\"" pattern)
(ding)) (ding))
((not (string= pattern completion))
(delete-region beg end)
(insert completion))
(t (t
(unless (string= completion pattern)
(delete-region beg end)
(insert completion)
(setq pattern completion))
(message "Making completion list...") (message "Making completion list...")
(let ((list (all-completions pattern obarray predicate))) (let ((list (all-completions pattern obarray predicate)))
(setq list (sort list 'string<)) (setq list (sort list 'string<))
...@@ -585,8 +586,10 @@ considered." ...@@ -585,8 +586,10 @@ considered."
new)) new))
(setq list (cdr list))) (setq list (cdr list)))
(setq list (nreverse new)))) (setq list (nreverse new))))
(with-output-to-temp-buffer "*Completions*" (if (> (length list) 1)
(display-completion-list list pattern))) (with-output-to-temp-buffer "*Completions*"
(display-completion-list list pattern))
(delete-windows-on "*Completions*")))
(message "Making completion list...%s" "done"))))))) (message "Making completion list...%s" "done")))))))
;;; arch-tag: aa7fa8a4-2e6f-4e9b-9cd9-fef06340e67e ;;; arch-tag: aa7fa8a4-2e6f-4e9b-9cd9-fef06340e67e
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment