procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/erc/erc-backend.el (erc-process-sentinel): Check that buffer is alive

Browse source 
before setting it as current buffer.
This commit is contained in:
Julien Danjou 2010-10-23 12:35:22 -07:00 • committed by Glenn Morris
parent 0d0d9424a2
commit 6bb55f7cb0
2 changed files with 30 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/erc/ChangeLog
View file

@ -1,3 +1,8 @@
2010-10-23 Julien Danjou <julien@danjou.info>
* erc-backend.el (erc-process-sentinel): Check that buffer is alive
before setting it as current buffer.
2010-10-12 Juanma Barranquero <lekktu@gmail.com>
* erc-xdcc.el (erc-xdcc-help-text): Fix typo in docstring.

49
lisp/erc/erc-backend.el
View file

@ -652,30 +652,31 @@ Conditionally try to reconnect and take appropriate action."
(defun erc-process-sentinel (cproc event)
"Sentinel function for ERC process."
(with-current-buffer (process-buffer cproc)
(erc-log (format
"SENTINEL: proc: %S status: %S event: %S (quitting: %S)"
cproc (process-status cproc) event erc-server-quitting))
(if (string-match "^open" event)
;; newly opened connection (no wait)
(erc-login)
;; assume event is 'failed
(let ((buf (process-buffer cproc)))
(erc-with-all-buffers-of-server cproc nil
(setq erc-server-connected nil))
(when erc-server-ping-handler
(progn (erc-cancel-timer erc-server-ping-handler)
(setq erc-server-ping-handler nil)))
(run-hook-with-args 'erc-disconnected-hook
(erc-current-nick) (system-name) "")
;; Remove the prompt
(goto-char (or (marker-position erc-input-marker) (point-max)))
(forward-line 0)
(erc-remove-text-properties-region (point) (point-max))
(delete-region (point) (point-max))
;; Decide what to do with the buffer
;; Restart if disconnected
(erc-process-sentinel-1 event buf)))))
(let ((buf (process-buffer cproc)))
(when (buffer-live-p buf)
(with-current-buffer buf
(erc-log (format
"SENTINEL: proc: %S status: %S event: %S (quitting: %S)"
cproc (process-status cproc) event erc-server-quitting))
(if (string-match "^open" event)
;; newly opened connection (no wait)
(erc-login)
;; assume event is 'failed
(erc-with-all-buffers-of-server cproc nil
(setq erc-server-connected nil))
(when erc-server-ping-handler
(progn (erc-cancel-timer erc-server-ping-handler)
(setq erc-server-ping-handler nil)))
(run-hook-with-args 'erc-disconnected-hook
(erc-current-nick) (system-name) "")
;; Remove the prompt
(goto-char (or (marker-position erc-input-marker) (point-max)))
(forward-line 0)
(erc-remove-text-properties-region (point) (point-max))
(delete-region (point) (point-max))
;; Decide what to do with the buffer
;; Restart if disconnected
(erc-process-sentinel-1 event buf))))))
;;;; Sending messages