# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 973128071 0
# Node ID e3d7bf8b5a51de9ec3b88b71e950de2e4d878729
# Parent  73ec1ee4f829fbdabed35867c90fd32d0425eef0
(Info-insert-dir): Don't include blank lines at beginning of additional
dir files (one is added automatically).

diff -r 73ec1ee4f829 -r e3d7bf8b5a51 lisp/info.el
--- a/lisp/info.el	Wed Nov 01 23:31:59 2000 +0000
+++ b/lisp/info.el	Thu Nov 02 01:21:11 2000 +0000
@@ -772,6 +772,8 @@
 	    (while (re-search-forward "^\\* Menu:" nil t)
 	      (let (beg nodename end)
 		(forward-line 1)
+		(while (and (eolp) (not (eobp)))
+		  (forward-line 1))
 		(setq beg (point))
 		(or (search-backward "\n\^_" nil 'move)
 		    (looking-at "\^_")