# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1031193521 0
# Node ID debd2b1e4d08a2bd46d3971dd106868f74c65a9d
# Parent  b922395a95763f5cbc7a9067172ac494b43dff70
(help-with-tutorial): Properly set up
completion-reference-buffer in the *Completion* buffer.

diff -r b922395a9576 -r debd2b1e4d08 lisp/help-fns.el
--- a/lisp/help-fns.el	Thu Sep 05 02:37:17 2002 +0000
+++ b/lisp/help-fns.el	Thu Sep 05 02:38:41 2002 +0000
@@ -45,15 +45,27 @@
 With arg, you are asked to choose which language."
   (interactive "P")
   (let ((lang (if arg
-		  (progn
+		  (let (completion-buffer)
 		    ;; 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"))
+					  (and (listp elm) (assq 'tutorial elm)))))
+		      (setq completion-buffer standard-output))
+		    ;; Arrange to set completion-reference-buffer
+		    ;; in *Completions* to point to the minibuffer,
+		    ;; after entering the minibuffer.
+		    (let ((minibuffer-setup-hook minibuffer-setup-hook))
+		      (add-hook 'minibuffer-setup-hook
+				(lambda ()
+				  (let ((mini (current-buffer)))
+				    (with-current-buffer completion-buffer
+				      (make-local-variable 'completion-reference-buffer)
+				      (setq completion-reference-buffer 
+					    mini)))))
+		      (read-language-name 'tutorial "Language: " "English")))
 		(if (get-language-info current-language-environment 'tutorial)
 		    current-language-environment
 		  "English")))