Function: pr-insert-menu

pr-insert-menu is a byte-compiled function defined in printing.el.gz.

Signature

(pr-insert-menu TAG VAR-SYM CHOICES &optional BEFORE AFTER BODY)

Source Code

;; Defined in /usr/src/emacs/lisp/printing.el.gz
(defun pr-insert-menu (tag var-sym choices &optional before after body)
  (and before (widget-insert before))
  (apply #'widget-create 'menu-choice
         :tag tag
         :format "%v"
         :inline t
         :value (symbol-value var-sym)
         :notify (lambda (widget &rest _ignore)
                   (set var-sym (widget-value widget))
                   (when body (funcall body)))
         :void '(choice-item :format "%[%t%]"
                 :tag "Can not display value!")
         choices)
  (and after (widget-insert after)))