summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorJuri Linkov <juri@jurta.org>2005-12-16 19:09:43 +0000
committerJuri Linkov <juri@jurta.org>2005-12-16 19:09:43 +0000
commit7fbaa67c624e81c5228d2d2afd3b4a6ebfba3326 (patch)
treeb543c895a53a12f0b5b9a6883989b042f1254106 /lisp/emacs-lisp
parent70f314248ac24cab5b9e1fc2142a073223c48354 (diff)
downloademacs-7fbaa67c624e81c5228d2d2afd3b4a6ebfba3326.tar.gz
emacs-7fbaa67c624e81c5228d2d2afd3b4a6ebfba3326.tar.bz2
emacs-7fbaa67c624e81c5228d2d2afd3b4a6ebfba3326.zip
(crm-minibuffer-completion-help):
Use `crm-current-element' for second arg of `display-completion-list'.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/crm.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el
index 46ae6186e44..12f0788a0de 100644
--- a/lisp/emacs-lisp/crm.el
+++ b/lisp/emacs-lisp/crm.el
@@ -247,7 +247,9 @@ and return t."
(if (null completions)
(crm-temp-echo-area-glyphs " [No completions]")
(with-output-to-temp-buffer "*Completions*"
- (display-completion-list (sort completions 'string-lessp))))))
+ (display-completion-list
+ (sort completions 'string-lessp)
+ crm-current-element)))))
nil)
(defun crm-do-completion ()