[elpa] 17/35: Add Scroll up/down command for other window

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit d47298987499a3c8b039235ef4f454d9c46a4925
Author: Matthew L. Fidler <address@hidden>
Date:   Wed Jul 9 10:16:50 2014 -0500

    Add Scroll up/down command for other window
---
 ergoemacs-themes.el |   55 +++++++++++++++++++++++++++-----------------------
 1 files changed, 30 insertions(+), 25 deletions(-)

diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index b30bcfc..f5822a2 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -147,31 +147,31 @@
   (undo-tree-mode 1)
   (shift-select-mode t)
   (delete-selection-mode 1)
-  (setq recentf-menu-before "Close"
-        recentf-menu-items-for-commands
-        (list
-         ["Open Last Closed"
-          ergoemacs-open-last-closed
-          :help "Remove duplicates, and obsoletes files from the recent list"
-          :keys (ergoemacs-shortcut-for-command 'ergoemacs-open-last-closed)
-          :active t]
-         ["Cleanup list"
-          recentf-cleanup
-          :help "Remove duplicates, and obsoletes files from the recent list"
-          :active t]
-         ["Edit list..."
-          recentf-edit-list
-          :help "Manually remove files from the recent list"
-          :active t]
-         ["Save list now"
-          recentf-save-list
-          :help "Save the list of recently opened files now"
-          :active t]
-         ["Options..."
-          (customize-group "recentf")
-          :help "Customize recently opened files menu and options"
-          :active t]
-         ))
+  (setq recentf-menu-before "Close"
+        recentf-menu-items-for-commands
+        (list
+         ["Open Last Closed"
+          ergoemacs-open-last-closed
+          :help "Remove duplicates, and obsoletes files from the recent list"
+          :keys (ergoemacs-shortcut-for-command 'ergoemacs-open-last-closed)
+          :active t]
+         ["Cleanup list"
+          recentf-cleanup
+          :help "Remove duplicates, and obsoletes files from the recent list"
+          :active t]
+         ["Edit list..."
+          recentf-edit-list
+          :help "Manually remove files from the recent list"
+          :active t]
+         ["Save list now"
+          recentf-save-list
+          :help "Save the list of recently opened files now"
+          :active t]
+         ["Options..."
+          (customize-group "recentf")
+          :help "Customize recently opened files menu and options"
+          :active t]
+         ))
   (recentf-mode 1)
   ;; (setq cua--rectangle-modifier-key ergoemacs-cua-rect-modifier)
   ;; (setq cua--rectangle-keymap (make-sparse-keymap))
@@ -613,6 +613,11 @@
   "Move by Page"
   (global-unset-key (kbd "M-v"))
   (global-unset-key (kbd "C-v"))
+  (global-unset-key (kbd "C-M-v"))
+  ;; Not sure I like the scroll other window placment... C+M+ argh.
+  (global-set-key (kbd "C-M-I") 'scroll-other-window-down)
+  (global-set-key (kbd "C-M-K") 'scroll-other-window)
+  ;; These are OK
   (global-set-key (kbd "M-I") '(scroll-down-command scroll-down))
   (global-set-key (kbd "M-K") '(scroll-up-command scroll-up)))