summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/crm.el
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2008-04-17 09:50:05 +0000
committerJuanma Barranquero <lekktu@gmail.com>2008-04-17 09:50:05 +0000
commite499351ad25105378726415309ed22ce55f4b9e4 (patch)
treee49f9c31c3ec1d46db10fb926423457702e92aaf /lisp/emacs-lisp/crm.el
parenta2a22302bffb4e2f434eb8c07e40b74c7c868039 (diff)
downloademacs-e499351ad25105378726415309ed22ce55f4b9e4.tar.gz
(crm-completion-help, crm-complete, crm-complete-word, crm-complete-and-exit):
Fix typo in previous change.
Diffstat (limited to 'lisp/emacs-lisp/crm.el')
-rw-r--r--lisp/emacs-lisp/crm.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el
index 85372771853..b24c2d9334b 100644
--- a/lisp/emacs-lisp/crm.el
+++ b/lisp/emacs-lisp/crm.el
@@ -179,7 +179,7 @@ Place an overlay on the element, with a `field' property, and return it."
(defun crm-completion-help ()
"Display a list of possible completions of the current minibuffer element."
(interactive)
- (let ((ol (crm-select-current-element)))
+ (let ((ol (crm--select-current-element)))
(unwind-protect
(minibuffer-completion-help)
(delete-overlay ol)))
@@ -191,7 +191,7 @@ If no characters can be completed, display a list of possible completions.
Return t if the current element is now a valid match; otherwise return nil."
(interactive)
- (let ((ol (crm-select-current-element)))
+ (let ((ol (crm--select-current-element)))
(unwind-protect
(minibuffer-complete)
(delete-overlay ol))))
@@ -200,7 +200,7 @@ Return t if the current element is now a valid match; otherwise return nil."
"Complete the current element at most a single word.
Like `minibuffer-complete-word' but for `completing-read-multiple'."
(interactive)
- (let ((ol (crm-select-current-element)))
+ (let ((ol (crm--select-current-element)))
(unwind-protect
(minibuffer-complete-word)
(delete-overlay ol))))
@@ -216,7 +216,7 @@ This function is modeled after `minibuffer-complete-and-exit'."
(goto-char (minibuffer-prompt-end))
(while
(and doexit
- (let ((ol (crm-select-current-element)))
+ (let ((ol (crm--select-current-element)))
(goto-char (overlay-end ol))
(unwind-protect
(catch 'exit