/[emacs]/emacs/lisp/emacs-lisp/helper.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/helper.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.13.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26