Function: magit-read-char-case

magit-read-char-case is a macro defined in magit-base.el.

Signature

(magit-read-char-case PROMPT VERBOSE &rest CLAUSES)

Source Code

;; Defined in ~/.emacs.d/elpa/magit-20260411.1452/magit-base.el
(defmacro magit-read-char-case (prompt verbose &rest clauses)
  (declare (indent 2)
           (debug (form form &rest (characterp form body))))
  `(prog1 (pcase (read-char-choice
                  (let ((parts (nconc (list ,@(mapcar #'cadr clauses))
                                      ,(and verbose '(list "[C-g] to abort")))))
                    (concat ,prompt
                            (string-join (butlast parts) ", ")
                            ", or "  (car (last parts)) " "))
                  ',(mapcar #'car clauses))
            ,@(mapcar (##`(,(car %) ,@(cddr %))) clauses))
     (message "")))