diff options
author | Juri Linkov <juri@linkov.net> | 2015-11-12 22:54:01 +0200 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2015-11-12 22:54:01 +0200 |
commit | d2f73db50bec29724cb1324910350ad24420b174 (patch) | |
tree | 3a3c6aaee22e9c2c09bab0646752c4d2b9ac8317 | |
parent | c1bc6e5d99e6d193c0d02116d4edeed6a0423630 (diff) |
Bind [?\S-\ ] to previous line command in Dired-like modes.
* lisp/arc-mode.el (archive-mode-map):
* lisp/dired.el (dired-mode-map):
* lisp/proced.el (proced-mode-map):
* lisp/vc/vc-dir.el (vc-dir-mode-map):
Bind [?\S-\ ] to previous line command.
(Bug#20790)
-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 cf071e2a1f..83aadc97c7 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 049d45d2fa..9ec39af21a 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 bf7ce24f20..502a90e2dc 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 9b15e64fad..3b3fb68f17 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) |