Mercurial > emacs

diff lisp/help-fns.el @ 46334:3b9bda9aa32d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(help-with-tutorial): Display completion list right away.
author Richard M. Stallman <rms@gnu.org>
date Fri, 12 Jul 2002 23:26:17 +0000
parents 1d8304aae3cc
children 51248f96252a
line wrap: on
line diff
--- a/lisp/help-fns.el	Fri Jul 12 23:25:26 2002 +0000
+++ b/lisp/help-fns.el	Fri Jul 12 23:26:17 2002 +0000
@@ -45,7 +45,15 @@
 With arg, you are asked to choose which language."
   (interactive "P")
   (let ((lang (if arg
-		  (read-language-name 'tutorial "Language: " "English")
+		  (progn
+		    ;; Display a completion list right away
+		    ;; to guide the user.
+		    (with-output-to-temp-buffer "*Completions*"
+		      (display-completion-list
+		       (all-completions "" language-info-alist
+					(lambda (elm)
+					  (and (listp elm) (assq 'tutorial elm))))))
+		    (read-language-name 'tutorial "Language: " "English"))
 		(if (get-language-info current-language-environment 'tutorial)
 		    current-language-environment
 		  "English")))