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
ec19e44b
Commit
ec19e44b
authored
Aug 16, 2000
by
David Byers
Browse files
Fix typ in swedish-strings.el.
Print header in kom-list-created-confs
parent
bcf138a8
Changes
4
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
ec19e44b
2000-08-16 David Byers <davby@ida.liu.se>
* commands1.el (lyskom-list-created-conferences-2): sit-for to
update display. Superconf flag is only shown if the conference
does not accept comments.
(kom-list-created-conferences): Print header for the list.
Wed Aug 16 16:55:56 2000 David Byers <davby@sen2.ida.liu.se>
* Release av 0.46-BETA-M
...
...
src/commands1.el
View file @
ec19e44b
...
...
@@ -1442,7 +1442,7 @@ Those that you are not a member in will be marked with an asterisk."
(
lyskom-prefetch-all-confs
))
(
blocking-do
'get-uconf-stat
lyskom-pers-no
)
(
let
((
pers
-no
(
lyskom-read-conf-
no
(
let
((
pers
(
lyskom-read-conf-
stat
(
if
arg
'list-pers-confs-created-by
'list-confs-created-by
)
'
(
pers
)
nil
...
...
@@ -1450,6 +1450,7 @@ Those that you are not a member in will be marked with an asterisk."
(
cons
(
conf-stat->name
(
cache-get-uconf-stat
lyskom-pers-no
))
0
)
1
nil
)
t
)))
(
lyskom-format-insert
'listing-confs-created-by
(
conf-stat->conf-no
pers
))
(
lyskom-message
(
lyskom-get-string
(
if
arg
'getting-all-pers-confs
'getting-all-confs
)))
(
let
((
result
(
blocking-do
'lookup-z-name
""
(
if
arg
1
0
)
1
)))
(
lyskom-message
(
lyskom-get-string
(
if
arg
'getting-all-pers-confs-done
'getting-all-confs-done
)))
...
...
@@ -1467,13 +1468,13 @@ Those that you are not a member in will be marked with an asterisk."
'lyskom-list-created-conferences-2
(
conf-z-info->conf-no
conf-z
)
counter
pers-no
(
conf-stat->conf-no
pers
)
arg
)
calls
)))
(
lyskom-wait-queue
'main
)
(
when
(
eq
0
(
elt
counter
3
))
(
lyskom-format-insert
'no-created-confs
pers
-no
))
(
lyskom-format-insert
'no-created-confs
pers
))
)
(
quit
(
aset
counter
0
t
)
(
lyskom-cancel-call
'main
calls
))))
...
...
@@ -1510,7 +1511,8 @@ Those that you are not a member in will be marked with an asterisk."
(
lyskom-get-string
'superconf-conf-letter
)
" "
))
(
cond
((
conf-type->secret
(
conf-stat->conf-type
cs
))
(
lyskom-get-string
'secret-conf-letter
))
((
conf-type->rd_prot
(
conf-stat->conf-type
cs
))
(
lyskom-get-string
'protected-conf-letter
))
(
t
" "
))))))
(
t
" "
)))
(
sit-for
0
))))
(
defun
lyskom-list-conf-print
(
conf-z
)
...
...
src/english-strings.el
View file @
ec19e44b
...
...
@@ -333,7 +333,8 @@ and you have finished reading. Please come back later.
(
no-confs-exist
.
"There are no conferences in the database.\n"
)
(
no-pers-confs-exist
.
"There are no persons or conferences in the database.\n"
)
(
list-confs-created-by
.
"List conferences administered by: "
)
(
listing-confs-created-by
.
"Listing conferences administered by %#1P\n"
)
(
listing-confs-created-by
.
"
Listing
conferences
administered
by
%#1P
\
C=Created,
O=Supervisor,
S=Letterbox
is
super
conf
; S=Secret, P=Protected\n")
(
list-pers-confs-created-by
.
"List persons and conferences administered by: "
)
(
getting-all-confs
.
"Retrieving a list of all conferences from the server..."
)
(
getting-all-pers-confs
.
"Retrieving a list of all persons and conferences from the server..."
)
...
...
src/swedish-strings.el
View file @
ec19e44b
...
...
@@ -314,7 +314,8 @@ du har l
(
no-confs-exist
.
"Det finns inga mten i databasen.\n"
)
(
no-pers-confs-exist
.
"Det finns inga mten eller personer i databasen.\n"
)
(
list-confs-created-by
.
"Lista organisatrsskap fr: "
)
(
listing-confs-created-by
.
"Organisatrsskap fr %#1P\n"
)
(
listing-confs-created-by
.
"
Organisatrsskap
fr
%#1P\n
\
S=Skapat,
O=Organisatr,
M=Brevlda
som
supermte
; S=Slutet, H=Hemligt\n")
(
list-pers-confs-created-by
.
"Lista organisatrsskap (med brevldor) fr: "
)
(
getting-all-confs
.
"Hmtar en lista av alla mten frn servern..."
)
(
getting-all-pers-confs
.
"Hmtar en lista av alla personer och mten frn servern..."
)
...
...
@@ -1530,7 +1531,7 @@ Du m
(
kom-slow-mode
.
"Lngsamma kommandon"
)
(
kom-quick-mode
.
"Snabba kommandon"
)
(
kom-send-message
.
"Snda meddelande"
)
(
kom-send-alarm
p
.
"Skicka alarmmeddelande"
)
(
kom-send-alarm
.
"Skicka alarmmeddelande"
)
(
kom-create-conf
.
"Skapa mte"
)
(
kom-delete-conf
.
"Utplna"
)
(
kom-delete-text
.
"Radera inlgg"
)
...
...
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