diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2013-09-26 10:37:16 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2013-09-26 10:37:16 +0300 |
| commit | b87c4ff2817e71ca71b028792200b1e069a95e04 (patch) | |
| tree | bfe00c0655fa02078a9ab2c633ea06d90c4a2064 /lisp/erc/erc-backend.el | |
| parent | bbc108377873aa6ed7cf21c731770103096eea39 (diff) | |
| parent | ba355de014b75ed104da4777f909db70d62f2357 (diff) | |
| download | emacs-b87c4ff2817e71ca71b028792200b1e069a95e04.tar.gz | |
Merge from trunk.
Diffstat (limited to 'lisp/erc/erc-backend.el')
| -rw-r--r-- | lisp/erc/erc-backend.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el index 4200d4aff7f..4e11f9548b9 100644 --- a/lisp/erc/erc-backend.el +++ b/lisp/erc/erc-backend.el @@ -497,11 +497,12 @@ The current buffer is given by BUFFER." erc-server-ping-handler) erc-server-ping-timer-alist))))) -(defun erc-server-process-alive () - "Return non-nil when `erc-server-process' is open or running." - (and erc-server-process - (processp erc-server-process) - (memq (process-status erc-server-process) '(run open)))) +(defun erc-server-process-alive (&optional buffer) + "Return non-nil when BUFFER has an `erc-server-process' open or running." + (with-current-buffer (or buffer (current-buffer)) + (and erc-server-process + (processp erc-server-process) + (memq (process-status erc-server-process) '(run open))))) ;;;; Connecting to a server |