# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1017664311 0
# Node ID cf7a8ea9f88d83b69170b752c1db9e3bb45ea1fd
# Parent  cc29df7efbe89c0f257cd1b494de8c41cfae523f
(help-with-tutorial): Allow various ways
to specify the text in the [...] line, in handling the <...> line.

diff -r cc29df7efbe8 -r cf7a8ea9f88d lisp/help-fns.el
--- a/lisp/help-fns.el	Mon Apr 01 12:14:55 2002 +0000
+++ b/lisp/help-fns.el	Mon Apr 01 12:31:51 2002 +0000
@@ -63,16 +63,34 @@
       (goto-char (point-min))
       (search-forward "\n<<")
       (beginning-of-line)
-      (delete-region (point) (progn (end-of-line) (point)))
+      ;; Convert the <<...>> line to the proper [...] line,
+      ;; or just delete the <<...>> line if a [...] line follows.
+      (cond ((save-excursion
+	       (forward-line 1)
+	       (looking-at "\\["))
+	     (delete-region (point) (progn (forward-line 1) (point))))
+	    ((looking-at "<<Blank lines inserted.*>>")
+	     (replace-match "[Middle of page left blank for didactic purposes.   Text continues below]"))
+	    (t
+	     (looking-at "<<")
+	     (replace-match "[")
+	     (search-forward ">>")
+	     (replace-match "]")))
+      (beginning-of-line)
       (let ((n (- (window-height (selected-window))
 		  (count-lines (point-min) (point))
 		  6)))
-	(if (< n 12)
-	    (newline n)
+	(if (< n 8)
+	    (progn
+	      ;; For a short gap, we don't need the [...] line,
+	      ;; so delete it.
+	      (delete-region (point) (progn (end-of-line) (point)))
+	      (newline n))
 	  ;; Some people get confused by the large gap.
 	  (newline (/ n 2))
-	  (insert "[Middle of page left blank for didactic purposes.  "
-		  "Text continues below]")
+	  
+	  ;; Skip the [...] line (don't delete it).
+	  (forward-line 1)
 	  (newline (- n (/ n 2)))))
       (goto-char (point-min))
       (set-buffer-modified-p nil))))