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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fb0c2f734b1181073c3f7d16014a0ab05f728372..7703e16b73e6bf79b51e3c9be1bddb644f5f1626 100644 (file)
--- 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 0039a666c5f7e285189e13f37f340e734ce0fe16..6ee505c6f03fab34f8c9c2b5fdc4011ba737d0a7 100644 (file)
--- 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))))