# HG changeset patch # User Richard M. Stallman # Date 1026516377 0 # Node ID 3b9bda9aa32d671343bde8c8b8af63b4fb93169e # Parent a86a0859521a689aa679330b282ebc5dcbdb01a4 (help-with-tutorial): Display completion list right away. diff -r a86a0859521a -r 3b9bda9aa32d lisp/help-fns.el --- 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")))