(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 e02ae97a0e197fcd481d58d86944625503896133..e54a579620f3389344b52238be6caa5c4cf469a7 100644 (file)
--- 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 "\^_")