Hoppa kanske fungerar när man återser rekursivt.

src/ChangeLog

+2001-05-15  David Byers  <davby@ida.liu.se>
+
+	* commands1.el (kom-jump): Probably works in tree review mode, at
+	least without prefix arg. There may be bugs.
+
 2001-05-11  Johan Sundstrm  <jhs@lysator.liu.se>
 
 	* edit-text.el (lyskom-edit-fcc-text): Bugfix; don't swarm the

src/commands1.el

@@ -3274,14 +3274,23 @@ If optional arg TEXT-NO is present then jump all comments to that text instead."
 		  (car current-prefix-arg))
 		 (t
 		  (signal 'lyskom-internal-error '(kom-jump))))))
-  (if text-no
-      (progn
-	(lyskom-start-of-command 'kom-jump)
-	(initiate-get-text-stat 'main 'lyskom-jump text-no t)
-	(lyskom-run 'main 'lyskom-end-of-command))
-    (lyskom-start-of-command 'kom-jump)
-    (lyskom-insert-string 'have-to-read)
-    (lyskom-end-of-command)))
+  (cond ((and (null current-prefix-arg)
+              (eq 'REVIEW-TREE (read-info->type
+                                (read-list->first
+                                 lyskom-reading-list))))
+         (lyskom-start-of-command 'kom-jump)
+         (unwind-protect
+             (progn 
+               (set-read-list-del-first lyskom-reading-list)
+               (set-read-list-del-first lyskom-to-do-list))
+           (lyskom-end-of-command)))
+        (text-no
+         (lyskom-start-of-command 'kom-jump)
+         (initiate-get-text-stat 'main 'lyskom-jump text-no t)
+         (lyskom-run 'main 'lyskom-end-of-command))
+        (t (lyskom-start-of-command 'kom-jump)
+           (lyskom-insert-string 'have-to-read)
+           (lyskom-end-of-command))))
 
 
 (defun lyskom-jump (text-stat mark-as-read &optional sync)