From e499351ad25105378726415309ed22ce55f4b9e4 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 17 Apr 2008 09:50:05 +0000 Subject: [PATCH] (crm-completion-help, crm-complete, crm-complete-word, crm-complete-and-exit): Fix typo in previous change. --- lisp/ChangeLog | 8 ++++++-- lisp/emacs-lisp/crm.el | 8 ++++---- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 08f56e58159..278ae3677cb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,11 @@ +2008-04-17 Juanma Barranquero + + * 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 - * 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 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 -- 2.11.4.GIT