Commit ff481c03 authored by David Kågedal's avatar David Kågedal
Browse files

No commit message

No commit message
parent d9e73728
Fri Sep 6 20:22:53 1996 David Kgedal <kg@infovav.se>
* completing-read.el (lyskom-completing-who-is-on): Kolla bara den
dynamiskt bundna use-dynamic-info om minibufferten anvnds.
Thu Sep 5 23:04:33 1996 David Kgedal <kg@infovav.se>
* swedish-strings.el,english-strings.el (lyskom-strings): La till
search-re.
* commands1.el (kom-list-re): Hrdkoda inte prompten.
Wed Sep 4 22:58:19 1996 David Kgedal <kg@infovav.se>
* vars.el.in (lyskom-set-face-scheme): Kolla efter window-system
'win32.
Tue Sep 3 03:39:58 1996 David Kgedal <kg@infovav.se>
* completing-read.el (lyskom-completing-who-is-on): Anvnd
......
......@@ -1205,7 +1205,8 @@ If you are not member in the conference it will be flagged with an asterisk."
(def-kom-command kom-list-re (regexp)
"List all persons and conferences whose name matches REGEXP."
(interactive "sSearch regexp: ")
(interactive (list (lyskom-read-string
(lyskom-get-string 'search-re))))
(lyskom-format-insert 'matching-regexp regexp)
(let ((conf-list (blocking-do 're-z-lookup regexp 1 1)))
(mapcar
......
......@@ -64,7 +64,8 @@
lyskom-completing-who-info-cache
(setq lyskom-completing-who-info-cache
(listify-vector
(if use-dynamic-info
(if (or (and (lyskom-is-in-minibuffer) use-dynamic-info)
lyskom-dynamic-session-info-flag)
(blocking-do 'who-is-on-dynamic t t 0)
(blocking-do 'who-is-on))))))
......
......@@ -281,6 +281,7 @@ and you have finished reading. Please come back later.
(search-for-pers . "Enter search key (RETURN for all users) ")
(search-for-conf . "Enter search key (RETURN for all conferences) ")
(search-re . "Enter search regexp: ")
(name-to-be-changed . "Name to change: ")
(no-such-conf-or-pers . "The conference or user doesn't exist.\n")
(new-name . "New name: ")
......
......@@ -276,8 +276,9 @@ du har l\344st klart allting. Kom tillbaks senare.
(conf-all-read . "%#1M - inga ol\344sta.\n")
(no-in-conf . "Du \344r inte n\344rvarande i n\345got m\366te.\n")
(search-for-pers . "Ange s\366kvillkor (RETURN f\366r alla personer) ")
(search-for-conf . "Ange s\366kvillkor (RETURN f\366r alla m\366ten) ")
(search-for-pers . "Ange s\366kvillkor (RETURN f\366r alla personer): ")
(search-for-conf . "Ange s\366kvillkor (RETURN f\366r alla m\366ten): ")
(search-re . "Ange s\366kuttryck (regulj\344rt uttryck): ")
(name-to-be-changed . "Ange det namn som skall \344ndras: ")
(no-such-conf-or-pers . "M\366tet eller personen finns ej.\n")
(new-name . "Nytt namn: ")
......@@ -618,7 +619,7 @@ M\344rk kuvertet \"LysKOM buggrapport f\366r elispklienten\".\n\n")
(review-conf-gone . "M\366tet finns inte.\n")
(review-pers-gone . "Personen finns inte.\n")
(review-cant-read-conf . "Du kan inte \345terse inl\344gg till ett slutet m\366te du inte \344r med i.\n")
(review-cant-read-letterbox . "Du kan inte \345terse in\344gg till n\345gon annans brevl\345da.\n")
(review-cant-read-letterbox . "Du kan inte \345terse inl\344gg till n\345gon annans brevl\345da.\n")
(review-cant-read-empty . "M\366tet \344r tomt.\n")
(cant-review-everything . "Du kan inte \345terse alla texter i LysKOM.\n")
......
This diff is collapsed.
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