Function: erc--make-message-variable-name--inliner

erc--make-message-variable-name--inliner is a function defined in erc.el.gz.

Signature

(erc--make-message-variable-name--inliner INLINE--FORM CATALOG KEY SOFTP)

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
;; Could not find source code, showing raw function object.
#[(inline--form catalog key softp)
  ((ignore inline--form)
   (catch 'inline--just-use
     (list 'let*
	   (list (list 'catname (list 'symbol-name catalog))
		 (list 'prefix
		       (list 'if (list 'eq 45 (list 'aref 'catname 0))
			     "erc--message" "erc-message-"))
		 (list 'name
		       (list 'concat 'prefix 'catname "-"
			     (list 'symbol-name key))))
	   (list 'if softp
		 (list 'and-let*
		       (list (list 's (list 'intern-soft 'name))
			     (list (list 'boundp 's)))
		       's)
		 (list 'intern 'name)))))
  (t)]