procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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)
This commit is contained in:
Juri Linkov 2013-02-13 10:28:47 +02:00
parent 7132e457ad
commit 9cec74cfd7
7 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
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>
* progmodes/ruby-mode.el (ruby-move-to-block): Improve

1
lisp/doc-view.el
View file

@ -390,6 +390,7 @@ Typically \"page-%s.png\".")
(define-key map [remap forward-page] 'doc-view-next-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 "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 "C-n") 'doc-view-next-line-or-next-page)
(define-key map (kbd "<down>") 'doc-view-next-line-or-next-page)

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
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>
* nnir.el ("nnir"): Add 'virtual ability to nnir backend. (This was

1
lisp/gnus/gnus-art.el
View file

@ -4361,6 +4361,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
(gnus-define-keys gnus-article-mode-map
" " gnus-article-goto-next-page
[?\S-\ ] gnus-article-goto-prev-page
"\177" gnus-article-goto-prev-page
[delete] gnus-article-goto-prev-page
[backspace] gnus-article-goto-prev-page

2
lisp/gnus/gnus-sum.el
View file

@ -1819,6 +1819,7 @@ increase the score of each group you read."
(gnus-define-keys gnus-summary-mode-map
" " gnus-summary-next-page
[?\S-\ ] gnus-summary-prev-page
"\177" gnus-summary-prev-page
[delete] gnus-summary-prev-page
[backspace] gnus-summary-prev-page
@ -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-summary-next-page
"n" gnus-summary-next-page
[?\S-\ ] gnus-summary-prev-page
"\177" gnus-summary-prev-page
[delete] gnus-summary-prev-page
"p" gnus-summary-prev-page

1
lisp/image-mode.el
View file

@ -337,6 +337,7 @@ call."
(set-keymap-parent map special-mode-map)
(define-key map "\C-c\C-c" 'image-toggle-display)
(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 "RET") 'image-toggle-animation)
(define-key map "n" 'image-next-file)

1
lisp/vc/ediff-util.el
View file

@ -143,6 +143,7 @@ to invocation.")
'ediff-previous-difference nil))
;; 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 [?\S-\ ] 'ediff-previous-difference)
(define-key ediff-mode-map "n" 'ediff-next-difference)
(define-key ediff-mode-map " " 'ediff-next-difference)
(define-key ediff-mode-map "j" 'ediff-jump-to-difference)