Re: invalid-function ('use-completion-backward)

[Luc Teirlinck]

Chris Moore wrote:
   
   My .emacs contains a single line:

       (dynamic-completion-mode)

   If the first thing I do upon starting Emacs is type:

       "C-x C-f backspace"

   then I see an error message:

       Error in pre-command-hook: (invalid-function ((quote
   use-completion-backward)))

I believe that the folowing patch should fix this.  I can install if
desired.

===File ~/completion-diff===================================
*** completion.el       02 Dec 2005 16:17:17 -0600      1.55
--- completion.el       24 Jan 2006 11:27:18 -0600      
***************
*** 82,88 ****
  ;;  SAVING/LOADING COMPLETIONS
  ;;   Completions are automatically saved from one session to another
  ;; (unless save-completions-flag or enable-completion is nil).
! ;; Activating this minor-mode calling completion-initialize) causes Emacs
  ;; to load a completions database for a saved completions file
  ;; (default: ~/.completions).  When you exit, Emacs saves a copy of the
  ;; completions that you
--- 82,88 ----
  ;;  SAVING/LOADING COMPLETIONS
  ;;   Completions are automatically saved from one session to another
  ;; (unless save-completions-flag or enable-completion is nil).
! ;; Activating this minor-mode (calling completion-initialize) causes Emacs
  ;; to load a completions database for a saved completions file
  ;; (default: ~/.completions).  When you exit, Emacs saves a copy of the
  ;; completions that you
***************
*** 2250,2262 ****
  TYPE is the type of the wrapper to be added.  Can be :before or :under."
    (put function-name 'completion-function
         (cdr (assq type
!                   '((:separator 'use-completion-before-separator)
!                     (:before 'use-completion-before-point)
!                     (:backward-under 'use-completion-backward-under)
!                     (:backward 'use-completion-backward)
!                     (:under 'use-completion-under-point)
!                     (:under-or-before 'use-completion-under-or-before-point)
!                     (:minibuffer-separator 
'use-completion-minibuffer-separator))))))
  
  (defun use-completion-minibuffer-separator ()
    (let ((completion-syntax-table completion-standard-syntax-table))
--- 2250,2263 ----
  TYPE is the type of the wrapper to be added.  Can be :before or :under."
    (put function-name 'completion-function
         (cdr (assq type
!                   '((:separator . use-completion-before-separator)
!                     (:before . use-completion-before-point)
!                     (:backward-under . use-completion-backward-under)
!                     (:backward . use-completion-backward)
!                     (:under . use-completion-under-point)
!                     (:under-or-before . use-completion-under-or-before-point)
!                     (:minibuffer-separator
!                    . use-completion-minibuffer-separator))))))
  
  (defun use-completion-minibuffer-separator ()
    (let ((completion-syntax-table completion-standard-syntax-table))
============================================================