Parent Directory | Revision Log | Patch
revision 1.13 by pj, Sun Jul 15 16:15:34 2001 UTC | revision 1.13.8.1 by miles, Fri Apr 4 06:20:16 2003 UTC | |
---|---|---|
# | Line 77 | Line 77 |
77 | "Type anything to %s")) | "Type anything to %s")) |
78 | blurb) | blurb) |
79 | (setq continue (read-char)) | (setq continue (read-char)) |
80 | (cond ((and (memq continue '(?\ ?\C-v)) (< state 2)) | (cond ((and (memq continue '(?\s ?\C-v)) (< state 2)) |
81 | (scroll-up)) | (scroll-up)) |
82 | ((= continue ?\C-l) | ((= continue ?\C-l) |
83 | (recenter)) | (recenter)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |