Function: flymake--diag-make--cmacro

flymake--diag-make--cmacro is a function defined in flymake.el.gz.

Signature

(flymake--diag-make--cmacro CL-WHOLE &cl-quote &key LOCUS BEG END TYPE TEXT BACKEND DATA OVERLAY-PROPERTIES OVERLAY ORIG-BEG ORIG-END)

Documentation

compiler-macro for flymake--diag-make.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/flymake.el.gz
;; Could not find source code, showing raw function object.
#[(cl-whole &rest --cl-rest--)
  ((let*
       ((locus (car (cdr (plist-member --cl-rest-- ':locus))))
	(beg (car (cdr (plist-member --cl-rest-- ':beg))))
	(end (car (cdr (plist-member --cl-rest-- ':end))))
	(type (car (cdr (plist-member --cl-rest-- ':type))))
	(text (car (cdr (plist-member --cl-rest-- ':text))))
	(backend (car (cdr (plist-member --cl-rest-- ':backend))))
	(data (car (cdr (plist-member --cl-rest-- ':data))))
	(overlay-properties
	 (car (cdr (plist-member --cl-rest-- ':overlay-properties))))
	(overlay (car (cdr (plist-member --cl-rest-- ':overlay))))
	(orig-beg (car (cdr (plist-member --cl-rest-- ':orig-beg))))
	(orig-end (car (cdr (plist-member --cl-rest-- ':orig-end)))))
     (progn
       (let ((--cl-keys-- --cl-rest--))
	 (while --cl-keys--
	   (cond
	    ((memq (car --cl-keys--)
		   '(:locus :beg :end :type :text :backend :data
			    :overlay-properties :overlay :orig-beg
			    :orig-end :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 (:locus :beg :end :type :text :backend :data :overlay-properties :overlay :orig-beg :orig-end)"
	      (car --cl-keys--))))))
       (cl-block flymake--diag-make--cmacro
	 (cl--defsubst-expand
	  '(locus beg end type text backend data overlay-properties
		  overlay orig-beg orig-end)
	  '(cl-block flymake--diag-make
	     (record 'flymake--diag locus beg end type text backend
		     data overlay-properties overlay orig-beg orig-end))
	  nil cl-whole nil locus beg end type text backend data
	  overlay-properties overlay orig-beg orig-end)))))
  (t) nil
  "compiler-macro for `flymake--diag-make'.\n\n(fn CL-WHOLE &cl-quote &key LOCUS BEG END TYPE TEXT BACKEND DATA OVERLAY-PROPERTIES OVERLAY ORIG-BEG ORIG-END)"]