Function: bug-reference-maybe-setup-from-vc

bug-reference-maybe-setup-from-vc is a byte-compiled function defined in bug-reference.el.gz.

Signature

(bug-reference-maybe-setup-from-vc URL URL-RX BUG-RX BUG-URL-FMT)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/bug-reference.el.gz
(defun bug-reference-maybe-setup-from-vc (url url-rx bug-rx bug-url-fmt)
  (when (string-match url-rx url)
    (setq-local bug-reference-bug-regexp bug-rx)
    (setq-local bug-reference-url-format
                (if (functionp bug-url-fmt)
                    ;; Collect the regex matches in a list and call
                    ;; bug-url-fmt with it.
                    (let (groups)
                      (dotimes (i (/ (length (match-data)) 2))
                        (push (match-string i url) groups))
                      (funcall bug-url-fmt (nreverse groups)))
                  bug-url-fmt))))