# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772750454 0
# Node ID dfef58fcda757310aeb621953e632de166a8c9f6
# Parent  40e02f4c8ae17a78d64560afe96e8dc46923b548
(Info-insert-dir): Capitalize `node' when inserting it.
(Info-search): Don't move point to beginning, after Info-read-subfile.

diff -r 40e02f4c8ae1 -r dfef58fcda75 lisp/info.el
--- a/lisp/info.el	Mon Jun 27 20:44:08 1994 +0000
+++ b/lisp/info.el	Mon Jun 27 20:54:14 1994 +0000
@@ -469,7 +469,7 @@
 		(beginning-of-line))
 	    ;; If none exists, add one.
 	    (goto-char (point-max))
-	    (insert "\^_\nFile: dir\tnode: " nodename "\n\n* Menu:\n\n"))
+	    (insert "\^_\nFile: dir\tNode: " nodename "\n\n* Menu:\n\n"))
 	  ;; Merge the text from the other buffer's menu
 	  ;; into the menu in the like-named node in the main buffer.
 	  (apply 'insert-buffer-substring (cdr (car nodes)))
@@ -677,7 +677,7 @@
 		(message "Searching subfile %s..." (cdr (car list)))
 		(Info-read-subfile (car (car list)))
 		(setq list (cdr list))
-		(goto-char (point-min))
+;;		(goto-char (point-min))
 		(if (re-search-forward regexp nil t)
 		    (setq found (point) list ())))
 	      (if found