diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2006-07-09 15:24:22 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2006-07-09 15:24:22 +0000 |
| commit | 4b6b279f02b5bacc86b0cf3a4ac730e3f02cbad1 (patch) | |
| tree | ae0052c64d752f387b1e762b5528c8c8f4b2f109 /lisp/emacs-lisp | |
| parent | 47f97084161acb8906cb69bc628be3fdc0454cc5 (diff) | |
| download | emacs-4b6b279f02b5bacc86b0cf3a4ac730e3f02cbad1.tar.gz emacs-4b6b279f02b5bacc86b0cf3a4ac730e3f02cbad1.tar.bz2 emacs-4b6b279f02b5bacc86b0cf3a4ac730e3f02cbad1.zip | |
* emacs-lisp/helper.el (Helper-help-scroller): Don't signal error
on non-char events.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/helper.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/helper.el b/lisp/emacs-lisp/helper.el index 3b614be26f4..92eb86ce676 100644 --- a/lisp/emacs-lisp/helper.el +++ b/lisp/emacs-lisp/helper.el @@ -77,7 +77,7 @@ "Delete scrolls back. Other keys %s" "Type anything to %s")) blurb) - (setq continue (read-char)) + (setq continue (read-event)) (cond ((and (memq continue '(?\s ?\C-v)) (< state 2)) (scroll-up)) ((= continue ?\C-l) |