diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-07-04 15:06:52 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-07-04 15:09:22 +0200 |
| commit | c933f988254168ae537301f37841e1f1ebeb42e9 (patch) | |
| tree | f1366e2e31498598f861fe9f2dc999098939c6dc /lisp/emacs-lisp | |
| parent | 1268902db17501862e5efbd51a41108ffc5105f3 (diff) | |
| download | emacs-c933f988254168ae537301f37841e1f1ebeb42e9.tar.gz emacs-c933f988254168ae537301f37841e1f1ebeb42e9.tar.bz2 emacs-c933f988254168ae537301f37841e1f1ebeb42e9.zip | |
Fix scrolling backwards in Helper-help
* lisp/emacs-lisp/helper.el (Helper-help-scroller): Fix scrolling
backwards.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/helper.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/helper.el b/lisp/emacs-lisp/helper.el index 930dbfe6c49..cbc0afc3a72 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)))))))) |