From: Juri Linkov <juri@jurta.org>
Date: Sat, 18 Oct 2008 23:05:11 +0000 (+0000)
Subject: (Info-find-node-2): Put initial point below the header line and breadcrumbs line.
X-Git-Tag: emacs-pretest-23.0.90~2395
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=73bde1a893686a8dc36939437cc4a49f18fcc6a0;p=emacs.git

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

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))))