Skip to content
GitLab
Menu
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
e9531466
Commit
e9531466
authored
Aug 11, 2000
by
David Byers
Browse files
Got rid of a compiler warning.
parent
a4a5dd79
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/commands1.el
View file @
e9531466
...
...
@@ -1424,15 +1424,15 @@ Those that you are not a member in will be marked with an asterisk."
(
def-kom-command
kom-list-created-conferences
(
arg
)
"List all conferences created by some person."
(
interactive
"P"
)
(
let*
((
tmp
(
blocking-do
'get-uconf-stat
lyskom-pers-no
)
)
(
pers-no
(
lyskom-read-conf-no
(
if
arg
'list-pers-confs-created-by
'list-confs-created-by
)
'
(
pers
)
nil
(
if
(
cache-get-uconf-stat
lyskom-pers-no
)
(
cons
(
conf-stat->name
(
cache-get-conf-stat
lyskom-pers-no
))
0
)
1
nil
)
t
)))
(
blocking-do
'get-uconf-stat
lyskom-pers-no
)
(
let
(
(
pers-no
(
lyskom-read-conf-no
(
if
arg
'list-pers-confs-created-by
'list-confs-created-by
)
'
(
pers
)
nil
(
if
(
cache-get-uconf-stat
lyskom-pers-no
)
(
cons
(
conf-stat->name
(
cache-get-conf-stat
lyskom-pers-no
))
0
)
1
nil
)
t
)))
(
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
)))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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