From fb163355a4461b5d4c455d1ab2e89f9f79f4ded9 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 2 Nov 2000 01:21:11 +0000 Subject: [PATCH] (Info-insert-dir): Don't include blank lines at beginning of additional dir files (one is added automatically). --- lisp/info.el | 2 ++ 1 file changed, 2 insertions(+) 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 "\^_") -- 2.39.5