Commit 0e57383f authored by David Kågedal's avatar David Kågedal
Browse files

Petitessändringar

parent 7692dc59
Fri Aug 23 15:11:17 1996 David Kgedal <kg@infovav.se>
* review.el (kom-review-tree): Anvnd def-kom-command.
(kom-find-root): Dito.
Fri Aug 23 00:39:03 1996 David Kgedal <davidk@lysator.liu.se>
* view-text.el (lyskom-view-text): Anvnd no-such-text-no istllet
......
......@@ -39,7 +39,7 @@
;;; `lyskom-defer-indicator' as a placeholder.
;;;
;;; 2. Create a defer-info-structure by calling
;;; `lyskom-create-defe-info' with the following parameters
;;; `lyskom-create-defer-info' with the following parameters
;;;
;;; SERVER-CALL - the call to get the data (initate-get-*)
;;; CALL-ARG - the argument for the server call. This is
......
No preview for this file type
......@@ -627,7 +627,7 @@ If reading forward then starts reading backward and the other way round."
;;; Author: Linus Tolke
(defun kom-review-tree (&optional text-no)
(def-kom-command kom-review-tree (&optional text-no)
"Review all comments to this text.
Descends recursively in the comment-tree without marking the texts as read.
The tree is forgotten when a kom-go-to-next-conf command is issued.
......@@ -641,40 +641,32 @@ instead. In this case the text TEXT-NO is first shown."
current-prefix-arg)
(t
(signal 'lyskom-internat-error '(kom-review-tree))))))
(lyskom-start-of-command 'kom-review-tree)
(unwind-protect
(progn
(lyskom-tell-internat 'kom-tell-review)
(if text-no
(let ((ts (blocking-do 'get-text-stat text-no)))
(lyskom-follow-comments ts
nil 'review
(lyskom-get-current-priority)
t))
(lyskom-insert-string 'read-text-first)))
(lyskom-end-of-command)))
(defun kom-find-root (&optional text-no)
(lyskom-tell-internat 'kom-tell-review)
(if text-no
(let ((ts (blocking-do 'get-text-stat text-no)))
(lyskom-follow-comments ts
nil 'review
(lyskom-get-current-priority)
t))
(lyskom-insert-string 'read-text-first)))
(def-kom-command kom-find-root (&optional text-no)
"Finds the root text of the tree containing the text in lyskom-current-text."
(interactive)
(lyskom-start-of-command 'kom-find-root)
(unwind-protect
(progn
(lyskom-tell-internat 'kom-tell-review)
(cond
(lyskom-current-text
(let* ((ts (blocking-do 'get-text-stat (or text-no
lyskom-current-text)))
(r (lyskom-find-root ts ts)))
(if r
(lyskom-view-text r)
(signal 'lyskom-internal-error "Could not find root"))
)
)
(t
(lyskom-insert-string 'read-text-first))))
(lyskom-end-of-command)))
(lyskom-tell-internat 'kom-tell-review)
(cond
(lyskom-current-text
(let* ((ts (blocking-do 'get-text-stat (or text-no
lyskom-current-text)))
(r (lyskom-find-root ts ts)))
(if r
(lyskom-view-text r)
(signal 'lyskom-internal-error "Could not find root"))
)
)
(t
(lyskom-insert-string 'read-text-first))))
(def-kom-command kom-find-root-review ()
......
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