comparison lisp/completion.el @ 68379:311328d6ca44

Minor fixes in introductory comment. (completion-def-wrapper): Fix alist.

68378:ebc946c50b50

;; database by changing the value of enable-completion.
;;
;;  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
;; often use.  When you next start, Emacs loads in the saved completion file.
;;
;;   The number of completions saved depends loosely on
;; *saved-completions-decay-factor*.  Completions that have never been
;; inserted via "complete" are not saved.  You are encouraged to experiment
;; with different functions (see compute-completion-min-num-uses).

(defun completion-def-wrapper (function-name type)
  "Add a call to update the completion database before function execution.
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))
    (use-completion-before-separator)))

               (c-mode-hook		. completion-c-mode-hook)
               (fortran-mode-hook	. completion-setup-fortran-mode)))
    (if dynamic-completion-mode
        (add-hook (car x) (cdr x))
      (remove-hook (car x) (cdr x))))
  
  ;; "Complete" Key Keybindings.  We don't want to use a minor-mode
  ;; map because these have too high a priority.  We could/should
  ;; probably change the interpretation of minor-mode-map-alist such
  ;; that a map has lower precedence if the symbol is not buffer-local.
  (while completion-saved-bindings

68379:311328d6ca44

;; database by changing the value of enable-completion.
;;
;;  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) loads
;; a completions database for a saved completions file
;; (default: ~/.completions).  When you exit, Emacs saves a copy of the
;; completions that you often use.  When you next start, Emacs loads in
;; the saved completion file.
;;
;;   The number of completions saved depends loosely on
;; *saved-completions-decay-factor*.  Completions that have never been
;; inserted via "complete" are not saved.  You are encouraged to experiment
;; with different functions (see compute-completion-min-num-uses).

(defun completion-def-wrapper (function-name type)
  "Add a call to update the completion database before function execution.
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))
    (use-completion-before-separator)))

               (c-mode-hook		. completion-c-mode-hook)
               (fortran-mode-hook	. completion-setup-fortran-mode)))
    (if dynamic-completion-mode
        (add-hook (car x) (cdr x))
      (remove-hook (car x) (cdr x))))

  ;; "Complete" Key Keybindings.  We don't want to use a minor-mode
  ;; map because these have too high a priority.  We could/should
  ;; probably change the interpretation of minor-mode-map-alist such
  ;; that a map has lower precedence if the symbol is not buffer-local.
  (while completion-saved-bindings