Function: make-which-key--pages--cmacro

make-which-key--pages--cmacro is a function defined in which-key.el.gz.

Signature

(make-which-key--pages--cmacro CL-WHOLE &cl-quote &key PAGES HEIGHT WIDTHS KEYS/PAGE PAGE-NUMS NUM-PAGES TOTAL-KEYS PREFIX PREFIX-TITLE)

Documentation

compiler-macro for make-which-key--pages.

Source Code

;; Defined in /usr/src/emacs/lisp/which-key.el.gz
;; Could not find source code, showing raw function object.
#[(cl-whole &rest --cl-rest--)
  ((let*
       ((pages (car (cdr (plist-member --cl-rest-- ':pages))))
	(height (car (cdr (plist-member --cl-rest-- ':height))))
	(widths (car (cdr (plist-member --cl-rest-- ':widths))))
	(keys/page (car (cdr (plist-member --cl-rest-- ':keys/page))))
	(page-nums (car (cdr (plist-member --cl-rest-- ':page-nums))))
	(num-pages (car (cdr (plist-member --cl-rest-- ':num-pages))))
	(total-keys
	 (car (cdr (plist-member --cl-rest-- ':total-keys))))
	(prefix (car (cdr (plist-member --cl-rest-- ':prefix))))
	(prefix-title
	 (car (cdr (plist-member --cl-rest-- ':prefix-title)))))
     (progn
       (let ((--cl-keys-- --cl-rest--))
	 (while --cl-keys--
	   (cond
	    ((memq (car --cl-keys--)
		   '(:pages :height :widths :keys/page :page-nums
			    :num-pages :total-keys :prefix
			    :prefix-title :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 (:pages :height :widths :keys/page :page-nums :num-pages :total-keys :prefix :prefix-title)"
	      (car --cl-keys--))))))
       (cl-block make-which-key--pages--cmacro
	 (cl--defsubst-expand
	  '(pages height widths keys/page page-nums num-pages
		  total-keys prefix prefix-title)
	  '(cl-block make-which-key--pages
	     (record 'which-key--pages pages height widths keys/page
		     page-nums num-pages total-keys prefix
		     prefix-title))
	  nil cl-whole nil pages height widths keys/page page-nums
	  num-pages total-keys prefix prefix-title)))))
  (t) nil
  "compiler-macro for `make-which-key--pages'.\n\n(fn CL-WHOLE &cl-quote &key PAGES HEIGHT WIDTHS KEYS/PAGE PAGE-NUMS NUM-PAGES TOTAL-KEYS PREFIX PREFIX-TITLE)"]