Petitessändringar

src/ChangeLog

+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

src/deferred-insert.el

@@ -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

src/review.el

@@ -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 ()