From fd600c8c15fe08f5cbe731da84442d73be49dc96 Mon Sep 17 00:00:00 2001
From: vdhoeven <vdhoeven@64cb5145-927a-446d-8aed-2fb7b4773692>
Date: Mon, 19 Jan 2009 20:09:09 +0000
Subject: [PATCH] Accelerate going up and down inside sessions

git-svn-id: svn://svn.savannah.gnu.org/texmacs/trunk@2552 64cb5145-927a-446d-8aed-2fb7b4773692
---
 src/TeXmacs/packages/program/session.ts    |  4 ++++
 src/TeXmacs/progs/dynamic/session-edit.scm | 23 +++++++++++++++++++----
 2 files changed, 23 insertions(+), 4 deletions(-)

diff --git a/src/TeXmacs/packages/program/session.ts b/src/TeXmacs/packages/program/session.ts
index 91746f52..8633c348 100644
--- a/src/TeXmacs/packages/program/session.ts
+++ b/src/TeXmacs/packages/program/session.ts
@@ -48,6 +48,10 @@
 
   <assign|input|<macro|prompt|body|<with|mode|prog|<style-with|src-compact|none|<compound|<style-with|src-compact|none|<if|<provides|<merge|<value|prog-language>|-input>>|<merge|<value|prog-language>|-input>|generic-input>>|<arg|prompt>|<arg|body>>>>>>
 
+  <assign|input-math|<\macro|prompt|in>
+    <input|<arg|prompt>|<math|<arg|in>>>
+  </macro>>
+
   <assign|id-function|<macro|x|<arg|x>>>
 
   <assign|generic-input|<\macro|prompt|body>
diff --git a/src/TeXmacs/progs/dynamic/session-edit.scm b/src/TeXmacs/progs/dynamic/session-edit.scm
index bcc02250..d9fe1f7c 100644
--- a/src/TeXmacs/progs/dynamic/session-edit.scm
+++ b/src/TeXmacs/progs/dynamic/session-edit.scm
@@ -343,17 +343,32 @@
   (:context io-context?)
   (go-to-remain-inside go-right io-context? 1))
 
+(define (io-go-to-previous)
+  (with-innermost t io-context?
+    (with u (tree-ref t :previous)
+      (if (and u (io-context? u))
+	  (tree-go-to u 1 :end)
+	  (go-to-previous-tag-same-argument io-tags)))))
+
+(define (io-go-to-next)
+  (with-innermost t io-context?
+    (with u (tree-ref t :next)
+      (if (and u (io-context? u))
+	  (tree-go-to u 1 :start)
+	  (go-to-next-tag-same-argument io-tags))
+      (go-end-line))))
+
 (define (io-go-up)
   (with p (cursor-path)
     (go-to-remain-inside go-up io-context? 1)
     (when (== (cursor-path) p)
-      (go-to-previous-tag-same-argument io-tags))))
+      (io-go-to-previous))))
 
 (define (io-go-down)
   (with p (cursor-path)
     (go-to-remain-inside go-down io-context? 1)
     (when (== (cursor-path) p)
-      (go-to-next-tag-same-argument io-tags))))
+      (io-go-to-next))))
 
 (tm-define (kbd-up)
   (:context io-context?)
@@ -366,12 +381,12 @@
 (tm-define (kbd-page-up)
   (:context input-context?)
   (for (n 0 5)
-    (go-to-previous-tag-same-argument io-tags)))
+    (io-go-to-previous)))
 
 (tm-define (kbd-page-down)
   (:context input-context?)
   (for (n 0 5)
-    (go-to-next-tag-same-argument io-tags)))
+    (io-go-to-next)))
 
 (tm-define (kbd-remove forward?)
   (:context input-context?)
-- 
2.11.4.GIT