diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2008-04-17 09:50:05 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2008-04-17 09:50:05 +0000 |
commit | e499351ad25105378726415309ed22ce55f4b9e4 (patch) | |
tree | e49f9c31c3ec1d46db10fb926423457702e92aaf /lisp/emacs-lisp/crm.el | |
parent | a2a22302bffb4e2f434eb8c07e40b74c7c868039 (diff) | |
download | emacs-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.el | 8 |
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 |