Fix scrolling backwards in Helper-help

* lisp/emacs-lisp/helper.el (Helper-help-scroller): Fix scrolling
backwards.

diff --git a/lisp/emacs-lisp/helper.el b/lisp/emacs-lisp/helper.el
index 930dbfe6c49f2893483be6a7f604ec8fd0a04796..cbc0afc3a72cf7cb1a6ba4660969a80695132c72 100644 (file)
--- a/lisp/emacs-lisp/helper.el
+++ b/lisp/emacs-lisp/helper.el
@@ -77,9 +77,11 @@
          (setq continue (read-event))
          (cond ((and (memq continue '(?\s ?\C-v)) (< state 2))
                 (scroll-up))
-               ((= continue ?\C-l)
+                ((eq continue ?\C-l)
                 (recenter))
-               ((and (= continue ?\177) (zerop (% state 2)))
+                ((and (or (eq continue 'backspace)
+                          (eq continue ?\177))
+                      (zerop (% state 2)))
                 (scroll-down))
                (t (setq continue nil))))))))