summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/emacs-lisp')
-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