From: Juri Linkov <juri@jurta.org>
Date: Fri, 16 Dec 2005 19:09:43 +0000 (+0000)
Subject: (crm-minibuffer-completion-help):
X-Git-Tag: emacs-pretest-22.0.90~5234
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7fbaa67c624e81c5228d2d2afd3b4a6ebfba3326;p=emacs.git

(crm-minibuffer-completion-help):
Use `crm-current-element' for second arg of `display-completion-list'.
---

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 ()