From 958614cf809c0d4dedb703245da5bddc360743af Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 11 Feb 2013 20:46:18 -0800 Subject: Make S-SPC scroll in the opposite direction to SPC * lisp/calc/calc-graph.el (calc-graph-show-dumb): * lisp/calendar/calendar.el (calendar-mode-map): * lisp/cus-edit.el (custom-mode-map): * lisp/ehelp.el (electric-help-map): * lisp/emulation/vip.el (vip-mode-map): * lisp/epa.el (epa-key-list-mode-map): * lisp/info.el (Info-mode-map): * lisp/mail/rmail.el (rmail-mode-map): * lisp/mail/rmailsum.el (rmail-summary-mode-map): * lisp/man.el (Man-mode-map): * lisp/net/newst-plainview.el (newsticker-mode-map): * lisp/progmodes/cpp.el (cpp-edit-mode-map): * lisp/progmodes/grep.el (grep-mode-map): * lisp/progmodes/idlw-help.el (idlwave-help-mode-map): * lisp/simple.el (special-mode-map): * lisp/startup.el (splash-screen-keymap): * lisp/view.el (view-mode-map): Make S-SPC scroll in the opposite sense to SPC. Fixes: debbugs:2145 --- lisp/ehelp.el | 1 + 1 file changed, 1 insertion(+) (limited to 'lisp/ehelp.el') diff --git a/lisp/ehelp.el b/lisp/ehelp.el index 416666f918c..88fc87b5b7a 100644 --- a/lisp/ehelp.el +++ b/lisp/ehelp.el @@ -80,6 +80,7 @@ (define-key map (char-to-string help-char) 'electric-help-help) (define-key map "?" 'electric-help-help) (define-key map " " 'scroll-up) + (define-key map [?\S-\ ] 'scroll-down) (define-key map "\^?" 'scroll-down) (define-key map "." 'beginning-of-buffer) (define-key map "<" 'beginning-of-buffer) -- cgit v1.2.1