andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Fix typo in previous change.
This commit is contained in:
Juanma Barranquero 2008-04-17 09:50:05 +00:00
parent a2a22302bf
commit e499351ad2
2 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -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>

8
lisp/emacs-lisp/crm.el
View file

@ -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