diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/arc-mode.el | 1 | ||||
| -rw-r--r-- | lisp/dired.el | 3 | ||||
| -rw-r--r-- | lisp/proced.el | 1 | ||||
| -rw-r--r-- | lisp/vc/vc-dir.el | 1 |
4 files changed, 5 insertions, 1 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index cf071e2a1f5..83aadc97c70 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -395,6 +395,7 @@ file. Archive and member name will be added." (define-key map "o" 'archive-extract-other-window) (define-key map "p" 'archive-previous-line) (define-key map "\C-p" 'archive-previous-line) + (define-key map [?\S-\ ] 'archive-previous-line) (define-key map [up] 'archive-previous-line) (define-key map "r" 'archive-rename-entry) (define-key map "u" 'archive-unflag) diff --git a/lisp/dired.el b/lisp/dired.el index 049d45d2fa8..9ec39af21ae 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1542,7 +1542,8 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST." (define-key map "<" 'dired-prev-dirline) (define-key map ">" 'dired-next-dirline) (define-key map "^" 'dired-up-directory) - (define-key map " " 'dired-next-line) + (define-key map " " 'dired-next-line) + (define-key map [?\S-\ ] 'dired-previous-line) (define-key map [remap next-line] 'dired-next-line) (define-key map [remap previous-line] 'dired-previous-line) ;; hiding diff --git a/lisp/proced.el b/lisp/proced.el index bf7ce24f202..502a90e2dc9 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -463,6 +463,7 @@ Important: the match ends just after the marker.") (define-key km "\C-n" 'next-line) (define-key km "\C-p" 'previous-line) (define-key km "\C-?" 'previous-line) + (define-key km [?\S-\ ] 'previous-line) (define-key km [down] 'next-line) (define-key km [up] 'previous-line) ;; marking diff --git a/lisp/vc/vc-dir.el b/lisp/vc/vc-dir.el index 9b15e64fad7..3b3fb68f171 100644 --- a/lisp/vc/vc-dir.el +++ b/lisp/vc/vc-dir.el @@ -271,6 +271,7 @@ See `run-hooks'." (define-key map " " 'vc-dir-next-line) (define-key map "\t" 'vc-dir-next-directory) (define-key map "p" 'vc-dir-previous-line) + (define-key map [?\S-\ ] 'vc-dir-previous-line) (define-key map [backtab] 'vc-dir-previous-directory) ;;; Rebind paragraph-movement commands. (define-key map "\M-}" 'vc-dir-next-directory) |