mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

Fix double reconnection bug

Browse Source 
* rcirc.el (rcirc-sentinel): Don't reconnect if reconnecting
(reconnect): Use delete-process instead of kill-process
This commit is contained in:
Philip Kaludercic 2021-09-10 18:57:11 +02:00
parent 2ef6691602
commit a66fd7bb37
No known key found for this signature in database
GPG Key ID: 181F5B95AE30B336
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/net/rcirc.el
View File

@ -841,7 +841,8 @@ When 0, do not auto-reconnect."
(not rcirc-target))
(rcirc-disconnect-buffer)))
(when (and (string= sentinel "deleted")
(< 0 rcirc-reconnect-delay))
(< 0 rcirc-reconnect-delay)
(not rcirc-connecting))
(let ((now (current-time)))
(when (or (null rcirc-last-connect-time)
(time-less-p rcirc-reconnect-delay
@ -2580,13 +2581,9 @@ to `rcirc-default-part-reason'."
(interactive "i")
(with-rcirc-server-buffer
(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"))))
(if (eq (process-status process) 'open)
(throw 'exit (message "Server process is alive"))
(delete-process process))
(let ((conn-info rcirc-connection-info))
(setf (nth 5 conn-info)
(cl-remove-if-not #'rcirc-channel-p