Function: mh-edit-pick-expr

mh-edit-pick-expr is a byte-compiled function defined in mh-limit.el.gz.

Signature

(mh-edit-pick-expr DEFAULT)

Documentation

With prefix arg edit a pick expression.

If no prefix arg is given, then return DEFAULT.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-limit.el.gz
(defun mh-edit-pick-expr (default)
  "With prefix arg edit a pick expression.
If no prefix arg is given, then return DEFAULT."
  (let ((default-string (cl-loop for x in default concat (format " %s" x))))
    (if (or current-prefix-arg (equal default-string ""))
        (mh-pick-args-list (read-string "Pick expression: "
                                        default-string))
      default)))