Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
dc4ae584
Commit
dc4ae584
authored
Jul 11, 2001
by
David Byers
Browse files
Bugfixes on last checkin
parent
58dd7442
Changes
4
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
dc4ae584
2001-07-11 Christer Ekholm <che@init.se>
* swedish-strings.el, swedish-strings.el (lyskom-message): New
string names for kom-who-is-present-in-conference
* commands1.el (kom-who-is-present-in-conference): Bugfix and new
string names.
2001-07-11 David Byers <davby@ida.liu.se>
* swedish-strings.el (lyskom-help-strings): Added strings for
...
...
src/commands1.el
View file @
dc4ae584
...
...
@@ -2734,7 +2734,7 @@ prefix is negative, invisible sessions are also shown.
If the prefix is 0, all visible sessions are shown."
(
interactive
"P"
)
(
let
((
conf-stat
(
lyskom-read-conf-stat
(
lyskom-get-string
'who-is-
active
-in-what-conference
)
(
lyskom-read-conf-stat
(
lyskom-get-string
'who-is-
present
-in-what-conference
)
'
(
all
)
nil
nil
t
)))
(
condition-case
nil
(
if
(
lyskom-have-feature
dynamic-session-info
)
...
...
@@ -2752,10 +2752,10 @@ Uses Protocol A version 8 calls"
(
conf-stat
(
lyskom-who-is-on-check-membership-8
who-info-list
conf-stat
))
(
t
(
listify-vector
who-info-list
))
(
function
(
lambda
(
who1
who2
)
(
<
(
who-info->connection
who1
)
(
who-info->connection
who2
))))))
)
(
listify-vector
who-info-list
))
)
(
function
(
lambda
(
who1
who2
)
(
<
(
who-info->connection
who1
)
(
who-info->connection
who2
))))))
(
total-users
(
length
who-list
))
(
session-width
(
1+
(
length
(
int-to-string
(
who-info->connection
...
...
src/english-strings.el
View file @
dc4ae584
...
...
@@ -525,7 +525,7 @@ Read all about it at http://www.lysator.liu.se/history/")
(
no-unread-lyskom
.
"There is no active LysKOM session with unread texts."
)
(
who-is-on-in-what-conference
.
"Who in which conference: "
)
(
who-is-
active
-in-what-conference
.
"Who present in which conference: "
)
(
who-is-
present
-in-what-conference
.
"Who present in which conference: "
)
(
who-is-active-and-member
.
"Only members in %#1M are shown.\n"
)
(
who-is-active-and-present
.
"Only members present in %#1M are shown.\n"
)
...
...
src/swedish-strings.el
View file @
dc4ae584
...
...
@@ -514,7 +514,7 @@ i svensk datorhistoria. L
(
no-unread-lyskom
.
"Hittar ingen aktiv LysKOM-session med olsta."
)
(
who-is-on-in-what-conference
.
"Vilka i vilket mte: "
)
(
who-is-
active
-in-what-conference
.
"Vilka nrvarande i vilket mte: "
)
(
who-is-
present
-in-what-conference
.
"Vilka nrvarande i vilket mte: "
)
(
who-is-active-and-member
.
"Visar endast medlemmar i %#1M.\n"
)
(
who-is-active-and-present
.
"Visar endast medlemmar nrvarande i %#1M.\n"
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment