Mercurial > emacs

comparison lisp/info.el @ 1821:04fb1d3d6992

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
JimB's changes since January 18th
author Jim Blandy <jimb@redhat.com>
date Tue, 26 Jan 1993 01:58:16 +0000
parents 9c0e14881b8f
children b540866e8a79
comparison
equal deleted inserted replaced
1820:b95bdb97c3e8 1821:04fb1d3d6992
766 (let (ch flag) 766 (let (ch flag)
767 (while (progn (setq flag (not (pos-visible-in-window-p (point-max)))) 767 (while (progn (setq flag (not (pos-visible-in-window-p (point-max))))
768 (message (if flag "Type Space to see more" 768 (message (if flag "Type Space to see more"
769 "Type Space to return to Info")) 769 "Type Space to return to Info"))
770 (if (/= ?\ (setq ch (read-char))) 770 (if (/= ?\ (setq ch (read-char)))
771 (progn (setq unread-command-event ch) nil) 771 (progn (setq unread-command-events (list ch)) nil)
772 flag)) 772 flag))
773 (scroll-up))))) 773 (scroll-up)))))
774 774
775 (defun Info-get-token (pos start all &optional errorstring) 775 (defun Info-get-token (pos start all &optional errorstring)
776 "Return the token around POS, 776 "Return the token around POS,