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)

7 files changed, 19 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dbf380d72c8..77432c00670 100644
--- 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 dcc28a52322..89d2edd3dbb 100644
--- 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 4c27eea1602..14499a8fafc 100644
--- 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 25a555f3d8b..13d9b4e5c28 100644
--- 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 658863f9f00..183eabca6dc 100644
--- 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 6a13d528037..196336717db 100644
--- 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 2456d6ede41..3fcfcff9a74 100644
--- 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)