[Emacs-diffs] Changes to emacs/lisp/help-fns.el

[Richard M. Stallman]

Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.14 emacs/lisp/help-fns.el:1.15
*** emacs/lisp/help-fns.el:1.14 Fri Jul 12 12:55:46 2002
--- emacs/lisp/help-fns.el      Fri Jul 12 19:26:17 2002
***************
*** 45,51 ****
  With arg, you are asked to choose which language."
    (interactive "P")
    (let ((lang (if arg
!                 (read-language-name 'tutorial "Language: " "English")
                (if (get-language-info current-language-environment 'tutorial)
                    current-language-environment
                  "English")))
--- 45,59 ----
  With arg, you are asked to choose which language."
    (interactive "P")
    (let ((lang (if arg
!                 (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")))