mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 12:40:49 -08:00
Code Issues Projects Releases Wiki Activity

Fix prompt doubling when reconnecting

Browse source 
* rcirc.el (rcirc-connect): Check if rcirc-mode is already active
(rcirc-get-buffer-create): Check if rcirc-mode is already active
This commit is contained in:
Philip Kaludercic 2021-06-10 11:40:19 +02:00
parent 95fdd4b99b
commit b67b1eea25
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/net/rcirc.el
View file

@ -621,7 +621,8 @@ that are joined after authentication."
(set-process-coding-system process 'raw-text 'raw-text)
(switch-to-buffer (rcirc-generate-new-buffer-name process nil))
(set-process-buffer process (current-buffer))
(rcirc-mode process nil)
(unless (eq major-mode 'rcirc-mode)
(rcirc-mode process nil))
(set-process-sentinel process 'rcirc-sentinel)
(set-process-filter process 'rcirc-filter)
@ -662,6 +663,7 @@ that are joined after authentication."
(run-at-time 0 (/ rcirc-timeout-seconds 2) 'rcirc-keepalive)))
(message "Connecting to %s...done" (or server-alias server))
(setq mode-line-process nil)
;; return process object
process)))
@ -1412,9 +1414,11 @@ Create the buffer if it doesn't exist."
(let ((new-buffer (get-buffer-create
(rcirc-generate-new-buffer-name process target))))
(with-current-buffer new-buffer
(rcirc-mode process target)
(unless (eq major-mode 'rcirc-mode)
(rcirc-mode process target)))
(setq mode-line-process nil)
(rcirc-put-nick-channel process (rcirc-nick process) target
rcirc-current-line))
rcirc-current-line)
new-buffer)))))
(defun rcirc-send-input ()