Function: erc-server-reconnect-p--inliner

erc-server-reconnect-p--inliner is a function defined in erc-backend.el.gz.

Signature

(erc-server-reconnect-p--inliner INLINE--FORM EVENT)

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-backend.el.gz
;; Closure converted to defun by helpful.
(defun erc-server-reconnect-p--inliner
    (inline--form event)
  (ignore inline--form)
  (catch 'inline--just-use
    (let*
	((exp event)
	 (event
	  (if
	      (macroexp-copyable-p exp)
	      exp
	    (make-symbol "event")))
	 (body
	  (list 'or 'erc-server-reconnecting
		(list 'and 'erc-server-auto-reconnect
		      (list 'not 'erc-server-banned)
		      (list 'or
			    (list 'eq 'erc-server-reconnect-attempts t)
			    (list 'and
				  (list 'integerp 'erc-server-reconnect-attempts)
				  (list '< 'erc-server-reconnect-count 'erc-server-reconnect-attempts)))
		      (list 'or 'erc-server-timed-out
			    (list 'not
				  (list 'string-match "^deleted" event)))
		      (list 'if
			    (list 'string-match "^failed with code 111" event)
			    (list 'quote 'nonblocking)
			    t)))))
      (if
	  (eq event exp)
	  body
	(macroexp-let*
	 (list
	  (list event exp))
	 body)))))