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

No commit message

No commit message
parent 9279ea0c
......@@ -9,6 +9,10 @@ Sat Aug 24 23:54:55 1996 Per Cederqvist <ceder@lysator.liu.se>
that this doesn't fail on user-areas who don't have the "elisp"
and/or "common" part.
Sat Aug 24 00:29:01 1996 David Kgedal <davidk@lysator.liu.se>
* commands1.el (kom-create-conf): Skriv ut bttre felmeddelanden.
Fri Aug 23 15:11:17 1996 David Kgedal <kg@infovav.se>
* review.el (kom-review-tree): Anvnd def-kom-command.
......
......@@ -530,7 +530,9 @@ of the person."
(def-kom-command kom-create-conf (&optional name)
"Create a conference."
(interactive)
(let* ((conf-name (or name (lyskom-read-string (lyskom-get-string 'name-of-conf))))
(let* ((conf-name (or name
(lyskom-read-string
(lyskom-get-string 'name-of-conf))))
(open (j-or-n-p (lyskom-get-string 'anyone-member)))
(secret (if (not open)
(j-or-n-p (lyskom-get-string 'secret-conf))))
......@@ -547,9 +549,12 @@ of the person."
nil
nil))))
(if (null conf-no)
(lyskom-format-insert 'could-not-create-conf
conf-name
lyskom-errno)
(progn
(lyskom-format-insert 'could-not-create-conf
conf-name)
(lyskom-format-insert 'error-code
(lyskom-get-error-text lyskom-errno)
lyskom-errno))
(progn
(let ((conf-stat (blocking-do 'get-conf-stat conf-no)))
(lyskom-format-insert 'created-conf-no-name
......
......@@ -322,7 +322,7 @@ and you have finished reading. Please come back later.
(unsubscribe-failed . "\nDidn't work. Perhaps %#1P isn't a member of %#2M?\n")
(You . "You")
(could-not-create-conf . "Couldn't create the conference \"%#1s\".\nError: %#2d.\n")
(could-not-create-conf . "Couldn't create the conference \"%#1s\".\n")
(created-conf-no-name . "Conference number %[%#3@%#1:m %#2:M%] has been created.\n")
(cant-read-textno . "You are not allowed to read article %#1:n")
......
......@@ -319,7 +319,7 @@ du har l\344st klart allting. Kom tillbaks senare.
(unsubscribe-failed . "\nDet gick inte. %#1P var kanske aldrig medlem i %#2M?\n")
(You . "Du")
(could-not-create-conf . "M\366tet \"%#1s\" kunde ej skapas.\nFelkod: %#2d.\n")
(could-not-create-conf . "M\366tet \"%#1s\" kunde ej skapas.\n")
(created-conf-no-name . "M\366te nummer %[%#3@%#1:m %#2:M%], skapat.\n")
(cant-read-textno . "Du f\345r inte l\344sa text %#1:n")
......
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