scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use PageUp/PageDown for navigating the result history

This commit is contained in:
eknauel 2005-05-10 15:37:39 +00:00
parent 33558ab23d
commit c9f6b17692
1 changed files with 15 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
scheme/nuit-engine.scm
View File

@ -25,11 +25,11 @@
"Ctrl+x o:Switch Buffer" "Ctrl+x o:Switch Buffer"
"Ctrl+x s:Insert/Select" "Ctrl+x s:Insert/Select"
"Ctrl+x u:-/Unselect" "Ctrl+x u:-/Unselect"
"Ctrl+x p:Result-History->prev" "PageUp - previous entry in result history"
"Ctrl+x n:Result-History->next" "PageDown - next entry in result history"
"Ctrl+x r:Redo (Active Command)" "Ctrl+x r:Redo (Active Command)"
"Ctrl+f:Command-History->forward" "CursorUp - previous entry in command history"
"Ctrl+b:Command-History->back" "CursorDown - next entry in command history"
"Ctrl+a:First Pos of Line" "Ctrl+a:First Pos of Line"
"Ctrl+e:End of Line" "Ctrl+e:End of Line"
"Ctrl+k:Delete Line")) "Ctrl+k:Delete Line"))
@ -280,6 +280,17 @@
(set! current-result-object (switch key-message)))) (set! current-result-object (switch key-message))))
(loop (paint)))) (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. ;;if lower window is active a message is sent.
(else (else
(if c-x-pressed (if c-x-pressed
@ -300,20 +311,6 @@
(set! c-x-pressed #f) (set! c-x-pressed #f)
(loop (paint)))) (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 ;;C-x r -> redo
((= ch 114) ((= ch 114)
(if (or (> (length text-command) 2) (if (or (> (length text-command) 2)