;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(custom-declare-group 'bug-reference nil "Hyperlinking references to bug reports." :group 'comm)
#@39 Keymap used by bug reference buttons.
(defvar bug-reference-map (byte-code "\300 \301
\302\303#\210\301
\304\303#\210\207" [make-sparse-keymap define-key [mouse-2] bug-reference-push-button "
"] 5) (#$ . 181))
#@686 Format used to turn a bug number into a URL.
The bug number is supplied as a string, so this should have a single %s.
This can also be a function designator; it is called without arguments
 and should return a string.
It can use `match-string' to get parts matched against
`bug-reference-bug-regexp', specifically:
 1. issue kind (bug, patch, rfe &c)
 2. issue number.

There is no default setting for this, it must be set per file.
If you set it to a symbol in the file Local Variables section,
you need to add a `bug-reference-url-format' property to it:
(put \='my-bug-reference-url-format \='bug-reference-url-format t)
so that it is considered safe, see `enable-local-variables'.
(defvar bug-reference-url-format nil (#$ . 399))
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\210\300\305\302\316#\207" [put bug-reference-url-format safe-local-variable #[257 "\211;\206
\2119\205
\211\300N\207" [bug-reference-url-format] 3 "\n\n(fn S)"] custom-declare-variable bug-reference-bug-regexp funcall function #[0 "\300\207" ["\\(\\b\\(?:[Bb]ug ?#?\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z+-]+/\\)\\([0-9]+\\(?:#[0-9]+\\)?\\)\\)"] 1 ""] "Regular expression matching bug references.\nThe first subexpression defines the region of the bug-reference\noverlay, i.e., the region being fontified and made clickable in\norder to browse the referenced bug in the corresponding project's\nissue tracker.\n\nIf `bug-reference-url-format' is set to a format string with\nsingle %s placeholder, the second subexpression must match\nthe (part of the) bug reference which needs to be injected in\nplace of the %s in order to form the bug's ticket URL.\n\nIf `bug-reference-url-format' is a function, the interpretation\nof the subexpressions larger than 1 is up to the function.\nHowever, it is checked that the bounds of all matching\nsubexpressions from 2 to 10 are within the bounds of the\nsubexpression 1 defining the overlay region.  Larger\nsubexpressions may also be used by the function but may lay\noutside the bounds of subexpressions 1 and then don't contribute\nto the highlighted and clickable region." :type regexp :version "28.1" stringp] 8)
#@43 Set properties of bug reference overlays.
(defalias 'bug-reference-set-overlay-properties #[0 "\301\302\303\304#\210\301\302\305\306#\210\301\302\307\310#\210\301\302\311\312#\210\301\302\313#\210\301\302\314\304#\207" [bug-reference-map put bug-reference evaporate t face link mouse-face highlight help-echo "mouse-1, C-c RET: visit this bug" keymap follow-link] 4 (#$ . 2572)])
(bug-reference-set-overlay-properties)
#@84 Return bug reference overlays in the region between START and END.

(fn START END)
(defalias 'bug-reference--overlays-in #[514 "\300\301\"\211\203 \211@\302
\303\"\304=\203\211B\262
A\266\202\202\210\211\237\207" [nil overlays-in overlay-get category bug-reference] 8 (#$ . 2998)])
#@86 Remove bug reference overlays from the region between START and END.

(fn START END)
(defalias 'bug-reference-unfontify #[514 "\300\301\302\"\"\207" [mapc delete-overlay bug-reference--overlays-in] 7 (#$ . 3295)])
(defvar bug-reference--nonconforming-regexps nil)
(defalias 'bug-reference--overlay-bounds #[0 "\302\224\302\225
\203A\211\203A\3032:\304\211\305X\2036\211\224\203/\211\224W\204*\211\225V\203/\306\303\307\"\210\211T\262
\202\310\262
0\203A

B\207	\235\204U	B\311\312\313\314\315 #\"\210\316\224\316\225B\207" [bug-reference-bug-regexp bug-reference--nonconforming-regexps 1 within-bounds 2 10 throw nil t display-warning bug-reference format-message "The value of `bug-reference-bug-regexp'\n\n  %S\n\nin buffer %S doesn't conform to the contract specified by its\ndocstring.  The subexpression 1 should define the region of the\nbug-reference overlay and cover all other subexpressions up to\nsubexpression 10." buffer-name 0] 8])
#@83 Apply bug reference overlays to the region between START and END.

(fn START END)
(defalias 'bug-reference-fontify #[514 "\212
b\210\303 
b\210\304 \305\"b\210`W\203u\306\307#\203u	\203+\310\311 8\203\312 
\211A\262\242\211\205@\313
@A#\210\211\262
\206W\314
@A\315\316\315%\317
\320\321#\210\211\262
\n\203p\317
\322\n;\203l\323\n\324\325!\"\202n\n #\210\266\202\211\211\205\207\211@\326
!\210
A\266\202\202v\262
\266\203)\207" [bug-reference-bug-regexp bug-reference-prog-mode bug-reference-url-format line-beginning-position line-end-position bug-reference--overlays-in re-search-forward move 8 syntax-ppss bug-reference--overlay-bounds move-overlay make-overlay nil t overlay-put category bug-reference bug-reference-url format match-string-no-properties 2 delete-overlay] 14 (#$ . 4266)])
#@90 Open URL corresponding to the bug reference at POS.

(fn &optional POS USE-MOUSE-ACTION)
(defalias 'bug-reference-push-button #[512 "\204\301\302!\210
\250\204(\303!\203(\304!r\305
\211@\262
!q\210\306\307!\310\")\207\311!\211\205E\211@\312
\313\"\211\203=\314
!\210\210
A\266\202\202+\207" [bug-reference-url-format user-error "You must customize some bug-reference variables; see Emacs info node Bug Reference" eventp event-start window-buffer bug-reference-push-button posn-point t overlays-at overlay-get bug-reference-url browse-url] 7 (#$ . 5091) (byte-code "\250\203	`\202\nC\207" [last-command-event] 1)])
#@38 

(fn URL URL-RX BUG-RX BUG-URL-FMT)
(defalias 'bug-reference-maybe-setup-from-vc #[1028 "\302\"\2058\303\300!\210
\303\301!\210\304\305 G\306\245\307\211W\203.\310
\"B\262\211T\262
\202\266

\237!\262
\211\207" [bug-reference-bug-regexp bug-reference-url-format string-match make-local-variable nil match-data 2 0 match-string] 10 (#$ . 5727)])
#@200 An alist for setting up `bug-reference-mode' based on VC URL.
This is like `bug-reference-setup-from-vc-alist' but generated
from a few default entries, and the value of
`bug-reference-forge-alist'.
(defvar bug-reference--setup-from-vc-alist nil (#$ . 6094))
#@432 An alist of forge instances.
Each entry has the form (HOST-DOMAIN FORGE-TYPE PROTOCOL).
HOST-DOMAIN is the host- and domain name, e.g., gitlab.com,
salsa.debian.org, or sr.ht.
FORGE-TYPE is the type of the forge, e.g., gitlab, gitea,
sourcehut, or github.
PROTOCOL is the protocol for accessing the forge's issue tracker,
usually "https" but for self-hosted forge instances not
accessible via the internet it might also be "http".
(defvar bug-reference-forge-alist '(("github.com" github "https") ("gitea.com" gitea "https") ("codeberg.org" gitea "https") ("gitlab.com" gitlab "https") ("framagit.org" gitlab "https") ("salsa.debian.org" gitlab "https") ("sr.ht" sourcehut "https")) (#$ . 6360))
(byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\307\304\310%\210\306\301\304\311\304\312%\210\306\301\304\313\304\314%\210\306\301\304\315\304\316%\207" [defalias bug-reference--build-forge-setup-entry cl-generic-define (host-domain forge-type protocol) nil "Build an entry for `bug-reference--setup-from-vc-alist'.\nHOST-DOMAIN is the host- and domain name, e.g., gitlab.com, or\nsr.ht.\n\nFORGE-TYPE is the type of the forge, e.g., gitlab, gitea,\nsourcehut, or github.\n\nPROTOCOL is the protocol for accessing the forge's issue tracker,\nusually https but for self-hosted forge instances not accessible\nvia the internet it might also be http.\n\n(fn HOST-DOMAIN FORGE-TYPE PROTOCOL)" cl-generic-define-method (host-domain (_forge-type (eql github)) protocol) #[771 "\300\301!\302Q\303\304\305#E\207" ["[/@]" regexp-quote "[/:]\\([.A-Za-z0-9_/-]+\\)\\.git" "\\(\\([.A-Za-z0-9_/-]+\\)?\\(?:#\\)\\([0-9]+\\)\\)\\>" make-closure #[257 "\211A@\302\303\300\301$\207" [V0 V1 make-closure #[0 "\303\304\301\300\305\306!\206\302\305\307!%\207" [V0 V1 V2 format "%s://%s/%s/issues/%s" match-string-no-properties 2 3] 7]] 7 "\n\n(fn GROUPS)"]] 9 "\n\n(fn HOST-DOMAIN FORGE-TYPE PROTOCOL)"] (host-domain (_forge-type (eql gitlab)) protocol) #[771 "\300\301!\302Q\303\304\305#E\207" ["[/@]" regexp-quote "[/:]\\([.A-Za-z0-9_/-]+\\)\\.git" "\\(\\([.A-Za-z0-9_/-]+\\)?\\([#!]\\)\\([0-9]+\\)\\)\\>" make-closure #[257 "\211A@\302\303\300\301$\207" [V0 V1 make-closure #[0 "\303\304\301\300\305\306!\206\302\305\307!\310\230\203\311\202\312\305\313!&\207" [V0 V1 V2 format "%s://%s/%s/-/%s/%s" match-string-no-properties 2 3 "#" "issues/" "merge_requests/" 4] 8]] 7 "\n\n(fn GROUPS)"]] 9 "\n\n(fn HOST-DOMAIN FORGE-TYPE PROTOCOL)"] (host-domain (_forge-type (eql gitea)) protocol) #[771 "\300\301!\302Q\303\304\305#E\207" ["[/@]" regexp-quote "[/:]\\([.A-Za-z0-9_/-]+\\)\\.git" "\\(\\([.A-Za-z0-9_/-]+\\)?\\(?:#\\)\\([0-9]+\\)\\)\\>" make-closure #[257 "\211A@\302\303\300\301$\207" [V0 V1 make-closure #[0 "\303\304\301\300\305\306!\206\302\305\307!%\207" [V0 V1 V2 format "%s://%s/%s/issues/%s" match-string-no-properties 2 3] 7]] 7 "\n\n(fn GROUPS)"]] 9 "\n\n(fn HOST-DOMAIN FORGE-TYPE PROTOCOL)"] (host-domain (_forge-type (eql sourcehut)) protocol) #[771 "\300\301!\302Q\303\304\305#E\207" ["[/@]\\(?:git\\|hg\\)." regexp-quote "[/:]\\(~[.A-Za-z0-9_/-]+\\)" "\\(\\(~[.A-Za-z0-9_/-]+\\)?\\(?:#\\)\\([0-9]+\\)\\)\\>" make-closure #[257 "\211A@\302\303\300\301$\207" [V0 V1 make-closure #[0 "\303\304\301\300\305\306!\206\302\305\307!%\207" [V0 V1 V2 format "%s://todo.%s/%s/%s" match-string-no-properties 2 3] 7]] 7 "\n\n(fn GROUPS)"]] 9 "\n\n(fn HOST-DOMAIN FORGE-TYPE PROTOCOL)"]] 6)
#@255 Compute the `bug-reference--setup-from-vc-alist' value.
If REBUILD is non-nil, compute it again even if has been computed
already.  The value contains a few default entries, and entries
generated from `bug-reference-forge-alist'.

(fn &optional REBUILD)
(defalias 'bug-reference--setup-from-vc-alist #[256 "\203\n\211\204\n\207\302\303\304E\305\306	\"B\211\207" [bug-reference--setup-from-vc-alist bug-reference-forge-alist "git\\.\\(?:sv\\|savannah\\)\\.gnu\\.org:" "\\(\\b\\(?:[Bb]ug ?#?\\)\\([0-9]+\\(?:#[0-9]+\\)?\\)\\)\\>" #[257 "\300\207" ["https://debbugs.gnu.org/%s"] 2 "https://debbugs.gnu.org/%s\n\n(fn _)"] mapcar #[257 "\300\301\"\207" [apply bug-reference--build-forge-setup-entry] 4 "\n\n(fn ENTRY)"]] 5 (#$ . 9784)])
#@472 An alist for setting up `bug-reference-mode' based on VC URL.

Each element has the form (URL-REGEXP BUG-REGEXP URL-FORMAT-FN).

URL-REGEXP is matched against the version control URL of the
current buffer's file.  If it matches, BUG-REGEXP is set as
`bug-reference-bug-regexp'.  URL-FORMAT-FN is a function of one
argument that receives a list of the groups 0 to N of matching
URL-REGEXP against the VCS URL and returns the value to be set as
`bug-reference-url-format'.
(defvar bug-reference-setup-from-vc-alist nil (#$ . 10529))
#@194 Try setting up `bug-reference-mode' based on VC information.
Test each configuration in `bug-reference-setup-from-vc-alist'
and `bug-reference--setup-from-vc-alist' and apply it if
applicable.
(defalias 'bug-reference-try-setup-from-vc #[0 "\206	\211\205
\303
\304\"\211\205\305\306\307#\310\"\211\205(\305\306\311\"\312\n\313 \"\"\207" [buffer-file-name default-directory bug-reference-setup-from-vc-alist vc-responsible-backend t seq-some make-closure #[257 "\3021\f\303\301\304\300$0\207\210\305\207" [V0 V1 (error) vc-call-backend repository-url nil] 6 "\n\n(fn REMOTE)"] ("upstream" nil) #[257 "\301\302\300#\207" [V0 apply bug-reference-maybe-setup-from-vc] 5 "\n\n(fn CONFIG)"] append bug-reference--setup-from-vc-alist] 8 (#$ . 11067)])
#@832 An alist for setting up `bug-reference-mode' in mail modes.

This takes action if `bug-reference-mode' is enabled in group and
message buffers of Emacs mail clients.  Currently, Gnus and Rmail
are supported.

Each element has the form

  (GROUP-REGEXP HEADER-REGEXP BUG-REGEXP URL-FORMAT)

GROUP-REGEXP is a regexp matched against the current mail folder
or newsgroup name.  HEADER-REGEXP is a regexp matched against the
From, To, Cc, Newsgroup, and List-ID header values of the current
mail or newsgroup message.  If any of those matches, BUG-REGEXP
is set as `bug-reference-bug-regexp' and URL-FORMAT is set as
`bug-reference-url-format'.

Note: In Gnus, if a summary buffer has been set up based on
GROUP-REGEXP, all article buffers opened from there will get the
same `bug-reference-url-format' and `bug-reference-url-format'.
(defvar bug-reference-setup-from-mail-alist (byte-code "\300\301\302BBC\207" ["\\<\\(auctex\\|emacs\\|gnus\\|orgmode\\|tramp\\)\\>" "\\(?:\\(?:-devel@gnu\\|@debbugs\\.gnu\\|ding\\.gnus\\)\\.org\\)" ("\\(\\b[Bb]ug ?#?\\([0-9]+\\(?:#[0-9]+\\)?\\)\\)" "https://debbugs.gnu.org/%s")] 3) (#$ . 11832))
#@398 Set up according to mail GROUP or HEADER-VALUES.
Group is a mail group/folder name and HEADER-VALUES is a list of
mail header values, e.g., the values of From, To, Cc, List-ID,
and Newsgroup.

If any GROUP-REGEXP or HEADER-REGEXP of
`bug-reference-setup-from-mail-alist' matches GROUP or any
element in HEADER-VALUES, the corresponding BUG-REGEXP and
URL-FORMAT are set.

(fn GROUP HEADER-VALUES)
(defalias 'bug-reference-maybe-setup-from-mail #[514 "\3042\201\211\205~\211@\203%\211@\203%\211@\305\306\307#)\266\203\204b\203w\211A@\203w\3102_\211\205\\\211@\211\203UA@
\305\306\307#)\266\203\203U\311\310\306\"\210
A\266\202\2024\262
0\203w\312\302!\210\313
8\312\303!\210\314
8\311\304\306\"\210
A\266\202\202\262
0\207" [bug-reference-setup-from-mail-alist inhibit-changing-match-data bug-reference-bug-regexp bug-reference-url-format setup-done nil t string-match matching-header throw make-local-variable 2 3] 13 (#$ . 12967)])
#@160 Try setting up `bug-reference-mode' based on Gnus group or article.
Test each configuration in `bug-reference-setup-from-mail-alist'
and set it if applicable.
(defalias 'bug-reference-try-setup-from-gnus #[0 "\301\302!\205\303\300!\205\205\304\305\306\"\210\307\310\"\207" [gnus-newsgroup-name derived-mode-p gnus-summary-mode boundp add-hook gnus-article-prepare-hook bug-reference--try-setup-gnus-article bug-reference-maybe-setup-from-mail nil] 3 (#$ . 13938)])
(defalias 'bug-reference--try-setup-gnus-article #[0 "\205\210\306\307\310\"\205\210	\205\210\n\205\210\311\312	!!\205\210\311\312\n!!\205\210r	q\210\3132\207\203X\311!\203X\314\304!\210rq\210\f)\314\305!\210rq\210
)\f\203X
\203X\315\313\316\"\210\317r\312\n!q\210\212eb\210\320\211\203~\211@\321
!\211\203v\211B\262\210
A\266\202\202d\210*\322\317\"\262
0)\207" [bug-reference-mode gnus-article-buffer gnus-original-article-buffer gnus-summary-buffer bug-reference-bug-regexp bug-reference-url-format derived-mode-p gnus-article-mode gnus-summary-mode buffer-live-p get-buffer setup-done make-local-variable throw t nil ("list-id" "to" "from" "cc") mail-fetch-field bug-reference-maybe-setup-from-mail] 6])
#@319 Try setting up `bug-reference-mode' from the current rmail mail.
Guesses suitable `bug-reference-bug-regexp' and
`bug-reference-url-format' values by matching the current Rmail
file's name against GROUP-REGEXP and the values of List-Id, To,
From, and Cc against HEADER-REGEXP in
`bug-reference-setup-from-mail-alist'.
(defalias 'bug-reference-try-setup-from-rmail #[0 "\2053\301\302!\2053\303\212eb\210\304\211\203*\211@\305
!\211\203\"\211B\262\210
A\266\202\202\210)\306\307 \"\262
\207" [bug-reference-mode derived-mode-p rmail-mode nil ("list-id" "to" "from" "cc") mail-fetch-field bug-reference-maybe-setup-from-mail buffer-file-name] 6 (#$ . 15150)])
#@610 An alist for setting up `bug-reference-mode' in IRC modes.

This takes action if `bug-reference-mode' is enabled in IRC
channels using one of Emacs' IRC clients.  Currently, rcirc and
ERC are supported.

Each element has the form

  (CHANNEL-REGEXP NETWORK-REGEXP BUG-REGEXP URL-FORMAT)

CHANNEL-REGEXP is a regexp matched against the current IRC
channel name (e.g. #emacs).  NETWORK-REGEXP is matched against
the IRC network name (e.g. Libera.Chat).  Both entries are
optional.  If all given entries match, BUG-REGEXP is set as
`bug-reference-bug-regexp' and URL-FORMAT is set as
`bug-reference-url-format'.
(defvar bug-reference-setup-from-irc-alist (byte-code "\300\301BC\207" ["#\\<\\(e\\(?:macs\\|rc\\)\\|gnus\\|org-mode\\|rcirc\\)\\>" ("Libera.Chat" "\\(\\b[Bb]ug ?#?\\([0-9]+\\(?:#[0-9]+\\)?\\)\\)" "https://debbugs.gnu.org/%s")] 2) (#$ . 15824))
#@369 Set up according to IRC CHANNEL or NETWORK.
CHANNEL is an IRC channel name (or generally a target, i.e., it
could also be a user name) and NETWORK is that channel's network
name.

If any `bug-reference-setup-from-irc-alist' entry's
CHANNEL-REGEXP and NETWORK-REGEXP match CHANNEL and NETWORK, the
corresponding BUG-REGEXP and URL-FORMAT are set.

(fn CHANNEL NETWORK)
(defalias 'bug-reference-maybe-setup-from-irc #[514 "\3042j\211\205g\211@\211@
A@
\204\211\203^\203^\203^
\2035
\305\306\307#)\266\203\203^\211\203I\211\305\306\307#)\266\203\203^\310\302!\210\3118\310\303!\210\3128\313\304\306\"\210\266
A\266\202\202\262
0\207" [bug-reference-setup-from-irc-alist inhibit-changing-match-data bug-reference-bug-regexp bug-reference-url-format setup-done nil t string-match make-local-variable 2 3 throw] 13 (#$ . 16685)])
#@162 Try setting up `bug-reference-mode' based on rcirc channel and server.
Test each configuration in `bug-reference-setup-from-irc-alist'
and set it if applicable.
(defalias 'bug-reference-try-setup-from-rcirc #[0 "\303\304!\205\305	\205\306	!\205r	q\210\n)\"\207" [rcirc-target rcirc-server-buffer rcirc-server derived-mode-p rcirc-mode bug-reference-maybe-setup-from-irc buffer-live-p] 4 (#$ . 17548)])
#@160 Try setting up `bug-reference-mode' based on ERC channel and server.
Test each configuration in `bug-reference-setup-from-irc-alist'
and set it if applicable.
(defalias 'bug-reference-try-setup-from-erc #[0 "\300\301!\205\f\302\303 \304 \"\207" [derived-mode-p erc-mode bug-reference-maybe-setup-from-irc erc-format-target erc-network-name] 3 (#$ . 17964)])
#@580 Functions trying to auto-setup `bug-reference-mode'.
These functions are run after `bug-reference-mode' has been
activated in a buffer and try to guess suitable values for
`bug-reference-bug-regexp' and `bug-reference-url-format'.  Their
guesswork is based on these variables:

- `bug-reference-setup-from-vc-alist' for guessing based on
  version control, e.g., URL of repository.
- `bug-reference-setup-from-mail-alist' for guessing based on
  mail group names or mail header values.
- `bug-reference-setup-from-irc-alist' for guessing based on IRC
  channel or network names.
(defvar bug-reference-auto-setup-functions (list 'bug-reference-try-setup-from-vc 'bug-reference-try-setup-from-gnus 'bug-reference-try-setup-from-rmail 'bug-reference-try-setup-from-rcirc 'bug-reference-try-setup-from-erc) (#$ . 18330))
(defalias 'bug-reference--run-auto-setup #[0 "\204	\205\"\n\205
?\205\"\3041\305\306!0\207\307\310\"\210\311\262
\207" [bug-reference-mode bug-reference-prog-mode bug-reference-bug-regexp bug-reference-url-format (debug error) run-hook-with-args-until-success bug-reference-auto-setup-functions message "Error during bug-reference auto-setup: %S" nil] 4])
#@105 Non-nil if Bug-Reference mode is enabled.
Use the command `bug-reference-mode' to change this variable.
(defvar bug-reference-mode nil (#$ . 19520))
(make-variable-buffer-local 'bug-reference-mode)
#@633 Toggle hyperlinking bug references in the buffer (Bug Reference mode).

This is a minor mode.  If called interactively, toggle the
`Bug-Reference mode' mode.  If the prefix argument is positive, enable
the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `bug-reference-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'bug-reference-mode #[256 "\302 
\303=\203
?\202
\247\203
\304W\203\305\202\306\307\301!\2031\310\300	\"\2031\300	B\203<\311\312!\210\202I\313\312!\210\214~\210\314ed\"\210)\315\316\203S\317\202T\320\"\210\321\322!\203v\302 \203h\211\302 \232\203v\323\324\203r\325\202s\326\327#\210\330 \266\331 \210\207" [bug-reference-mode local-minor-modes current-message toggle 1 nil t boundp delq jit-lock-register bug-reference-fontify jit-lock-unregister bug-reference-unfontify run-hooks bug-reference-mode-hook bug-reference-mode-on-hook bug-reference-mode-off-hook called-interactively-p any message "Bug-Reference mode %sabled%s" "en" "dis" " in current buffer" bug-reference--run-auto-setup force-mode-line-update] 6 (#$ . 19725) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar bug-reference-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [bug-reference-mode-map bug-reference-mode-hook variable-documentation put "Hook run after entering or leaving `bug-reference-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode bug-reference-mode boundp] 6)
#@396 Enable `bug-reference-mode' and force auto-setup.
Enabling `bug-reference-mode' runs its auto-setup only if
`bug-reference-bug-regexp' and `bug-reference-url-format' are not
set already.  This function sets the latter to nil
buffer-locally, so that the auto-setup will always run.

This is mostly intended for MUA modes like `rmail-mode' where the
same buffer is re-used for different contexts.
(defalias 'bug-reference-mode-force-auto-setup #[0 "\301\300!\210\302\303 \207" [bug-reference-url-format make-local-variable nil bug-reference-mode] 2 (#$ . 21742)])
#@115 Non-nil if Bug-Reference-Prog mode is enabled.
Use the command `bug-reference-prog-mode' to change this variable.
(defvar bug-reference-prog-mode nil (#$ . 22312))
(make-variable-buffer-local 'bug-reference-prog-mode)
#@643 Like `bug-reference-mode', but only buttonize in comments and strings.

This is a minor mode.  If called interactively, toggle the
`Bug-Reference-Prog mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `bug-reference-prog-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'bug-reference-prog-mode #[256 "\302 
\303=\203
?\202
\247\203
\304W\203\305\202\306\307\301!\2031\310\300	\"\2031\300	B\203<\311\312!\210\202I\313\312!\210\214~\210\314ed\"\210)\315\316\203S\317\202T\320\"\210\321\322!\203v\302 \203h\211\302 \232\203v\323\324\203r\325\202s\326\327#\210\330 \266\331 \210\207" [bug-reference-prog-mode local-minor-modes current-message toggle 1 nil t boundp delq jit-lock-register bug-reference-fontify jit-lock-unregister bug-reference-unfontify run-hooks bug-reference-prog-mode-hook bug-reference-prog-mode-on-hook bug-reference-prog-mode-off-hook called-interactively-p any message "Bug-Reference-Prog mode %sabled%s" "en" "dis" " in current buffer" bug-reference--run-auto-setup force-mode-line-update] 6 (#$ . 22537) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar bug-reference-prog-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315!\207" [bug-reference-prog-mode-map bug-reference-prog-mode-hook variable-documentation put "Hook run after entering or leaving `bug-reference-prog-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode bug-reference-prog-mode boundp provide bug-reference] 6)