Skip to content
Snippets Groups Projects
Commit f8ced346 authored by Linus Tolke's avatar Linus Tolke
Browse files

quit accepted in the change name routine.

parent f13f7942
No related branches found
No related tags found
No related merge requests found
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) Fri Jan 24 22:14:20 1992 Linus Tolke Y (linus at ruben)
* async.el (lyskom-handle-as-personal-message): New function. * 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." ...@@ -1271,14 +1271,16 @@ If you are not member in the conference it will be flagged with an asterisk."
(progn (progn
(lyskom-insert-string 'no-such-conf-or-pers) (lyskom-insert-string 'no-such-conf-or-pers)
(lyskom-end-of-command)) (lyskom-end-of-command))
(progn (condition-case error
(let (name)
(lyskom-insert (conf-stat->name conf-stat)) (lyskom-insert (conf-stat->name conf-stat))
(lyskom-scroll) (lyskom-scroll)
(lyskom-tell-internat 'kom-tell-change-name) (lyskom-tell-internat 'kom-tell-change-name)
(setq name (read-from-minibuffer (lyskom-get-string 'new-name))) (setq name (read-from-minibuffer (lyskom-get-string 'new-name)))
(initiate-change-name 'main 'lyskom-change-name-2 (initiate-change-name 'main 'lyskom-change-name-2
(conf-stat->conf-no conf-stat) (conf-stat->conf-no conf-stat)
name name)))) name name))
(quit (ding) (lyskom-insert "\n") (lyskom-end-of-command)))))
(defun lyskom-change-name-2 (answer name) (defun lyskom-change-name-2 (answer name)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment