master c933f98825: Fix scrolling backwards in Helper-help

[Stefan Kangas]

branch: master
commit c933f988254168ae537301f37841e1f1ebeb42e9
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Fix scrolling backwards in Helper-help
    
    * lisp/emacs-lisp/helper.el (Helper-help-scroller): Fix scrolling
    backwards.
---
 lisp/emacs-lisp/helper.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/helper.el b/lisp/emacs-lisp/helper.el
index 930dbfe6c4..cbc0afc3a7 100644
--- 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))))))))