Mercurial > emacs

changeset 94131:c39283931fa5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(crm-completion-help, crm-complete, crm-complete-word, crm-complete-and-exit): Fix typo in previous change.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 17 Apr 2008 09:45:38 +0000
parents 66ccaf342bd5
children 5818ab6c0a59
files lisp/emacs-lisp/crm.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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