Commit f8ced346 authored by Linus Tolke's avatar Linus Tolke
Browse files

quit accepted in the change name routine.

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