Added four additional button actions to texts. Fixes [bug 296].

src/ChangeLog

+2001-11-27  Johan Sundstrm  <jhs@lysator.liu.se>
+
+	* lyskom-buttons.el (lyskom-button-review-comments,
+	lyskom-button-review-tree, lyskom-button-write-footnote,
+	lyskom-button-fast-reply): New button actions.
+
+	* vars.el.in (lyskom-button-actions): Added above button actions
+	for text buttons.
+
+	* swedish-strings.el, english-strings.el (lyskom-message): Added
+	action names.
+
 2001-11-23  Ulrik Haugen  <qha@lysator.liu.se>
 
 	* edit-text.el (lyskom-edit-insert-miscs): print a button with

src/english-strings.el

@@ -1544,12 +1544,16 @@ You must become an active member of the conference to enter it.\n")
     (lyskom-button-review-noconversion-action . "Review unconverted")
     (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-comment-text-action . "Write comment")
     (lyskom-button-private-comment-text-action . "Write personal reply")
     (lyskom-button-mark-text-action . "Mark text")
     (lyskom-button-unmark-text-action . "Unmark text")
     (lyskom-button-save-text-action . "Save archive copy")
     (lyskom-button-save-text-body-action . "Save text body")
+    (lyskom-button-review-comments-action . "Review all comments")
+    (lyskom-button-review-tree-action . "Review all comments recursively")
+    (lyskom-button-write-footnote-action . "Write footnote")
+    (lyskom-button-fast-reply-action . "Remark")
     (lyskom-button-view-conf-presentation-action . "View presentation")
     (lyskom-button-view-conf-status-action . "View conference status")
     (lyskom-button-goto-conf-action . "Go to conference")

src/lyskom-buttons.el

@@ -651,7 +651,35 @@ This is a LysKOM button action."
         (t (unwind-protect
                (progn (pop-to-buffer buf)
                       (kom-save-text-body arg))))))
-  
+
+(defun lyskom-button-review-comments (buf arg text)
+  "In the LysKOM buffer BUF, review comments to the the text ARG.
+Last argument TEXT is ignored. This is a LysKOM button action."
+  (cond ((not (integerp arg)) nil)
+        (t (pop-to-buffer buf)
+           (kom-review-comments arg))))
+
+(defun lyskom-button-review-tree (buf arg text)
+  "In the LysKOM buffer BUF, recursively review comments to the the text ARG.
+Last argument TEXT is ignored. This is a LysKOM button action."
+  (cond ((not (integerp arg)) nil)
+        (t (pop-to-buffer buf)
+           (kom-review-tree arg))))
+
+(defun lyskom-button-write-footnote (buf arg text)
+  "In the LysKOM buffer BUF, write a footnote to the the text ARG.
+Last argument TEXT is ignored. This is a LysKOM button action."
+  (cond ((not (integerp arg)) nil)
+        (t (pop-to-buffer buf)
+           (kom-write-footnote arg))))
+
+(defun lyskom-button-fast-reply (buf arg text)
+  "In the LysKOM buffer BUF, make a remark to the the text ARG.
+Last argument TEXT is ignored. This is a LysKOM button action."
+  (cond ((not (integerp arg)) nil)
+        (t (pop-to-buffer buf)
+           (kom-fast-reply arg))))
+
 
 (defun lyskom-button-view-conf-presentation (buf arg text)
   "In the LysKOM buffer BUF, view the presentation of ARG. 

src/swedish-strings.el

@@ -1549,6 +1549,10 @@ Du m
     (lyskom-button-unmark-text-action . "Avmarkera texten")
     (lyskom-button-save-text-action . "Arkivera inlgg")
     (lyskom-button-save-text-body-action . "Spara inlggstext")
+    (lyskom-button-review-comments-action . "terse alla kommentarer")
+    (lyskom-button-review-tree-action . "terse alla kommentarer rekursivt")
+    (lyskom-button-write-footnote-action . "Fotnotera")
+    (lyskom-button-fast-reply-action . "Anmrk")
     (lyskom-button-view-conf-presentation-action . "Visa presentation")
     (lyskom-button-view-conf-status-action . "Visa mtesstatus")
     (lyskom-button-goto-conf-action . "G till mtet")

src/vars.el.in

@@ -1174,6 +1174,10 @@ each time ."
       (lyskom-button-unmark-text-action . lyskom-button-unmark-text)
       (lyskom-button-save-text-action . lyskom-button-save-text)
       (lyskom-button-save-text-body-action . lyskom-button-save-text-body)
+      (lyskom-button-review-comments-action . lyskom-button-review-comments)
+      (lyskom-button-review-tree-action . lyskom-button-review-tree)
+      (lyskom-button-write-footnote-action . lyskom-button-write-footnote)
+      (lyskom-button-fast-reply-action . lyskom-button-fast-reply)
       )
      nil
      ;; ((nil lyskom-print-text footer lyskom-button-comment-text))