Commit 61a86f67 authored by Johan Sundström's avatar Johan Sundström
Browse files

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.
parent c8654a86
......@@ -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")
......
......@@ -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)
......
......@@ -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?")
))
......
Supports Markdown
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