From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 12 Jul 2002 23:26:17 +0000 (+0000)
Subject: (help-with-tutorial): Display completion list right away.
X-Git-Tag: ttn-vms-21-2-B4~14169
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e870de8835d8ddcf54b4879bc0e32c1d08035b95;p=emacs.git

(help-with-tutorial): Display completion list right away.
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index b6c9ecd456f..996f6a48aaa 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -45,7 +45,15 @@ If there's no tutorial in that language, `TUTORIAL' is selected.
 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")))