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

When a prefix-arg is given to kom-review-presentation, review the presentation...

When a prefix-arg is given to kom-review-presentation, review the presentation of the author of that text.
parent 895da31a
2002-04-13 Johan Sundström <jhs@lysator.liu.se>
* commands1.el (kom-review-presentation): When a prefix argument
is given, review the presentation of the author of that text (as
given by lyskom-read-text-no-prefix-arg), otherwise behave as usual.
* swedish-strings.el, english-strings.el (lyskom-message):
Added text-to-see-author-of.
2002-04-13 Ulrik Haugen <qha@lysator.liu.se>
Fix bug 447:
......@@ -49,7 +58,7 @@
* vars.el.in (lyskom-commands): Added kom-create-aux-item.
* swedish-strings.el (lyskom-command): Added kom-cereate-aux-item.
* swedish-strings.el (lyskom-command): Added kom-create-aux-item.
* english-strings.el (lyskom-command): Added kom-create-aux-item.
......
......@@ -152,13 +152,17 @@
;;; Author: Inge Wallin
(def-kom-command kom-review-presentation (&optional who)
"Review the presentation for a person or a conference."
(interactive)
(let ((conf-stat
(if who
(blocking-do 'get-conf-stat who)
(lyskom-read-conf-stat
(def-kom-command kom-review-presentation (&optional text-no)
"Review the presentation for a person or a conference. If a prefix argument
is given, the presentation of the author of that text will be shown."
(interactive (and current-prefix-arg ; only peek at textno:s when prefixed!
(list (lyskom-read-text-no-prefix-arg
'text-to-see-author-of))))
(let ((conf-stat
(if text-no
(blocking-do 'get-conf-stat
(text-stat->author (blocking-do 'get-text-stat text-no)))
(lyskom-read-conf-stat
(lyskom-get-string 'presentation-for-whom)
'(all)
nil "" t))))
......
......@@ -265,6 +265,7 @@ Be ashamed of being You! You have a very good reason.\n\n")
(deleting-text . "Removing text %#1:n...")
(presentation-for-whom . "Which conference/user? ")
(text-to-see-author-of . "See presentation for the author of which text? ")
(somebody-deleted-that-conf . "Somebody just deleted that conference.\n")
(review-presentation-of . "Review presentation of %#1M.\n")
(has-no-presentation . "%#1:M has no presentation.\n")
......
......@@ -237,6 +237,7 @@ Guran vill helst s
(deleting-text . "Radering av text %#1:n...")
(presentation-for-whom . "Vilket mte/person? ")
(text-to-see-author-of . "Se presentation fr vilket inlggs frfattare? ")
(somebody-deleted-that-conf . "Ngon tog precis bort mtet.\n")
(review-presentation-of . "terse presentation av %#1M.\n")
(has-no-presentation . "%#1:M har ingen presentation.\n")
......
Markdown is supported
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