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

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index b6c9ecd456f4a3623e2e9f566e1414b8d42ec4d0..996f6a48aaa38f32493701e65660e3bb18df495c 100644 (file)
--- 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")))