Commit 9cec74cf authored by Juri Linkov's avatar Juri Linkov
Browse files

Add more keymaps where S-SPC scrolls in the opposite direction to SPC.

* lisp/image-mode.el (image-mode-map):
* lisp/doc-view.el (doc-view-mode-map):
* lisp/vc/ediff-util.el (ediff-setup-keymap):
Make S-SPC scroll in the opposite sense to SPC. 

* lisp/gnus/gnus-art.el (gnus-article-mode-map):
* lisp/gnus/gnus-sum.el (gnus-summary-mode-map, gnus-summary-article-map):
Make S-SPC scroll in the opposite sense to SPC.  (Bug#2145)
parent 7132e457
2013-02-13 Juri Linkov <juri@jurta.org>
* image-mode.el (image-mode-map):
* doc-view.el (doc-view-mode-map):
* vc/ediff-util.el (ediff-setup-keymap):
Make S-SPC scroll in the opposite sense to SPC. (Bug#2145)
2013-02-13 Dmitry Gutov <dgutov@yandex.ru> 2013-02-13 Dmitry Gutov <dgutov@yandex.ru>
   
* progmodes/ruby-mode.el (ruby-move-to-block): Improve * progmodes/ruby-mode.el (ruby-move-to-block): Improve
......
...@@ -390,6 +390,7 @@ Typically \"page-%s.png\".") ...@@ -390,6 +390,7 @@ Typically \"page-%s.png\".")
(define-key map [remap forward-page] 'doc-view-next-page) (define-key map [remap forward-page] 'doc-view-next-page)
(define-key map [remap backward-page] 'doc-view-previous-page) (define-key map [remap backward-page] 'doc-view-previous-page)
(define-key map (kbd "SPC") 'doc-view-scroll-up-or-next-page) (define-key map (kbd "SPC") 'doc-view-scroll-up-or-next-page)
(define-key map (kbd "S-SPC") 'doc-view-scroll-down-or-previous-page)
(define-key map (kbd "DEL") 'doc-view-scroll-down-or-previous-page) (define-key map (kbd "DEL") 'doc-view-scroll-down-or-previous-page)
(define-key map (kbd "C-n") 'doc-view-next-line-or-next-page) (define-key map (kbd "C-n") 'doc-view-next-line-or-next-page)
(define-key map (kbd "<down>") 'doc-view-next-line-or-next-page) (define-key map (kbd "<down>") 'doc-view-next-line-or-next-page)
......
2013-02-13 Juri Linkov <juri@jurta.org>
* gnus-art.el (gnus-article-mode-map):
* gnus-sum.el (gnus-summary-mode-map, gnus-summary-article-map):
Make S-SPC scroll in the opposite sense to SPC. (Bug#2145)
2013-02-10 Katsumi Yamaoka <yamaoka@jpl.org> 2013-02-10 Katsumi Yamaoka <yamaoka@jpl.org>
   
* nnir.el ("nnir"): Add 'virtual ability to nnir backend. (This was * nnir.el ("nnir"): Add 'virtual ability to nnir backend. (This was
......
...@@ -4361,6 +4361,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is ...@@ -4361,6 +4361,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
(gnus-define-keys gnus-article-mode-map (gnus-define-keys gnus-article-mode-map
" " gnus-article-goto-next-page " " gnus-article-goto-next-page
[?\S-\ ] gnus-article-goto-prev-page
"\177" gnus-article-goto-prev-page "\177" gnus-article-goto-prev-page
[delete] gnus-article-goto-prev-page [delete] gnus-article-goto-prev-page
[backspace] gnus-article-goto-prev-page [backspace] gnus-article-goto-prev-page
......
...@@ -1819,6 +1819,7 @@ increase the score of each group you read." ...@@ -1819,6 +1819,7 @@ increase the score of each group you read."
(gnus-define-keys gnus-summary-mode-map (gnus-define-keys gnus-summary-mode-map
" " gnus-summary-next-page " " gnus-summary-next-page
[?\S-\ ] gnus-summary-prev-page
"\177" gnus-summary-prev-page "\177" gnus-summary-prev-page
[delete] gnus-summary-prev-page [delete] gnus-summary-prev-page
[backspace] gnus-summary-prev-page [backspace] gnus-summary-prev-page
...@@ -2058,6 +2059,7 @@ increase the score of each group you read." ...@@ -2058,6 +2059,7 @@ increase the score of each group you read."
(gnus-define-keys (gnus-summary-article-map "A" gnus-summary-mode-map) (gnus-define-keys (gnus-summary-article-map "A" gnus-summary-mode-map)
" " gnus-summary-next-page " " gnus-summary-next-page
"n" gnus-summary-next-page "n" gnus-summary-next-page
[?\S-\ ] gnus-summary-prev-page
"\177" gnus-summary-prev-page "\177" gnus-summary-prev-page
[delete] gnus-summary-prev-page [delete] gnus-summary-prev-page
"p" gnus-summary-prev-page "p" gnus-summary-prev-page
......
...@@ -337,6 +337,7 @@ call." ...@@ -337,6 +337,7 @@ call."
(set-keymap-parent map special-mode-map) (set-keymap-parent map special-mode-map)
(define-key map "\C-c\C-c" 'image-toggle-display) (define-key map "\C-c\C-c" 'image-toggle-display)
(define-key map (kbd "SPC") 'image-scroll-up) (define-key map (kbd "SPC") 'image-scroll-up)
(define-key map (kbd "S-SPC") 'image-scroll-down)
(define-key map (kbd "DEL") 'image-scroll-down) (define-key map (kbd "DEL") 'image-scroll-down)
(define-key map (kbd "RET") 'image-toggle-animation) (define-key map (kbd "RET") 'image-toggle-animation)
(define-key map "n" 'image-next-file) (define-key map "n" 'image-next-file)
......
...@@ -143,6 +143,7 @@ to invocation.") ...@@ -143,6 +143,7 @@ to invocation.")
'ediff-previous-difference nil)) 'ediff-previous-difference nil))
;; must come after C-h, or else C-h wipes out backspace's binding in XEmacs ;; must come after C-h, or else C-h wipes out backspace's binding in XEmacs
(define-key ediff-mode-map [backspace] 'ediff-previous-difference) (define-key ediff-mode-map [backspace] 'ediff-previous-difference)
(define-key ediff-mode-map [?\S-\ ] 'ediff-previous-difference)
(define-key ediff-mode-map "n" 'ediff-next-difference) (define-key ediff-mode-map "n" 'ediff-next-difference)
(define-key ediff-mode-map " " 'ediff-next-difference) (define-key ediff-mode-map " " 'ediff-next-difference)
(define-key ediff-mode-map "j" 'ediff-jump-to-difference) (define-key ediff-mode-map "j" 'ediff-jump-to-difference)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment