Function: org-cite--make-processor--cmacro

org-cite--make-processor--cmacro is a function defined in oc.el.gz.

Signature

(org-cite--make-processor--cmacro CL-WHOLE &cl-quote &key NAME ACTIVATE CITE-STYLES EXPORT-BIBLIOGRAPHY EXPORT-CITATION EXPORT-FINALIZER FOLLOW INSERT)

Documentation

compiler-macro for org-cite--make-processor.

Source Code

;; Defined in /usr/src/emacs/lisp/org/oc.el.gz
;; Could not find source code, showing raw function object.
#[(cl-whole &rest --cl-rest--)
  ((let*
       ((name (car (cdr (plist-member --cl-rest-- ':name))))
	(activate (car (cdr (plist-member --cl-rest-- ':activate))))
	(cite-styles
	 (car (cdr (plist-member --cl-rest-- ':cite-styles))))
	(export-bibliography
	 (car (cdr (plist-member --cl-rest-- ':export-bibliography))))
	(export-citation
	 (car (cdr (plist-member --cl-rest-- ':export-citation))))
	(export-finalizer
	 (car (cdr (plist-member --cl-rest-- ':export-finalizer))))
	(follow (car (cdr (plist-member --cl-rest-- ':follow))))
	(insert (car (cdr (plist-member --cl-rest-- ':insert)))))
     (progn
       (let ((--cl-keys-- --cl-rest--))
	 (while --cl-keys--
	   (cond
	    ((memq (car --cl-keys--)
		   '(:name :activate :cite-styles :export-bibliography
			   :export-citation :export-finalizer :follow
			   :insert :allow-other-keys))
	     (unless (cdr --cl-keys--)
	       (error "Missing argument for %s" (car --cl-keys--)))
	     (setq --cl-keys-- (cdr (cdr --cl-keys--))))
	    ((car (cdr (memq ':allow-other-keys --cl-rest--)))
	     (setq --cl-keys-- nil))
	    (t
	     (error
	      "Keyword argument %S not one of (:name :activate :cite-styles :export-bibliography :export-citation :export-finalizer :follow :insert)"
	      (car --cl-keys--))))))
       (cl-block org-cite--make-processor--cmacro
	 (cl--defsubst-expand
	  '(name activate cite-styles export-bibliography
		 export-citation export-finalizer follow insert)
	  '(cl-block org-cite--make-processor
	     (record 'org-cite-processor name activate cite-styles
		     export-bibliography export-citation
		     export-finalizer follow insert))
	  nil cl-whole nil name activate cite-styles
	  export-bibliography export-citation export-finalizer follow
	  insert)))))
  (cl-struct-org-cite-processor-tags) nil
  "compiler-macro for `org-cite--make-processor'.\n\n(fn CL-WHOLE &cl-quote &key NAME ACTIVATE CITE-STYLES EXPORT-BIBLIOGRAPHY EXPORT-CITATION EXPORT-FINALIZER FOLLOW INSERT)"]