(Info-find-node-2): Put initial point below the header line and breadcrumbs line.

2 files changed, 9 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fb0c2f734b1..7703e16b73e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-10-18  Juri Linkov  <juri@jurta.org>
+
+        * info.el (Info-find-node-2): Put initial point below the header line
+        and breadcrumbs line.
+
 2008-10-18  Glenn Morris  <rgm@gnu.org>
 
         * doc-view.el (doc-view-pdf->txt, doc-view-ps->pdf): Give an error if
diff --git a/lisp/info.el b/lisp/info.el
index 0039a666c5f..6ee505c6f03 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -966,6 +966,10 @@ a case-insensitive match is tried."
 
             (Info-select-node)
             (goto-char (point-min))
+            (forward-line 1)                   ; skip header line
+            (when (> Info-breadcrumbs-depth 0) ; skip breadcrumbs line
+              (forward-line 1))
+
             (cond (anchorpos
                    (let ((new-history (list Info-current-file
                                             (substring-no-properties nodename))))