Make the "Review tree" item in the menu on text numbers run the equivalent of

kom-find-root-reviw.

src/ChangeLog

+2001-08-09  Ulrik Haugen  <qha@lysator.liu.se>
+
+	* lyskom-buttons.el (lyskom-button-find-root-review): this
+	function is now the action for the "Review tree" menu item. For
+	obvious reasons review-tree was used before.
+
+	* vars.el.in (lyskom-button-actions): related changes.
+
+	* english-strings.el, swedish-strings.el (lyskom-message): related
+	changes.
+
 2001-07-31  Ulrik Haugen  <qha@lysator.liu.se>
 
 	* lyskom-buttons.el (lyskom-view-url-galeon): ... and the other

src/english-strings.el

@@ -1530,7 +1530,7 @@ You must become an active member of the conference to enter it.\n")
 
     (lyskom-button-view-text-action . "View text")
     (lyskom-button-review-noconversion-action . "Review unconverted")
-    (lyskom-button-review-tree-action . "Review tree")
+    (lyskom-button-find-root-review-action . "Review tree")
     (lyskom-button-find-root-action . "Review root text")
     (lyskom-button-comment-text-action . "Write commend")
     (lyskom-button-private-comment-text-action . "Write personal reply")

src/lyskom-buttons.el

@@ -567,13 +567,13 @@ Last argument TEXT is ignored. This is a LysKOM button action."
            (goto-char (point-max))
            (kom-review-noconversion arg))))
 
-(defun lyskom-button-review-tree (buf arg text)
+(defun lyskom-button-find-root-review (buf arg text)
   "In the LysKOM buffer BUF, view the text ARG. Last argument TEXT is ignored.
 This is a LysKOM button action."
   (cond ((not (integerp arg)) nil)
 	(t (pop-to-buffer buf)
            (goto-char (point-max))
-	   (kom-review-tree arg))))
+	   (kom-find-root-review arg))))
 
 (defun lyskom-button-find-root (buf arg text)
   "In the LysKOM buffer BUF, view the text ARG. Last argument TEXT is ignored.

src/swedish-strings.el

@@ -1529,7 +1529,7 @@ Du m
 
     (lyskom-button-view-text-action . "terse texten")
     (lyskom-button-review-noconversion-action . "terse omodifierat")
-    (lyskom-button-review-tree-action . "terse trd")
+    (lyskom-button-find-root-review-action . "terse trd")
     (lyskom-button-find-root-action . "terse urinlgget")
     (lyskom-button-comment-text-action . "Kommentera texten")
     (lyskom-button-private-comment-text-action . "Personligt svar")

src/vars.el.in

@@ -1155,7 +1155,7 @@ each time ."
      lyskom-button-view-text
      ((lyskom-button-view-text-action . lyskom-button-view-text)
       (lyskom-button-review-noconversion-action . lyskom-button-review-noconversion)
-      (lyskom-button-review-tree-action . lyskom-button-review-tree)
+      (lyskom-button-find-root-review-action . lyskom-button-find-root-review)
       (lyskom-button-find-root-action . lyskom-button-find-root)
       (lyskom-button-comment-text-action . lyskom-button-comment-text)
       (lyskom-button-private-comment-text-action . lyskom-button-private-comment-text)