Function: so-long--action-type

so-long--action-type is a byte-compiled function defined in so-long.el.gz.

Signature

(so-long--action-type)

Documentation

Generate a :type for so-long-action based on so-long-action-alist.

Source Code

;; Defined in /usr/src/emacs/lisp/so-long.el.gz
(defun so-long--action-type ()
  "Generate a :type for `so-long-action' based on `so-long-action-alist'."
  ;; :type seemingly cannot be a form to be evaluated on demand, so we
  ;; endeavor to keep it up-to-date with `so-long-action-alist' by
  ;; calling this from `so-long--action-alist-setter'.
  `(radio ,@(mapcar (lambda (x) (list 'const :tag (cadr x) (car x)))
                    (assq-delete-all nil so-long-action-alist))
          (const :tag "Do nothing" nil)))