Mercurial > emacs
comparison lisp/info.el @ 58040:af694410e72f
(Info-revert-find-node): Don't use beginning-of-buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 08 Nov 2004 16:43:00 +0000 |
| parents | 117144126cd9 |
| children | f3726ecfee76 |
comparison
equal
deleted
inserted
replaced
| 58039:5bf48738f9ab | 58040:af694410e72f |
|---|---|
| 655 (setq Info-history old-history) | 655 (setq Info-history old-history) |
| 656 (if (and (equal old-filename Info-current-file) | 656 (if (and (equal old-filename Info-current-file) |
| 657 (equal old-nodename Info-current-node)) | 657 (equal old-nodename Info-current-node)) |
| 658 (progn | 658 (progn |
| 659 ;; note goto-line is no good, we want to measure from point-min | 659 ;; note goto-line is no good, we want to measure from point-min |
| 660 (beginning-of-buffer) | 660 (goto-char (point-min)) |
| 661 (forward-line wline) | 661 (forward-line wline) |
| 662 (set-window-start (selected-window) (point)) | 662 (set-window-start (selected-window) (point)) |
| 663 (beginning-of-buffer) | 663 (goto-char (point-min)) |
| 664 (forward-line pline) | 664 (forward-line pline) |
| 665 (move-to-column pcolumn)) | 665 (move-to-column pcolumn)) |
| 666 ;; only add to the history when coming from a different file+node | 666 ;; only add to the history when coming from a different file+node |
| 667 (if new-history | 667 (if new-history |
| 668 (setq Info-history (cons new-history Info-history)))))) | 668 (setq Info-history (cons new-history Info-history)))))) |