Function: transient--extract-value

transient--extract-value is a byte-compiled function defined in transient.el.gz.

Signature

(transient--extract-value OBJ)

Source Code

;; Defined in /usr/src/emacs/lisp/transient.el.gz
(defun transient--extract-value (obj)
  (cond*
    ((bind-and*
       (_(slot-exists-p obj 'argument-regexp))
       (regexp (oref obj argument-regexp)))
     (lambda (arg)
       (and (stringp arg)
            (let ((case-fold-search nil))
              (string-match regexp arg))
            (match-string 1 arg))))
    ((bind-and*
       (argument (oref obj argument)))
     (lambda (arg)
       (and (stringp arg)
            (string-prefix-p argument arg)
            (substring arg (length argument)))))))