Commit 76c2b3e4 authored by David Byers's avatar David Byers

Hoppa kanske fungerar när man återser rekursivt.

parent 62862dc9
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
......
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment