Current File : //usr/local/share/emacs/27.2/lisp/progmodes/bug-reference.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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\211\207" [make-sparse-keymap define-key [mouse-2] bug-reference-push-button "
"] 5) (#$ . 504))
#@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 (#$ . 726))
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315\316\317& \210\300\305\302\320#\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" [#1="\\([Bb]ug ?#?\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z+-]+/\\)\\([0-9]+\\(?:#[0-9]+\\)?\\)"] 1 #1#] "Regular expression matching bug references.\nThe second subexpression should match the bug reference (usually a number)." :type string :version "24.3" :group bug-reference stringp] 10)
#@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 (#$ . 2079)])
(bug-reference-set-overlay-properties)
#@86 Remove bug reference overlays from the region between START and END.
(fn START END)
(defalias 'bug-reference-unfontify #[514 "\300\"\211\205 \211@\301\302\"\303=\203 \304!\210A\266\202\202 \207" [overlays-in overlay-get category bug-reference delete-overlay] 7 (#$ . 2505)])
#@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\"\210b\210`W\205X \306\307#\205X \203, \310\311 8\203 \312\313\224\313\225\314\315\314%\316\317\320#\210\n\203T \316\321\n;\203P \322\n\323\324!\"\202R \n #\210\210\202 \266\202)\207" [bug-reference-bug-regexp bug-reference-prog-mode bug-reference-url-format line-beginning-position line-end-position bug-reference-unfontify re-search-forward move 8 syntax-ppss make-overlay 0 nil t overlay-put category bug-reference bug-reference-url format match-string-no-properties 2] 12 (#$ . 2795)])
#@90 Open URL corresponding to the bug reference at POS.
(fn &optional POS USE-MOUSE-ACTION)
(defalias 'bug-reference-push-button #[512 "\250\204 \300!\203 \301!r\302\211@\262!q\210\303\304!\305\")\207\306!\211\205= \211@\307\310\"\211\2035 \311!\210\210A\266\202\202# \207" [eventp event-start window-buffer bug-reference-push-button posn-point t overlays-at overlay-get bug-reference-url browse-url] 7 (#$ . 3455) (byte-code "\250\203 `\202\n C\207" [last-command-event] 1)])
#@105 Non-nil if Bug-Reference mode is enabled.
Use the command `bug-reference-mode' to change this variable.
(defvar bug-reference-mode nil (#$ . 3951))
(make-variable-buffer-local 'bug-reference-mode)
#@338 Toggle hyperlinking bug references in the buffer (Bug Reference mode).
If called interactively, enable Bug-Reference mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
(fn &optional ARG)
(defalias 'bug-reference-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\203 \305\306!\210\202+ \307\306!\210\214~\210\310ed\"\210)\311\312\2035 \313\2026 \314\"\210\315\316!\203Z \301 \203J \211\301 \232\203Z \317\320\321\203U \322\202V \323#\266\210\324 \210\207" [bug-reference-mode current-message toggle prefix-numeric-value 0 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 " in current buffer" message "Bug-Reference mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 4155) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar bug-reference-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\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.)" add-minor-mode bug-reference-mode "" boundp nil] 6)
#@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 (#$ . 5657))
(make-variable-buffer-local 'bug-reference-prog-mode)
#@343 Like `bug-reference-mode', but only buttonize in comments and strings.
If called interactively, enable Bug-Reference-Prog mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
(fn &optional ARG)
(defalias 'bug-reference-prog-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\203 \305\306!\210\202+ \307\306!\210\214~\210\310ed\"\210)\311\312\2035 \313\2026 \314\"\210\315\316!\203Z \301 \203J \211\301 \232\203Z \317\320\321\203U \322\202V \323#\266\210\324 \210\207" [bug-reference-prog-mode current-message toggle prefix-numeric-value 0 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 " in current buffer" message "Bug-Reference-Prog mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 5881) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar bug-reference-prog-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\210\312\313!\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.)" add-minor-mode bug-reference-prog-mode "" boundp nil provide bug-reference] 6)
Mini Shell