ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/progmodes/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/progmodes/bug-reference.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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) (#$ . 506))
#@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 (#$ . 731))
(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 (#$ . 2003)])
(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 (#$ . 2431)])
#@41 Apply bug reference overlays to region.
(defalias 'bug-reference-fontify #[(start end) "\212b\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 (#$ . 2727)])
#@53 Open URL corresponding to the bug reference at POS.
(defalias 'bug-reference-push-button #[(&optional pos _use-mouse-action) "\250\204! \305!\203! \306!r\307 \211@\262!q\210\310\311 !\312\"*\207\313!\314\211\205D @\315\n\316\"\211 \203; \317\f!\210) A\211\204+ \314*\207" [pos posn o --dolist-tail-- url eventp event-start window-buffer bug-reference-push-button posn-point t overlays-at nil overlay-get bug-reference-url browse-url] 4 (#$ . 3388) (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 (#$ . 3925))
(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) "\304 \305=\203 \n?\202 \306 !\307V\211\203 \310\311!\210\202, \312\311!\210\214~\210\313ed\"\210)\314\315\n\2036 \316\2027 \317\"\210\320\321!\203\\ \304 \203K \304 \232\203\\ \322\323\324\n\203W \325\202X \326 #\210))\327 \210\n\207" [#1=#:last-message arg bug-reference-mode local 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] 5 (#$ . 4129) (list (or current-prefix-arg 'toggle))])
#@183 Hook run after entering or leaving `bug-reference-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar bug-reference-mode-hook nil (#$ . 5107))
(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 (#$ . 5477))
(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) "\304 \305=\203 \n?\202 \306 !\307V\211\203 \310\311!\210\202, \312\311!\210\214~\210\313ed\"\210)\314\315\n\2036 \316\2027 \317\"\210\320\321!\203\\ \304 \203K \304 \232\203\\ \322\323\324\n\203W \325\202X \326 #\210))\327 \210\n\207" [#1=#:last-message arg bug-reference-prog-mode local 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] 5 (#$ . 5700) (list (or current-prefix-arg 'toggle))])
#@188 Hook run after entering or leaving `bug-reference-prog-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar bug-reference-prog-mode-hook nil (#$ . 6544))
(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)
Kontol Shell Bypass