# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1208425538 0
# Node ID c39283931fa59aed8cb1e22fdb2079b3f1707f66
# Parent  66ccaf342bd56a5dc2647f3dbb70ead919306373
(crm-completion-help, crm-complete, crm-complete-word, crm-complete-and-exit):
Fix typo in previous change.

diff -r 66ccaf342bd5 -r c39283931fa5 lisp/emacs-lisp/crm.el
--- a/lisp/emacs-lisp/crm.el	Thu Apr 17 07:58:33 2008 +0000
+++ b/lisp/emacs-lisp/crm.el	Thu Apr 17 09:45:38 2008 +0000
@@ -179,7 +179,7 @@
 (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 @@
 
 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 @@
   "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 @@
     (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