Function: pr-choice-alist

pr-choice-alist is a byte-compiled function defined in printing.el.gz.

Signature

(pr-choice-alist ALIST)

Source Code

;; Defined in /usr/src/emacs/lisp/printing.el.gz
(defun pr-choice-alist (alist)
  (let ((max (apply #'max (mapcar (lambda (alist)
                                    (length (symbol-name (car alist))))
                                  alist))))
    (mapcar (lambda (alist)
              (let* ((sym  (car alist))
                     (name (symbol-name sym)))
                (list
                 'choice-item
                 :format "%[%t%]"
                 :tag (concat name
                              (make-string (- max (length name)) ?_))
                 :value sym)))
	    alist)))