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)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dbf380d72c89ead62cd55668ad23540fc5f58998..77432c00670384085fce83e1255bdfe91940846d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index dcc28a523222a4bd30b8bc2a3425ff8f8b9043de..89d2edd3dbb429edaa9e00d71720c59e165f94a2 100644 (file)
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -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)

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 4c27eea1602138b9779bda092d0c44b11a386b6f..14499a8fafc2ced1d276f568ffc544062284d9c2 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 25a555f3d8b88e1a5eedb7e08de1f6958822dd35..13d9b4e5c283a21561e8df297206d5799adc672e 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -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

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 658863f9f007dc73cc9a3a8c50c6e454bc64d121..183eabca6dcb739fe2773ea79a03d970ce481132 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -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

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 6a13d5280376e2aa63cd3be67d9b1453f12579d8..196336717db5d04889a3e51317407d5621782384 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -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)

diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el
index 2456d6ede41fc45f40e02cc5941fa210fdb86ab3..3fcfcff9a7462802539bc99baf946899def9e0a4 100644 (file)
--- a/lisp/vc/ediff-util.el
+++ b/lisp/vc/ediff-util.el
@@ -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)