kom-view-commented-text and kom-review-noconversion now take prefix arguments...

kom-view-commented-text and kom-review-noconversion now take prefix arguments as all message-handling interactive commands should.

src/commands1.el

@@ -188,22 +188,24 @@
 
 
 ;;; ================================================================
-;;;          ]terse det kommenterade - View commented text
+;;;          Återse det kommenterade - View commented text
 
 ;;; Author: Inge Wallin
-;;; Modified by: David K}gedal
+;;; Modified by: David Kågedal, Johan Sundström
 
-(def-kom-command kom-view-commented-text ()
+(def-kom-command kom-view-commented-text (&optional text-no)
   "View the commented text.
 If the current text is comment to (footnote to) several text then the first
-text is shown and a REVIEW list is built to shown the other ones."
-  (interactive)
-  (if lyskom-current-text
-      (progn
-	(lyskom-tell-internat 'kom-tell-read)
-	(lyskom-view-commented-text
-	 (blocking-do 'get-text-stat lyskom-current-text)))
-    (lyskom-insert-string 'have-to-read)))
+text is shown and a REVIEW list is built to shown the other ones. If the
+optional arg TEXT-NO is present review the text that text commented instead."
+  (interactive (list (lyskom-read-text-no-prefix-arg 'review-commented-q)))
+  (let ((text-no (or text-no lyskom-current-text)))
+    (if text-no
+	(progn
+	  (lyskom-tell-internat 'kom-tell-read)
+	  (lyskom-view-commented-text
+	   (blocking-do 'get-text-stat text-no)))
+      (lyskom-insert-string 'have-to-read))))
 
 
 (def-kom-command kom-view-previous-commented-text ()
@@ -2233,7 +2235,7 @@ If MARK-NO is nil, review all marked texts."
 (def-kom-command kom-who-is-on (&optional arg)
   "Display a list of all connected users.
 The prefix arg controls the idle limit of the sessions showed. If the
-prefix is negativ, invisible sessions are also shown.
+prefix is negative, invisible sessions are also shown.
 
 If the prefix is 0, all visible sessions are shown."
   (interactive "P")
@@ -2252,7 +2254,7 @@ If the prefix is 0, all visible sessions are shown."
 (def-kom-command kom-who-is-on-in-conference (&optional arg)
   "Display a list of all connected users in CONF.
 The prefix arg controls the idle limit of the sessions showed. If the
-prefix is negativ, invisible sessions are also shown.
+prefix is negative, invisible sessions are also shown.
 
 If the prefix is 0, all visible sessions are shown."
   (interactive "P")

src/review.el

@@ -1270,24 +1270,15 @@ text is shown and a REVIEW list is built to shown the other ones."
       (lyskom-format-insert 'no-such-text))))
 
 
-;; Review a non-converted text
-;; Author: Linus Tolke
- 
+;;; ============================================================
+;;;        Återse omodifierat - Review a non-converted text
+
+;;; Author: Linus Tolke
+;;; Modified by: Johan Sundström
 
 (defun kom-review-noconversion (&optional text-no)
-  "Displays the last read text without any conversion."
-  (interactive (list 
-		(cond
-		 ((null current-prefix-arg)
-		  lyskom-current-text)
-		 ((integerp current-prefix-arg)
-		  current-prefix-arg)
-		 ((and (listp current-prefix-arg) 
-		       (integerp (car current-prefix-arg)) 
-		       (null (cdr current-prefix-arg)))
-		  (car current-prefix-arg))
-		 (t
-		  (signal 'lyskom-internal-error '(kom-review-noconversion))))))
+  "Displays TEXT-NO or the last read text without any conversion."
+  (interactive (list (lyskom-read-text-no-prefix-arg 'review-noconversion-q)))
   (lyskom-start-of-command 'kom-review-noconversion)
   (let ((lyskom-format-special nil)
         (kom-smileys nil)

src/swedish-strings.el

@@ -1396,6 +1396,9 @@ Du m
 
     (start-keep-alive . "Snder data %#1d sekunders mellanrum fr att hlla frbindelsen aktiv.")
     (stop-keep-alive . "Data snds inte lngre fr att hlla frbindelsen aktiv.")
+
+    (review-noconversion-q . "terse vilket inlgg omodifierat?")
+    (review-commented-q . "terse vad vilket inlgg kommenterade?")
 ))