quit accepted in the change name routine.

src/ChangeLog

+Sat Jan 25 00:47:53 1992  Linus Tolke Y  (linus at ruben)
+
+	* commands1.el (lyskom-change-name): A quit in the reading of the
+	  name to change to will now give a new prompt.
+
 Fri Jan 24 22:14:20 1992  Linus Tolke Y  (linus at ruben)
 
 	* async.el (lyskom-handle-as-personal-message): New function.

src/commands1.el

@@ -1271,14 +1271,16 @@ If you are not member in the conference it will be flagged with an asterisk."
       (progn
 	(lyskom-insert-string 'no-such-conf-or-pers)
 	(lyskom-end-of-command))
-    (progn
-      (lyskom-insert (conf-stat->name conf-stat))
-      (lyskom-scroll)
-      (lyskom-tell-internat 'kom-tell-change-name)
-      (setq name (read-from-minibuffer (lyskom-get-string 'new-name)))
-      (initiate-change-name 'main 'lyskom-change-name-2
-			    (conf-stat->conf-no conf-stat)
-			    name name))))
+    (condition-case error
+	(let (name)
+	  (lyskom-insert (conf-stat->name conf-stat))
+	  (lyskom-scroll)
+	  (lyskom-tell-internat 'kom-tell-change-name)
+	  (setq name (read-from-minibuffer (lyskom-get-string 'new-name)))
+	  (initiate-change-name 'main 'lyskom-change-name-2
+				(conf-stat->conf-no conf-stat)
+				name name))
+      (quit (ding) (lyskom-insert "\n") (lyskom-end-of-command)))))
 
 
 (defun lyskom-change-name-2 (answer name)