;ELC ;;; Compiled ;;; in Emacs version 30.2 ;;; with all optimizations. #@39 Keymap used by bug reference buttons. (byte-code "\300\301!\210\302\303\304\305\306\307%\207" [require thingatpt custom-declare-group bug-reference nil "Hyperlinking references to bug reports." :group comm] 6) (defvar bug-reference-map (define-keymap "" 'bug-reference-push-button "C-c RET" 'bug-reference-push-button) (#$ . 83))#@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 (#$ . 428))#@10 (fn S)#@947 Regular expression matching bug references. The first subexpression defines the region of the bug-reference overlay, i.e., the region being fontified and made clickable in order to browse the referenced bug in the corresponding project's issue tracker. If `bug-reference-url-format' is set to a format string with single %s placeholder, the second subexpression must match the (part of the) bug reference which needs to be injected in place of the %s in order to form the bug's ticket URL. If `bug-reference-url-format' is a function, the interpretation of the subexpressions larger than 1 is up to the function. However, it is checked that the bounds of all matching subexpressions from 2 to 10 are within the bounds of the subexpression 1 defining the overlay region. Larger subexpressions may also be used by the function but may lay outside the bounds of subexpressions 1 and then don't contribute to the highlighted and clickable region.#@2 #@43 Set properties of bug reference overlays. (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 (#$ . 1167)] 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 (#$ . 2132)] (#$ . 1182) :type regexp :version "28.1" stringp] 8) (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 (#$ . 2138)])#@84 Return bug reference overlays in the region between START and END. (fn START END) (bug-reference-set-overlay-properties) (defalias 'bug-reference--overlays-in #[514 "\300\301\"\211\203\211@\302\303\"\304=\203\211B\262\210A\202\210\237\207" [nil overlays-in overlay-get category bug-reference] 8 (#$ . 3011)])#@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 (#$ . 3337)]) (defvar bug-reference--nonconforming-regexps nil) (defalias 'bug-reference--overlay-bounds #[0 "\302\224\302\225\203=\211\203=\30326\304\211\305X\2033\211\224\203/\211\224W\204*\211\225V\203/\306\303\307\"\210T\202\210\3100\203=B\207 \235\204Q 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 "\212b\210\303 b\210\304 \305\"b\210`W\203|\306\307#\203| \2035\310\311 \312\313\"\216\314 )\2628\203\315 \211A\262\242\211\205J\316@A#\210\211\262\206^\317@A\320\321\320%\322\323\324#\210\n\203w\322\325\n;\203s\326\n\327\330!\"\202u\n #\210\266\202\211\211\203\214\211@\331!\266A\202})\210\332BB\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 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] 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 jit-lock-bounds] 14 (#$ . 4297)])#@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@!q\210\306\307!\310\")\207\311!\211\205@\211@\312\313\"\211\203:\314!\210\266A\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 (#$ . 5219) (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\"\2055\303\300!\210\303\301!\210\304\305 G\306\245\307\211W\203+\310\"B\262T\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 (#$ . 5837)])#@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 (#$ . 6194))#@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")) (#$ . 6459))#@419 Build an entry for `bug-reference--setup-from-vc-alist'. HOST-DOMAIN is the host- and domain name, e.g., gitlab.com, 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. (fn HOST-DOMAIN FORGE-TYPE PROTOCOL)#@40 (fn HOST-DOMAIN FORGE-TYPE PROTOCOL)#@15 (fn GROUPS)#@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)#@10 (fn _)#@14 (fn ENTRY) (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\302\305\306!\206 \300\305\307!%\207" [V0 V1 V2 format "%s://%s/%s/issues/%s" match-string-no-properties 2 3] 7]] 7 (#$ . 7628)]] 9 (#$ . 7584)] (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\302\305\306!\206 \300\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 (#$ . 7628)]] 9 (#$ . 7584)] (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\302\305\306!\206 \300\305\307!%\207" [V0 V1 V2 format "%s://%s/%s/issues/%s" match-string-no-properties 2 3] 7]] 7 (#$ . 7628)]] 9 (#$ . 7584)] (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\302\305\306!\206 \300\305\307!%\207" [V0 V1 V2 format "%s://todo.%s/%s/%s" match-string-no-properties 2 3] 7]] 7 (#$ . 7628)]] 9 (#$ . 7584)]] 6) (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 (#$ . 7907)] mapcar #[257 "\300\301\"\207" [apply bug-reference--build-forge-setup-entry] 4 (#$ . 7921)]] 5 (#$ . 7648)])#@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 (#$ . 11014))#@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.#@15 (fn REMOTE)#@15 (fn CONFIG) (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\300\304\301$0\207\305\207" [V0 V1 (error) vc-call-backend repository-url nil] 7 (#$ . 11749)] ("upstream" nil) #[257 "\301\302\300#\207" [V0 apply bug-reference-maybe-setup-from-vc] 5 (#$ . 11768)] append bug-reference--setup-from-vc-alist] 8 (#$ . 11551)])#@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) (#$ . 12339))#@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 "\3032y\211\205v\211@\203#\211@\203#\211@\304\305\306$\266\203\204\\\203q\211A@\203q\3072Y\211\205V\211@\211\203QA@\304\305\306$\266\203\203Q\310\307\306\"\210\210A\2022\2620\203q\311\301!\210\3128\311\302!\210\3138\310\303\306\"\210\210A\202\2620\207" [bug-reference-setup-from-mail-alist bug-reference-bug-regexp bug-reference-url-format setup-done nil string-match t matching-header throw make-local-variable 2 3] 14 (#$ . 13473)])#@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 (#$ . 14398)]) (defalias 'bug-reference--try-setup-gnus-article #[0 "\205\203\306\307!\205\203 \205\203\n\205\203\310\311 !!\205\203\310\311\n!!\205\203r q\210\3122\202 \203W\310 !\203W\313\304!\210r q\210\f)\313\305!\210r q\210 )\f\203W \203W\314\312\315\"\210\316r\nq\210\212eb\210\317\211\203y\211@\320!\211\203s\211B\262\266A\202a*\210\321\316\"\2620)\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 "\2051\301\302!\2051\303\212eb\210\304\211\203(\211@\305!\211\203\"\211B\262\266A\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 (#$ . 15593)])#@611 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's 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) (#$ . 16258))#@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 "\3032c\211\205`\211@\211@A@\204\211\203Z\203Z\203Z\2033\304\305\306$\266\203\203Z\211\203E\211\304\305\306$\266\203\203Z\307\301!\210\3108\307\302!\210\3118\312\303\306\"\210\266A\202\2620\207" [bug-reference-setup-from-irc-alist bug-reference-bug-regexp bug-reference-url-format setup-done nil string-match t make-local-variable 2 3 throw] 14 (#$ . 17119)])#@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 (#$ . 17940)])#@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 (#$ . 18355)])#@1285 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. Note: This variable's purpose is to allow packages to provide bug-reference auto-setup support in buffers managed by this package. Therefore, such auto-setup function should check if the current buffer is "their" buffer and only act if that's the case, e.g., in terms of `derived-mode-p'. The variable is not intended for users. Those are advised to set `bug-reference-bug-regexp' and `bug-reference-url-format' using other means such as file-local variable sections, a `.dir-locals.el' file, or compute and set their values in `bug-reference-mode-hook' or `bug-reference-prog-mode-hook'. If the bug regexp and URL format are already set after those hooks have been run, the auto-setup is inhibited. (defvar bug-reference-auto-setup-functions nil (#$ . 18721)) (byte-code "\300\301\302\303\304\257\211\203\211@\305\306\"\266A\202\207" [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 add-hook bug-reference-auto-setup-functions] 5) (defalias 'bug-reference--run-auto-setup #[0 "\204 \205!\n\205 ?\205!\3041\305\306!0\207\307\310\"\266\311\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])#@37 `thing-at-point' provider function. (defalias 'bug-reference--url-at-point #[0 "\300\301!\207" [thing-at-point-for-char-property bug-reference-url] 2 (#$ . 20730)])#@51 `forward-thing' provider function. (fn BACKWARD) (defalias 'bug-reference--forward-url #[257 "\300\301\"\207" [forward-thing-for-char-property bug-reference-url] 4 (#$ . 20900)])#@47 `bounds-of-thing-at-point' provider function. (defalias 'bug-reference--bounds-of-url-at-point #[0 "\300\301!\207" [bounds-of-thing-at-point-for-char-property bug-reference-url] 2 (#$ . 21086)])#@15 (fn ENABLE) (defalias 'bug-reference--init #[257 "\211\203\"\303\304!\210\305\300!\210\306B\305\301!\210\307 B\305\302!\210\310\nB\211\207\311\304!\210\312\313\"\312\314 \"\312\315\n\"\214~\210\316ed\")\207" [thing-at-point-provider-alist forward-thing-provider-alist bounds-of-thing-at-point-provider-alist jit-lock-register bug-reference-fontify make-local-variable (url . bug-reference--url-at-point) (url . bug-reference--forward-url) (url . bug-reference--bounds-of-url-at-point) jit-lock-unregister delete ((url . bug-reference--url-at-point)) ((url . bug-reference--forward-url)) ((url . bug-reference--bounds-of-url-at-point)) bug-reference-unfontify] 4 (#$ . 21286)])#@105 Non-nil if Bug-Reference mode is enabled. Use the command `bug-reference-mode' to change this variable. (defvar bug-reference-mode nil (#$ . 21980))#@646 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 the variable `bug-reference-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (make-variable-buffer-local 'bug-reference-mode) (defalias 'bug-reference-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311!\210\312\313\203?\314\202@\315\"\210\316\317!\203c\302 \203T\211\302 \232\203c\320\321\322\203_\323\202`\324\325$\210\326 \266\327 \207" [bug-reference-mode local-minor-modes current-message toggle 1 nil t boundp delq bug-reference--init run-hooks bug-reference-mode-hook bug-reference-mode-on-hook bug-reference-mode-off-hook called-interactively-p any message "%s %sabled%s" "Bug-Reference mode" "en" "dis" " in current buffer" bug-reference--run-auto-setup force-mode-line-update] 8 (#$ . 22135) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar bug-reference-mode-hook nil)#@395 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 reused for different contexts. (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) (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 (#$ . 23626)])#@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 (#$ . 24671))#@656 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 the variable `bug-reference-prog-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (make-variable-buffer-local 'bug-reference-prog-mode) (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\311!\210\312\313\203?\314\202@\315\"\210\316\317!\203c\302 \203T\211\302 \232\203c\320\321\322\203_\323\202`\324\325$\210\326 \266\327 \207" [bug-reference-prog-mode local-minor-modes current-message toggle 1 nil t boundp delq bug-reference--init run-hooks bug-reference-prog-mode-hook bug-reference-prog-mode-on-hook bug-reference-prog-mode-off-hook called-interactively-p any message "%s %sabled%s" "Bug-Reference-Prog mode" "en" "dis" " in current buffer" bug-reference--run-auto-setup force-mode-line-update] 8 (#$ . 24841) (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)