Commit 1bce29ba authored by David Byers's avatar David Byers
Browse files

Corrected prompts with initial values for various commands.

Detailed changes:
> 	* completing-read.el (lyskom-default-conference-empty): New function.
>
> 	* vars.el.in (lyskom-default-conference-strategy): Corrected
> 	listings for review and unread functions.
>
> 	* review.el (lyskom-review-by-to): Correct prompt in call to
> 	lyskom-read-conf-no.
> 	(lyskom-unread-by-to): Same here.
>
parent f86be15f
2003-08-24 David Byers <byers@lysator.liu.se>
* completing-read.el (lyskom-default-conference-empty): New function.
* vars.el.in (lyskom-default-conference-strategy): Corrected
listings for review and unread functions.
* review.el (lyskom-review-by-to): Correct prompt in call to
lyskom-read-conf-no.
(lyskom-unread-by-to): Same here.
* commands1.el (kom-status-session): Pass prompt to
lyskom-read-session-no as symbol.
......
......@@ -209,6 +209,9 @@ See lyskom-read-conf for a description of the parameters."
(and (assq 'restrict predicate)
(cdr (assq 'restrict predicate))))
(defun lyskom-default-conference-empty (&rest args)
nil)
(defun lyskom-default-conference-saved (sym &rest args)
(and (cdr (assq (car sym) lyskom-read-conf-saved-inputs))
......
......@@ -858,21 +858,18 @@ Mark the envelope with \"LysKOM bug report\"\n\n")
(review-how-many-more . "Review how many more?")
(latest-n . "last %#1d")
(first-n . "first %#1d")
(info-by-whom . "%#1s by whom: ")
(info-to-conf . "%#1s to conference: ")
(info-by-to . "%#1s by %#2P to %#3M forward.")
(review-by-whom . "Review %#1s by whom: ")
(review-to-conf . "Review %#1s to conference: ")
(unread-by-whom . "Unread %#1s by whom: ")
(unread-to-conf . "Unread %#1s to conference: ")
(all-confs . "all conferences")
(no-get-conf . "You are not allowed to access that conference.\n")
(no-get-pers . "You are not allowed to access that user.\n")
(no-review-info . "You are not allowed to review %#1s\n")
(unread-info . "Unread %#1s")
(unread-info-by-to . "Unread %#1s by %#2P to %#3M.\n")
(unread-more-info-by-to . "Unread %#1s by %#2P to %#3M.\n")
(unread-rest . "the rest")
(unread-more . "%#1d more")
(review-info . "Review %#1s")
(review-info-by-to . "Review %#1s by %#2P to %#3M forwards.\n")
(review-more-info-by-to . "Review %#1s by %#2P to %#3M forwards.\n")
(review-rest . "the rest")
......
......@@ -299,13 +299,10 @@ all review-related functions."
((< count 0)
(lyskom-format 'first-n
(- count))))))
(by (lyskom-read-conf-no
`(review-info ,(lyskom-format 'info-by-whom info))
'(pers) t nil t))
(to (lyskom-read-conf-no
`(review-info ,(lyskom-format 'info-to-conf info))
'(all)
t nil t)))
(by (lyskom-read-conf-no `(review-by-whom ,info)
'(pers) t nil t))
(to (lyskom-read-conf-no `(review-to-conf ,info)
'(all) t nil t)))
(if (not (zerop to))
(cache-del-conf-stat to))
......@@ -377,12 +374,10 @@ texts, review the last N texts instead of the first (you can use
((< count 0)
(lyskom-format 'first-n
(- count))))))
(by (lyskom-read-conf-no
`(unread-info ,(lyskom-format 'info-by-whom info))
'(pers) t nil t))
(to (lyskom-read-conf-no
`(unread-info ,(lyskom-format 'info-to-conf info))
'(all) t nil t)))
(by (lyskom-read-conf-no `(unread-by-whom ,info)
'(pers) t nil t))
(to (lyskom-read-conf-no `(unread-to-conf ,info)
'(all) t nil t)))
(if (not (zerop to))
(cache-del-conf-stat to))
......
......@@ -890,22 +890,18 @@ M
(review-how-many-more . "terse ytterligare hur mnga?")
(latest-n . "senaste %#1d")
(first-n . "frsta %#1d")
(info-by-whom . "%#1s av vem: ")
(info-to-conf . "%#1s till mte: ")
(review-by-whom . "terse %#1s av vem: ")
(review-to-conf . "terse %#1s till mte: ")
(unread-by-whom . "Olsmarkera %#1s av vem: ")
(unread-to-conf . "Olsmarkera %#1s till mte: ")
(all-confs . "alla mten")
;; +++ not used?
(info-by-to . "%#1s av %#2P till %#3M framt.")
(no-get-conf . "Du fr inte hmta mtet.\n")
(no-get-pers . "Du fr inte hmta personen.\n")
(no-review-info . "Ej tilltet terse %#1s\n")
;; +++
(unread-info . "Olsmarkera %#1s")
(unread-info-by-to . "Olsmarkera %#1s av %#2P till %#3M.\n")
(unread-more-info-by-to . "Olsmarkera %#1s av %#2P till %#3M.\n")
(unread-rest . "resten")
(unread-more . "nsta %#1d")
(review-info . "terse %#1s")
(review-info-by-to . "terse %#1s av %#2P till %#3M framt.\n")
(review-more-info-by-to . "terse %#1s av %#2P till %#3M framt.\n")
(review-rest . "resten")
......
......@@ -270,35 +270,35 @@ the priority among links that match the same text is undefined."
(filter . (lyskom-default-conference-not-self))))
(kom-review-by-to (info-by-whom
(kom-review-by-to (review-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(info-to-conf))
(review-to-conf))
(kom-review-first (info-by-whom
(kom-review-first (review-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(info-to-conf))
(review-to-conf))
(kom-review-all (info-by-whom
(kom-review-all (review-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(info-to-conf))
(review-to-conf))
(kom-unread-by-to (info-by-whom
(kom-unread-by-to (unread-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(info-to-conf))
(unread-to-conf))
(kom-unread-first (info-by-whom
(kom-unread-first (unread-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(info-to-conf))
(unread-to-conf))
(kom-unread-all (info-by-whom
(kom-unread-all (unread-by-whom
(default . (lyskom-default-conference-at-point
lyskom-default-conference-empty)))
(info-to-conf))
(unread-to-conf))
(kom-set-permitted-submitters (conf-to-set-permitted-submitters-q)
(new-permitted-submitters-q
......
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