From: Miles Bader <miles@gnu.org>
Date: Thu, 2 Nov 2000 01:21:11 +0000 (+0000)
Subject: (Info-insert-dir): Don't include blank lines at beginning of additional
X-Git-Tag: emacs-pretest-21.0.90~366
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb163355a4461b5d4c455d1ab2e89f9f79f4ded9;p=emacs.git

(Info-insert-dir): Don't include blank lines at beginning of additional
dir files (one is added automatically).
---

diff --git a/lisp/info.el b/lisp/info.el
index e02ae97a0e1..e54a579620f 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -772,6 +772,8 @@ a case-insensitive match is tried."
 	    (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 "\^_")