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 ORIGIN CODE MESSAGE 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))))
	(origin (car (cdr (plist-member --cl-rest-- ':origin))))
	(code (car (cdr (plist-member --cl-rest-- ':code))))
	(message (car (cdr (plist-member --cl-rest-- ':message))))
	(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 :origin :code :message
			    :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 :origin :code :message :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 origin code message backend data
		  overlay-properties overlay orig-beg orig-end)
	  '(cl-block flymake--diag-make
	     (record 'flymake--diag locus beg end type origin code
		     message backend data overlay-properties overlay
		     orig-beg orig-end))
	  nil cl-whole nil locus beg end type origin code message
	  backend data overlay-properties overlay orig-beg orig-end)))))
  (cl-struct-flymake--diag-tags) nil
  "compiler-macro for `flymake--diag-make'.\n\n(fn CL-WHOLE &cl-quote &key LOCUS BEG END TYPE ORIGIN CODE MESSAGE BACKEND DATA OVERLAY-PROPERTIES OVERLAY ORIG-BEG ORIG-END)"]