Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
699ee5f5
Commit
699ee5f5
authored
Jan 25, 2006
by
Luc Teirlinck
Browse files
Minor fixes in introductory comment.
(completion-def-wrapper): Fix alist.
parent
82a31b62
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
12 deletions
+13
-12
lisp/completion.el
lisp/completion.el
+13
-12
No files found.
lisp/completion.el
View file @
699ee5f5
...
...
@@ -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 Emac
s
;;
to load
a completions database for a saved completions file
;; Activating this minor-mode
(
calling completion-initialize)
load
s
;; 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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment