Function: bug-reference--init

bug-reference--init is a byte-compiled function defined in bug-reference.el.gz.

Signature

(bug-reference--init ENABLE)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/bug-reference.el.gz
(defun bug-reference--init (enable)
  (if enable
      (progn
        (jit-lock-register #'bug-reference-fontify)
        (setq-local thing-at-point-provider-alist
                    (cons '(url . bug-reference--url-at-point)
                          thing-at-point-provider-alist))
        (setq-local forward-thing-provider-alist
                    (cons '(url . bug-reference--forward-url)
                          forward-thing-provider-alist))
        (setq-local bounds-of-thing-at-point-provider-alist
                    (cons '(url . bug-reference--bounds-of-url-at-point)
                          bounds-of-thing-at-point-provider-alist)))
    (jit-lock-unregister #'bug-reference-fontify)
    (setq thing-at-point-provider-alist
          (delete '((url . bug-reference--url-at-point))
                  thing-at-point-provider-alist))
    (setq forward-thing-provider-alist
          (delete '((url . bug-reference--forward-url))
                  forward-thing-provider-alist))
    (setq bounds-of-thing-at-point-provider-alist
          (delete '((url . bug-reference--bounds-of-url-at-point))
                  bounds-of-thing-at-point-provider-alist))
    (save-restriction
      (widen)
      (bug-reference-unfontify (point-min) (point-max)))))