From 73bde1a893686a8dc36939437cc4a49f18fcc6a0 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 18 Oct 2008 23:05:11 +0000 Subject: [PATCH] (Info-find-node-2): Put initial point below the header line and breadcrumbs line. --- lisp/ChangeLog | 5 +++++ lisp/info.el | 4 ++++ 2 files changed, 9 insertions(+) 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 + + * info.el (Info-find-node-2): Put initial point below the header line + and breadcrumbs line. + 2008-10-18 Glenn Morris * 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)))) -- 2.39.5