Function: compat--read-multiple-choice

compat--read-multiple-choice is a byte-compiled function defined in compat-29.el.

Signature

(compat--read-multiple-choice PROMPT CHOICES &optional HELP-STR SHOW-HELP LONG-FORM)

Documentation

[Compatibility function for read-multiple-choice, defined in Emacs 29.1. See
(compat) Emacs 29.1' for more details.]

Handle LONG-FORM argument.

Source Code

;; Defined in ~/.emacs.d/elpa/compat-30.1.0.1/compat-29.el
;;;; Defined in rmc.el

(compat-defun read-multiple-choice  ;; <compat-tests:read-multiple-choice>
    (prompt choices &optional _help-str _show-help long-form)
    "Handle LONG-FORM argument."
  :extended t
  (if (not long-form)
      (read-multiple-choice prompt choices)
    (let ((answer
           (completing-read
            (concat prompt " ("
                    (mapconcat #'identity (mapcar #'cadr choices) "/")
                    ") ")
            (mapcar #'cadr choices) nil t)))
      (catch 'found
        (dolist (c choices)
          (when (equal answer (cadr c))
            (throw 'found c)))))))