mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

Minor fixes in introductory comment.

Browse Source 
(completion-def-wrapper): Fix alist.
This commit is contained in:
Luc Teirlinck 2006-01-25 04:11:05 +00:00
parent 82a31b62db
commit 699ee5f57a
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/completion.el
View File

@ -82,11 +82,11 @@
;; 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
;; 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.
;; 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
@ -2250,13 +2250,14 @@ Patched to remove the most recent completion."
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))))))
'((: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))
@ -2354,7 +2355,7 @@ TYPE is the type of the wrapper to be added. Can be :before or :under."
(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