comparison lisp/info.el @ 98847:5b8c868971fc

(Info-find-node-2): Put initial point below the header line and breadcrumbs line.
author Juri Linkov <juri@jurta.org>
date Sat, 18 Oct 2008 23:04:38 +0000
parents de01cc2d680e
children 8870254fa09e
comparison
equal deleted inserted replaced
98846:7d3f3273efda 98847:5b8c868971fc
964 ;; No such anchor in tag table or node in tag table or file 964 ;; No such anchor in tag table or node in tag table or file
965 (error "No such node or anchor: %s" nodename)) 965 (error "No such node or anchor: %s" nodename))
966 966
967 (Info-select-node) 967 (Info-select-node)
968 (goto-char (point-min)) 968 (goto-char (point-min))
969 (forward-line 1) ; skip header line
970 (when (> Info-breadcrumbs-depth 0) ; skip breadcrumbs line
971 (forward-line 1))
972
969 (cond (anchorpos 973 (cond (anchorpos
970 (let ((new-history (list Info-current-file 974 (let ((new-history (list Info-current-file
971 (substring-no-properties nodename)))) 975 (substring-no-properties nodename))))
972 ;; Add anchors to the history too 976 ;; Add anchors to the history too
973 (setq Info-history-list 977 (setq Info-history-list