Function: erc-nickserv-alist-ident-command--inliner

erc-nickserv-alist-ident-command--inliner is a function defined in erc-services.el.gz.

Signature

(erc-nickserv-alist-ident-command--inliner INLINE--FORM NETWORK &optional ENTRY)

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-services.el.gz
;; Could not find source code, showing raw function object.
#[(inline--form network &optional entry)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp network)
	  (network
	   (if (macroexp-copyable-p exp) exp (make-symbol "network")))
	  (body
	   (let*
	       ((exp entry)
		(entry
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "entry")))
		(body
		 (list 'nth 6
		       (list 'or entry
			     (list 'assoc network 'erc-nickserv-alist)))))
	     (if (eq entry exp) body
	       (macroexp-let* (list (list entry exp)) body)))))
       (if (eq network exp) body
	 (macroexp-let* (list (list network exp)) body)))))
  (t)]