Re: partial-completion-mode and mouse selection

[A Soare]

> >  1. partial completion mode started.
> >
> >  2. M-:
> >
> >  Eval: (n-f <M-TAB>
> >
> >  Select using left mouse button one choice.
> 
> This bug report is still somewhat vague, but I see your point.
> 
> Please test how the following patch affects partial completion in
> general.
> 
> 
> *** complete.el       21 Mar 2007 19:23:12 -0000      1.67
> --- complete.el       22 Mar 2007 21:53:28 -0000
> ***************
> *** 743,755 ****
>                       (and completion-auto-help
>                            (eq last-command this-command))
>                       (eq mode 'help))
>                   (with-output-to-temp-buffer "*Completions*"
>                     (display-completion-list (sort helpposs 'string-lessp))
>                     (with-current-buffer standard-output
>                       ;; Record which part of the buffer we are completing
>                       ;; so that choosing a completion from the list
>                       ;; knows how much old text to replace.
> !                     (setq completion-base-size dirlength)))
>                 (PC-temp-minibuffer-message " [Next char not unique]"))
>               nil)))))
>   
> --- 743,758 ----
>                       (and completion-auto-help
>                            (eq last-command this-command))
>                       (eq mode 'help))
> +                     (let ((width (minibuffer-prompt-width)))
>                       (with-output-to-temp-buffer "*Completions*"
>                         (display-completion-list (sort helpposs 
> 'string-lessp))
>                         (with-current-buffer standard-output
>                           ;; Record which part of the buffer we are completing
>                           ;; so that choosing a completion from the list
>                           ;; knows how much old text to replace.
> !                         (setq completion-base-size (if dirname
> !                                                        dirlength
> !                                                      (- beg 1 width))))))
>                 (PC-temp-minibuffer-message " [Next char not unique]"))
>               nil)))))
>   
> ***************
> *** 799,804 ****
> --- 802,808 ----
>              (setq quit-flag nil
>                    unread-command-events '(7))))))))
>   
> + (defvar PC-lisp-complete-end nil)
>   
>   (defun PC-lisp-complete-symbol ()
>     "Perform completion on Lisp symbol preceding point.
> ***************
> *** 825,831 ****
>                       (or (boundp sym) (fboundp sym)
>                           (symbol-plist sym))))))
>        (PC-not-minibuffer t))
> !     (PC-do-completion nil beg end)))
>   
>   (defun PC-complete-as-file-name ()
>      "Perform completion on file names preceding point.
> --- 829,838 ----
>                       (or (boundp sym) (fboundp sym)
>                           (symbol-plist sym))))))
>        (PC-not-minibuffer t))
> !     (if (equal last-command 'PC-lisp-complete-symbol)
> !         (PC-do-completion nil beg PC-lisp-complete-end)
> !       (setq PC-lisp-complete-end (point-marker))
> !       (PC-do-completion nil beg end))))
>   
>   (defun PC-complete-as-file-name ()
>      "Perform completion on file names preceding point.
> 
> 
> 


I have just installed to me and checked this patch on a few examples, and it 
works well for them.

So it seems to be good for the bug reported.

Alin Soare.