Mercurial > emacs

comparison lisp/emacs-lisp/helper.el @ 71743:ce0614025964

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* emacs-lisp/helper.el (Helper-help-scroller): Don't signal error on non-char events.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 09 Jul 2006 15:24:22 +0000
parents 067115a6e738
children 1d4b1a32fd66 8a8e69664178
comparison
equal deleted inserted replaced
71742:fcbb34640a44 71743:ce0614025964
75 '("Space forward, Delete back. Other keys %s" 75 '("Space forward, Delete back. Other keys %s"
76 "Space scrolls forward. Other keys %s" 76 "Space scrolls forward. Other keys %s"
77 "Delete scrolls back. Other keys %s" 77 "Delete scrolls back. Other keys %s"
78 "Type anything to %s")) 78 "Type anything to %s"))
79 blurb) 79 blurb)
80 (setq continue (read-char)) 80 (setq continue (read-event))
81 (cond ((and (memq continue '(?\s ?\C-v)) (< state 2)) 81 (cond ((and (memq continue '(?\s ?\C-v)) (< state 2))
82 (scroll-up)) 82 (scroll-up))
83 ((= continue ?\C-l) 83 ((= continue ?\C-l)
84 (recenter)) 84 (recenter))
85 ((and (= continue ?\177) (zerop (% state 2))) 85 ((and (= continue ?\177) (zerop (% state 2)))