From a9bbd7995aec0f6d0dc22091b55aceb58d5fd350 Mon Sep 17 00:00:00 2001
From: Joe Cheng <joe@rstudio.org>
Date: Tue, 8 Feb 2011 08:58:34 +0800
Subject: [PATCH] PageUp/Down behavior that is more consistent with native OS

---
 lib/ace/keyboard/keybinding/default_mac.js | 2 ++
 lib/ace/keyboard/keybinding/default_win.js | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/ace/keyboard/keybinding/default_mac.js b/lib/ace/keyboard/keybinding/default_mac.js
index 778ecc65..37bcdda2 100644
--- a/lib/ace/keyboard/keybinding/default_mac.js
+++ b/lib/ace/keyboard/keybinding/default_mac.js
@@ -75,8 +75,10 @@ exports.bindings = {
     "gotoright": "Right",
     "selectpagedown": "Shift-PageDown",
     "pagedown": "PageDown",
+    "gotopagedown": "Option-PageDown",
     "selectpageup": "Shift-PageUp",
     "pageup": "PageUp",
+    "gotopageup": "Option-PageUp",
     "selectlinestart": "Shift-Home",
     "selectlineend": "Shift-End",
     "del": "Delete",
diff --git a/lib/ace/keyboard/keybinding/default_win.js b/lib/ace/keyboard/keybinding/default_win.js
index 507fb517..e673e656 100644
--- a/lib/ace/keyboard/keybinding/default_win.js
+++ b/lib/ace/keyboard/keybinding/default_win.js
@@ -74,9 +74,9 @@ exports.bindings = {
     "selectright": "Shift-Right",
     "gotoright": "Right",
     "selectpagedown": "Shift-PageDown",
-    "pagedown": "PageDown",
+    "gotopagedown": "PageDown",
     "selectpageup": "Shift-PageUp",
-    "pageup": "PageUp",
+    "gotopageup": "PageUp",
     "selectlinestart": "Shift-Home",
     "selectlineend": "Shift-End",
     "del": "Delete",