X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Flist-mode.el;h=b3603e55fa3a5ea294988beca6fca080c71333ce;hb=041d9d27443ebd08f42fca2becb1f32451c1576f;hp=8789a14db19b69dd4a89e3ebf4ca9237d0881c05;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git

diff --git a/lisp/list-mode.el b/lisp/list-mode.el
index 8789a14..b3603e5 100644
--- a/lisp/list-mode.el
+++ b/lisp/list-mode.el
@@ -284,6 +284,7 @@ If `completion-highlight-first-word-only' is non-nil, then only the start
        :user-data
        :reference-buffer
        (:help-string completion-default-help-string)
+       (:completion-string "Possible completions are:")
        :window-width)
       ()
     (let ((old-buffer (current-buffer))
@@ -341,7 +342,8 @@ If `completion-highlight-first-word-only' is non-nil, then only the start
 			      (if (/= (% count cols) 0) ; want ceiling...
 				  (1+ (/ count cols))
                                 (/ count cols)))))))
-	      (princ (gettext "Possible completions are:"))
+	      (if (stringp cl-completion-string)
+		  (princ (gettext cl-completion-string)))
 	      (let ((tail completions)
 		    (r 0)
 		    (regexp-string