(crm-completion-help, crm-complete, crm-complete-word, crm-complete-and-exit):

Fix typo in previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 08f56e5815975f25dcbb41a80d1a57526f1a7918..278ae3677cb653db14ae75f603cad40781fa9779 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,11 @@
+2008-04-17  Juanma Barranquero  <lekktu@gmail.com>
+
+       * emacs-lisp/crm.el (crm-completion-help, crm-complete)
+       (crm-complete-word, crm-complete-and-exit): Fix typo in previous change.
+
 2008-04-17  Kenichi Handa  <handa@m17n.org>
 
-       * international/characters.el: Don't make the width of U+00AD to
-       0.
+       * international/characters.el: Don't make the width of U+00AD to 0.
 
 2008-04-17  Nick Roberts  <nickrob@snap.net.nz>
 

diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el
index 85372771853677b5e5f5c3416233791ea19a4ef9..b24c2d9334b3c5b17974eefc3d37f3c5874d0df5 100644 (file)
--- 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