WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/progmodes
Viewing File: /usr/share/emacs/24.3/lisp/progmodes/bug-reference.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:53:16 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/bug-reference.el
;;; in Emacs version 24.3.1
;;; 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 "\301 \302\303\304#\210\302\305\304#\210)\207" [map make-sparse-keymap define-key [mouse-2] bug-reference-push-button "
"] 4) (#$ . 662))
#@682 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 (#$ . 887))
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\313\314\315\316\317&\207" [put bug-reference-url-format safe-local-variable #[(s) ";\206
9\205
\301N\207" [s bug-reference-url-format] 2] custom-declare-variable bug-reference-bug-regexp "\\([Bb]ug ?#\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z-+]+/\\)\\([0-9]+\\(?:#[0-9]+\\)?\\)" "Regular expression matching bug references.\nThe second subexpression should match the bug reference (usually a number)." :type string :safe stringp :version "24.3" :group bug-reference] 12)
#@43 Set properties of bug reference overlays.
(defalias 'bug-reference-set-overlay-properties #[nil "\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 (#$ . 2154)])
(bug-reference-set-overlay-properties)
#@44 Remove bug reference overlays from region.
(defalias 'bug-reference-unfontify #[(start end) "\304	\"\305\211\205#@\306\n\307\"\310=\203\311\n!\210A\211\204\305*\207" [start end o --dolist-tail-- overlays-in nil overlay-get category bug-reference delete-overlay] 4 (#$ . 2582)])
#@41 Apply bug reference overlays to region.
(defalias 'bug-reference-fontify #[(start end) "\212b\210\306 	b\210\307 \310\n\"\210b\210`\nW\205b\311\f\n\312#\205b
\203.\313\314 8\203\315\316\224\316\225\317\320\317%\321\322\323#\210\203^\321\324;\203Y\325\326\327!\"\202\\ #\210)\202+\207" [start end end-line beg-line bug-reference-bug-regexp bug-reference-prog-mode 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 overlay bug-reference-url-format] 7 (#$ . 2878)])
#@53 Open URL corresponding to the bug reference at POS.
(defalias 'bug-reference-push-button #[(&optional pos _use-mouse-action) "\250\2048\306!\2038\307!r\310	\211@)!q\210\311	\312\n8\2063\nA@:\2030\nA@@\2023\nA@)\313\"*\207\314!\315\211\205[\f@\316\317\"\211\203R\320
!\210)\fA\211\204B\315*\207" [pos posn position o --dolist-tail-- url eventp event-start window-buffer bug-reference-push-button 5 t overlays-at nil overlay-get bug-reference-url browse-url] 4 (#$ . 3539) (list (if (integerp last-command-event) (point) last-command-event))])
#@105 Non-nil if Bug-Reference mode is enabled.
Use the command `bug-reference-mode' to change this variable.
(defvar bug-reference-mode nil (#$ . 4109))
(make-variable-buffer-local 'bug-reference-mode)
#@236 Toggle hyperlinking bug references in the buffer (Bug Reference mode).
With a prefix argument ARG, enable Bug Reference mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.
(defalias 'bug-reference-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\211\203\307\310!\210\202,\311\310!\210\214~\210\312ed\"\210)\313\314\n\2036\315\2027\316\"\210\317\320!\203X\303 \203K\303 \232\203X\321\322\n\203U\323\202V\324\"\210)\325 \210\n\207" [#1=#:last-message arg 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 message "Bug-Reference mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 4313) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\305\211%\207" [bug-reference-mode-map 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 (#$ . 5386))
(make-variable-buffer-local 'bug-reference-prog-mode)
#@72 Like `bug-reference-mode', but only buttonize in comments and strings.
(defalias 'bug-reference-prog-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\211\203\307\310!\210\202,\311\310!\210\214~\210\312ed\"\210)\313\314\n\2036\315\2027\316\"\210\317\320!\203X\303 \203K\303 \232\203X\321\322\n\203U\323\202V\324\"\210)\325 \210\n\207" [#1=#:last-message arg 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 message "Bug-Reference-Prog mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 5609) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\305\211%\210\306\307!\207" [bug-reference-prog-mode-map add-minor-mode bug-reference-prog-mode "" boundp nil provide bug-reference] 6)
F1l3 Manager
