Mercurial > emacs
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 |