Re: Completion problems - completion window not rewritten

[Kevin Rodgers <ihs_4664@yahoo.com>]

Lennart Borgman wrote:
> Start with
> 
>   emacs -Q
> 
> In the *scratch* buffer enter the text
> 
>   'default-
> 
> and the type
> 
>    ESC TAB
> 
> This gives all completions for default-* in the *Completions* buffer. 
> Now continue to type so that the *scratch* buffer contains
> 
>   'default-dir
> 
> Again type
> 
>    ESC TAB
> 
> I would expect the *Completion* buffer to show only the now useful 
> alternatives. However this does not happen. Closing the window showing 
> the *Completion* buffer and trying again with ESC TAB shows the correct 
> alternatives however.

2005-12-07  Kevin Rodgers  <ihs_4664@ihs.com>

	* emacs-lisp/lisp.el (lisp-complete-symbol): Regenerate the
	completion list and redisplay the *Completions* buffer after a
	partial completion has been inserted in the buffer.


*** emacs-21.4/lisp/emacs-lisp/lisp.el~	Tue Oct 22 02:14:32 2002
--- emacs-21.4/lisp/emacs-lisp/lisp.el	Wed Dec  7 12:13:28 2005
***************
*** 389,398 ****
   	  ((null completion)
   	   (message "Can't find completion for \"%s\"" pattern)
   	   (ding))
- 	  ((not (string= pattern completion))
- 	   (delete-region beg end)
- 	   (insert completion))
   	  (t
   	   (message "Making completion list...")
   	   (let ((list (all-completions pattern obarray predicate)))
   	     (setq list (sort list 'string<))
--- 389,399 ----
   	  ((null completion)
   	   (message "Can't find completion for \"%s\"" pattern)
   	   (ding))
   	  (t
+ 	   (unless (string= completion pattern)
+ 	     (delete-region beg end)
+ 	     (insert completion)
+ 	     (setq pattern completion))
   	   (message "Making completion list...")
   	   (let ((list (all-completions pattern obarray predicate)))
   	     (setq list (sort list 'string<))

-- 
Kevin Rodgers