mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Allow /reconnect while connecting

Browse source 
* rcirc.el (reconnect): Kill previous process and start a new one
This commit is contained in:
Philip Kaludercic 2021-09-07 10:33:51 +02:00
parent 8275f0b117
commit 4a0c0e5606
No known key found for this signature in database
GPG key ID: 181F5B95AE30B336
1 changed files with 16 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/net/rcirc.el
View file

@ -2572,17 +2572,22 @@ to `rcirc-default-part-reason'."
"Reconnect to current server."
(interactive "i")
(with-rcirc-server-buffer
(cond
(rcirc-connecting (message "Already connecting"))
((process-live-p process) (message "Server process is alive"))
(t (let ((conn-info rcirc-connection-info))
(setf (nth 5 conn-info)
(cl-remove-if-not #'rcirc-channel-p
(mapcar #'car rcirc-buffer-alist)))
(dolist (buf (nth 5 conn-info))
(with-current-buffer (cdr (assoc buf rcirc-buffer-alist))
(setq rcirc-reconncting t)))
(apply #'rcirc-connect conn-info))))))
(catch 'exit
(cond
(rcirc-connecting
(when (process-live-p process)
(kill-process process))
(setq rcirc-connecting nil))
((process-live-p process)
(throw 'exit (message "Server process is alive"))))
(let ((conn-info rcirc-connection-info))
(setf (nth 5 conn-info)
(cl-remove-if-not #'rcirc-channel-p
(mapcar #'car rcirc-buffer-alist)))
(dolist (buf (nth 5 conn-info))
(with-current-buffer (cdr (assoc buf rcirc-buffer-alist))
(setq rcirc-reconncting t)))
(apply #'rcirc-connect conn-info)))))
(rcirc-define-command nick (nick)
"Change nick to NICK."