Function: make-nnimap--cmacro

make-nnimap--cmacro is a function defined in nnimap.el.gz.

Signature

(make-nnimap--cmacro CL-WHOLE &cl-quote &key GROUP PROCESS COMMANDS CAPABILITIES SELECT-RESULT NEWLINEP SERVER LAST-COMMAND-TIME GREETING EXAMINED STREAM-TYPE INITIAL-RESYNC)

Documentation

compiler-macro for make-nnimap.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnimap.el.gz
;; Could not find source code, showing raw function object.
#[(cl-whole &rest --cl-rest--)
  ((let*
       ((group (car (cdr (plist-member --cl-rest-- ':group))))
	(process (car (cdr (plist-member --cl-rest-- ':process))))
	(commands (car (cdr (plist-member --cl-rest-- ':commands))))
	(capabilities
	 (car (cdr (plist-member --cl-rest-- ':capabilities))))
	(select-result
	 (car (cdr (plist-member --cl-rest-- ':select-result))))
	(newlinep (car (cdr (plist-member --cl-rest-- ':newlinep))))
	(server (car (cdr (plist-member --cl-rest-- ':server))))
	(last-command-time
	 (car (cdr (plist-member --cl-rest-- ':last-command-time))))
	(greeting (car (cdr (plist-member --cl-rest-- ':greeting))))
	(examined (car (cdr (plist-member --cl-rest-- ':examined))))
	(stream-type
	 (car (cdr (plist-member --cl-rest-- ':stream-type))))
	(initial-resync
	 (car (cdr (plist-member --cl-rest-- ':initial-resync)))))
     (progn
       (let ((--cl-keys-- --cl-rest--))
	 (while --cl-keys--
	   (cond
	    ((memq (car --cl-keys--)
		   '(:group :process :commands :capabilities
			    :select-result :newlinep :server
			    :last-command-time :greeting :examined
			    :stream-type :initial-resync
			    :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 (:group :process :commands :capabilities :select-result :newlinep :server :last-command-time :greeting :examined :stream-type :initial-resync)"
	      (car --cl-keys--))))))
       (cl-block make-nnimap--cmacro
	 (cl--defsubst-expand
	  '(group process commands capabilities select-result newlinep
		  server last-command-time greeting examined
		  stream-type initial-resync)
	  '(cl-block make-nnimap
	     (record 'nnimap group process commands capabilities
		     select-result newlinep server last-command-time
		     greeting examined stream-type initial-resync))
	  nil cl-whole nil group process commands capabilities
	  select-result newlinep server last-command-time greeting
	  examined stream-type initial-resync)))))
  (t) nil
  "compiler-macro for `make-nnimap'.\n\n(fn CL-WHOLE &cl-quote &key GROUP PROCESS COMMANDS CAPABILITIES SELECT-RESULT NEWLINEP SERVER LAST-COMMAND-TIME GREETING EXAMINED STREAM-TYPE INITIAL-RESYNC)"]