Re: partial-completion-mode and M-TAB

[Kim F. Storm]

Richard Stallman <address@hidden> writes:

>     M-x partial-completion-mode
>
>     open some c file:
>
>     M-TAB runs the command PC-lisp-complete-symbol
>
> The problem is the fact that partial-completion-mode rebinds this
> command.  The clean way to do it would be by setting hooks.  However,
> I guess there is no suitable hook in lisp-complete-symbol that can
> call a different general completion mechanism.
>
> As a stopgap, partial-completion-mode could rebind the command
> lisp-complete-symbol to PC-lisp-complete-symbol.

Does the following patch give good results?

*** complete.el 06 Mar 2007 09:16:28 +0100      1.60
--- complete.el 07 Mar 2007 10:59:08 +0100      
***************
*** 157,163 ****
           (define-key must-match-map "\n"      'minibuffer-complete-and-exit)
           (define-key must-match-map "?"       'minibuffer-completion-help)
  
!          (define-key global-map "\e\t"        'complete-symbol))
          (PC-default-bindings
           (define-key completion-map "\t"      'PC-complete)
           (define-key completion-map " "       'PC-complete-word)
--- 157,163 ----
           (define-key must-match-map "\n"      'minibuffer-complete-and-exit)
           (define-key must-match-map "?"       'minibuffer-completion-help)
  
!          (define-key global-map [remap lisp-complete-symbol]  nil))
          (PC-default-bindings
           (define-key completion-map "\t"      'PC-complete)
           (define-key completion-map " "       'PC-complete-word)
***************
*** 181,187 ****
           (define-key must-match-map "\e\n"    'PC-complete-and-exit)
           (define-key must-match-map "\e?"     'PC-completion-help)
  
!          (define-key global-map "\e\t"        'PC-lisp-complete-symbol)))))
  
  ;;;###autoload
  (define-minor-mode partial-completion-mode
--- 181,187 ----
           (define-key must-match-map "\e\n"    'PC-complete-and-exit)
           (define-key must-match-map "\e?"     'PC-completion-help)
  
!          (define-key global-map [remap lisp-complete-symbol]  
'PC-lisp-complete-symbol)))))
  
  ;;;###autoload
  (define-minor-mode partial-completion-mode

-- 
Kim F. Storm <address@hidden> http://www.cua.dk