Mercurial > hg > xemacs-beta

comparison lisp/info.el @ 357:4711e16a8e49 r21-1-8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-8
author cvs
date Mon, 13 Aug 2007 10:57:04 +0200
parents 7c94d56991e1
children 8e84bee8ddd0
comparison
equal deleted inserted replaced
356:e85f639a32f3 357:4711e16a8e49
2053 (while (>= (setq n (1- n)) 0) 2053 (while (>= (setq n (1- n)) 0)
2054 (if (pos-visible-in-window-p (point-min)) 2054 (if (pos-visible-in-window-p (point-min))
2055 (progn 2055 (progn
2056 (Info-global-prev) 2056 (Info-global-prev)
2057 (message "Node: %s" Info-current-node) 2057 (message "Node: %s" Info-current-node)
2058 (sit-for 0) 2058 (goto-char (point-max))
2059 ;;(scroll-up 1) ; work around bug in pos-visible-in-window-p 2059 (recenter -1)
2060 ;;(scroll-down 1) 2060 (move-to-window-line 0))
2061 (while (not (pos-visible-in-window-p (point-max)))
2062 (scroll-up)))
2063 (scroll-down))))) 2061 (scroll-down)))))
2064 2062
2065 (defun Info-scroll-prev (arg) 2063 (defun Info-scroll-prev (arg)
2066 (interactive "P") 2064 (interactive "P")
2067 (if Info-auto-advance 2065 (if Info-auto-advance