Mercurial > hg > xemacs-beta

diff lisp/list-mode.el @ 314:341dac730539 r21-0b55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b55
author cvs
date Mon, 13 Aug 2007 10:44:22 +0200
parents 6cb5e14cd98e
children 8429d81ab209
line wrap: on
line diff
--- a/lisp/list-mode.el	Mon Aug 13 10:43:56 2007 +0200
+++ b/lisp/list-mode.el	Mon Aug 13 10:44:22 2007 +0200
@@ -284,6 +284,7 @@
        :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 (/= (% 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