[Emacs-diffs] /srv/bzr/emacs/trunk r111765: Add more keymaps where S-SPC scrolls in the opposite direction to SPC.

[Juri Linkov]

------------------------------------------------------------
revno: 111765
fixes bug: http://debbugs.gnu.org/2145
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Wed 2013-02-13 10:28:47 +0200
message:
  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)
modified:
  lisp/ChangeLog
  lisp/doc-view.el
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-art.el
  lisp/gnus/gnus-sum.el
  lisp/image-mode.el
  lisp/vc/ediff-util.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-13 08:15:05 +0000
+++ b/lisp/ChangeLog    2013-02-13 08:28:47 +0000
@@ -1,3 +1,10 @@
+2013-02-13  Juri Linkov  <address@hidden>
+
+       * 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  <address@hidden>
 
        * progmodes/ruby-mode.el (ruby-move-to-block): Improve

=== modified file 'lisp/doc-view.el'
--- a/lisp/doc-view.el  2013-02-12 11:53:34 +0000
+++ b/lisp/doc-view.el  2013-02-13 08:28:47 +0000
@@ -390,6 +390,7 @@
     (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)

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-02-10 01:56:25 +0000
+++ b/lisp/gnus/ChangeLog       2013-02-13 08:28:47 +0000
@@ -1,3 +1,9 @@
+2013-02-13  Juri Linkov  <address@hidden>
+
+       * 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  <address@hidden>
 
        * nnir.el ("nnir"): Add 'virtual ability to nnir backend.  (This was

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2013-01-11 10:40:54 +0000
+++ b/lisp/gnus/gnus-art.el     2013-02-13 08:28:47 +0000
@@ -4361,6 +4361,7 @@
 
 (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

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2013-01-21 22:07:34 +0000
+++ b/lisp/gnus/gnus-sum.el     2013-02-13 08:28:47 +0000
@@ -1819,6 +1819,7 @@
 
 (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 @@
 (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

=== modified file 'lisp/image-mode.el'
--- a/lisp/image-mode.el        2013-01-19 15:22:38 +0000
+++ b/lisp/image-mode.el        2013-02-13 08:28:47 +0000
@@ -337,6 +337,7 @@
     (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)

=== modified file 'lisp/vc/ediff-util.el'
--- a/lisp/vc/ediff-util.el     2013-01-02 16:13:04 +0000
+++ b/lisp/vc/ediff-util.el     2013-02-13 08:28:47 +0000
@@ -143,6 +143,7 @@
                                        '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)