From c9f6b17692b2cc01e0d752469686a32109d10d13 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Tue, 10 May 2005 15:37:39 +0000
Subject: [PATCH] Use PageUp/PageDown for navigating the result history

---
 scheme/nuit-engine.scm | 33 +++++++++++++++------------------
 1 file changed, 15 insertions(+), 18 deletions(-)

diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm
index 1de8bc9..95437ca 100644
--- a/scheme/nuit-engine.scm
+++ b/scheme/nuit-engine.scm
@@ -25,11 +25,11 @@
 		    "Ctrl+x o:Switch Buffer"
 		    "Ctrl+x s:Insert/Select"
 		    "Ctrl+x u:-/Unselect"
-		    "Ctrl+x p:Result-History->prev"
-		    "Ctrl+x n:Result-History->next"
+		    "PageUp - previous entry in result history"
+		    "PageDown - next entry in result history"
 		    "Ctrl+x r:Redo (Active Command)"
-		    "Ctrl+f:Command-History->forward"
-		    "Ctrl+b:Command-History->back"
+		    "CursorUp - previous entry in command history"
+		    "CursorDown - next entry in command history"
 		    "Ctrl+a:First Pos of Line"
 		    "Ctrl+e:End of Line"
 		    "Ctrl+k:Delete Line"))
@@ -280,6 +280,17 @@
 		  (set! current-result-object (switch key-message))))
 	    (loop (paint))))
 
+	 ;; forward in result history
+	 ((= ch key-npage)
+	  (history-forward)
+	  (loop (paint)))
+
+	 ;; back in result history
+	 ((= ch key-ppage)
+	  (history-back)
+	  (loop (paint)))
+
+
        	 ;;if lower window is active a message is sent.
 	 (else
 	  (if c-x-pressed
@@ -300,20 +311,6 @@
 		  (set! c-x-pressed #f)
 		  (loop (paint))))
 
-	       ;;C-x p -> result-history back
-	       ((= ch 112)
-		(begin
-		  (history-back)
-		  (set! c-x-pressed #f)
-		  (loop (paint))))
-
-	       ;;C-x n -> result-history forward
-	       ((= ch 110)
-	        (begin
-		  (history-forward)
-		  (set! c-x-pressed #f)
-		  (loop (paint))))
-
 	       ;;C-x r -> redo
 	       ((= ch 114)
 		(if (or (> (length text-command) 2)