From: Juri Linkov Date: Wed, 13 Feb 2013 08:28:47 +0000 (+0200) Subject: Add more keymaps where S-SPC scrolls in the opposite direction to SPC. X-Git-Tag: emacs-24.3.90~173^2~7^2~58 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9cec74cfd720b607fe9fb2929ce1dfeca53ac544;p=emacs.git 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 dbf380d72c8..77432c00670 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2013-02-13 Juri Linkov + + * 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 * 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 "") '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 + + * 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 * 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)