Commit e9531466 authored by David Byers's avatar David Byers
Browse files

Got rid of a compiler warning.

parent a4a5dd79
......@@ -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)))
......
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