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

Added text-prefix-arg to kom-status-person, so David does not lie in the 0.47 release notes. :)

parent db98f5de
2002-04-28 Johan Sundstrm <jhs@lysator.liu.se>
* commands2.el (kom-status-person): 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-status-of.
2002-04-28 David Byers <david.byers@swipnet.se>
* header.el: When detecting a buggy read-kbd-macro, attempt to
......
......@@ -351,11 +351,16 @@ otherwise: the conference is read with lyskom-completing-read."
;;; Heavily enhanced: Inge Wallin (lyskom-status-pers-3 and beyond)
(def-kom-command kom-status-person (&optional pers-no)
"Prints status for a person."
(interactive)
(def-kom-command kom-status-person (&optional text-or-pers-no)
"Prints status for a person. If a prefix argument is given, the status 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-status-of))))
(let ((pers-no
(or pers-no
(or (when (interactive-p)
(text-stat->author (blocking-do 'get-text-stat text-or-pers-no)))
text-or-pers-no
(lyskom-read-conf-no (lyskom-get-string 'pers-for-status)
'(pers) nil "" t)))
(kom-print-seconds-in-time-strings nil)
......
......@@ -619,6 +619,7 @@ Read all about it at http://www.lysator.liu.se/history/")
(conf-membership-line . "%#1s%#2M %#3s\n")
(conf-membership-line-2 . " Added %#1s by %#2P\n")
(pers-for-status . "Get status of which user? ")
(text-to-see-author-status-of . "Get status of the author of which text? ")
(no-such-pers . "The user doesn't exist.\n")
(pers-status-record . "Status of user %#1P (%#1p)\n")
(created-time . "Created:%34#1s\n\n")
......
......@@ -601,6 +601,7 @@ i svensk datorhistoria. L
(conf-membership-line . "%#1s%#2M %#3s\n")
(conf-membership-line-2 . " Adderad %#1s av %#2P\n")
(pers-for-status . "Vem vill du se statusen fr? ")
(text-to-see-author-status-of . "Vilken texts frfattare vill du statusen fr? ")
(no-such-pers . "Det finns ingen sdan person.\n")
(pers-status-record . "Status fr person %#1P (%#1p)\n")
(created-time . "Skapad:%34#1s\n\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