Mercurial > emacs
comparison lisp/info.el @ 1613:694d5c6de713
* bytecomp.el: Declare unread-command-char an obsolete variable.
* vip.el (vip-escape-to-emacs, vip-prefix-arg-value,
vip-prefix-arg-com): Use unread-command-event instead of
unread-command-char; respect its new semantics.
* info.el (Info-summary): Same.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 16 Nov 1992 01:36:46 +0000 |
| parents | 6c2a714566d3 |
| children | c12fbca81b63 |
comparison
equal
deleted
inserted
replaced
| 1612:d0a00faa2c98 | 1613:694d5c6de713 |
|---|---|
| 783 (let (ch flag) | 783 (let (ch flag) |
| 784 (while (progn (setq flag (not (pos-visible-in-window-p (point-max)))) | 784 (while (progn (setq flag (not (pos-visible-in-window-p (point-max)))) |
| 785 (message (if flag "Type Space to see more" | 785 (message (if flag "Type Space to see more" |
| 786 "Type Space to return to Info")) | 786 "Type Space to return to Info")) |
| 787 (if (/= ?\ (setq ch (read-char))) | 787 (if (/= ?\ (setq ch (read-char))) |
| 788 (progn (setq unread-command-char ch) nil) | 788 (progn (setq unread-command-event ch) nil) |
| 789 flag)) | 789 flag)) |
| 790 (scroll-up))))) | 790 (scroll-up))))) |
| 791 | 791 |
| 792 (defun Info-get-token (pos start all &optional errorstring) | 792 (defun Info-get-token (pos start all &optional errorstring) |
| 793 "Return the token around POS, | 793 "Return the token around POS, |