Function: make-url-queue--cmacro

make-url-queue--cmacro is a function defined in url-queue.el.gz.

Signature

(make-url-queue--cmacro CL-WHOLE &cl-quote &key URL CALLBACK CBARGS SILENTP BUFFER START-TIME PRE-TRIGGERED INHIBIT-COOKIESP CONTEXT-BUFFER)

Documentation

compiler-macro for make-url-queue.

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-queue.el.gz
;; Could not find source code, showing raw function object.
#[(cl-whole &rest --cl-rest--)
  ((let*
       ((url (car (cdr (plist-member --cl-rest-- ':url))))
	(callback (car (cdr (plist-member --cl-rest-- ':callback))))
	(cbargs (car (cdr (plist-member --cl-rest-- ':cbargs))))
	(silentp (car (cdr (plist-member --cl-rest-- ':silentp))))
	(buffer (car (cdr (plist-member --cl-rest-- ':buffer))))
	(start-time
	 (car (cdr (plist-member --cl-rest-- ':start-time))))
	(pre-triggered
	 (car (cdr (plist-member --cl-rest-- ':pre-triggered))))
	(inhibit-cookiesp
	 (car (cdr (plist-member --cl-rest-- ':inhibit-cookiesp))))
	(context-buffer
	 (car (cdr (plist-member --cl-rest-- ':context-buffer)))))
     (progn
       (let ((--cl-keys-- --cl-rest--))
	 (while --cl-keys--
	   (cond
	    ((memq (car --cl-keys--)
		   '(:url :callback :cbargs :silentp :buffer
			  :start-time :pre-triggered :inhibit-cookiesp
			  :context-buffer :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 (:url :callback :cbargs :silentp :buffer :start-time :pre-triggered :inhibit-cookiesp :context-buffer)"
	      (car --cl-keys--))))))
       (cl-block make-url-queue--cmacro
	 (cl--defsubst-expand
	  '(url callback cbargs silentp buffer start-time
		pre-triggered inhibit-cookiesp context-buffer)
	  '(cl-block make-url-queue
	     (record 'url-queue url callback cbargs silentp buffer
		     start-time pre-triggered inhibit-cookiesp
		     context-buffer))
	  nil cl-whole nil url callback cbargs silentp buffer
	  start-time pre-triggered inhibit-cookiesp context-buffer)))))
  (t) nil
  "compiler-macro for `make-url-queue'.\n\n(fn CL-WHOLE &cl-quote &key URL CALLBACK CBARGS SILENTP BUFFER START-TIME PRE-TRIGGERED INHIBIT-COOKIESP CONTEXT-BUFFER)"]