diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | 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 <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 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 |