Function: erc--switch-to-buffer

erc--switch-to-buffer is a byte-compiled function defined in erc.el.gz.

Signature

(erc--switch-to-buffer &optional ARG)

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
(defun erc--switch-to-buffer (&optional arg)
  (read-buffer "Switch to ERC buffer: "
	       (when (boundp 'erc-modified-channels-alist)
		 (buffer-name (caar (last erc-modified-channels-alist))))
	       t
	       ;; Only allow ERC buffers in the same session.
	       (let ((proc (unless arg erc-server-process)))
		 (lambda (bufname)
		   (let ((buf (if (consp bufname)
				  (cdr bufname) (get-buffer bufname))))
		     (when buf
		       (erc--buffer-p buf (lambda () t) proc)
		       (with-current-buffer buf
			 (and (derived-mode-p 'erc-mode)
			      (or (null proc)
				  (eq proc erc-server-process))))))))))