annotate lisp/progmodes/bug-reference.el @ 98150:43afebdca874

(f90-mode-map): Don't bind \t and \r.
author Glenn Morris <rgm@gnu.org>
date Fri, 12 Sep 2008 03:09:19 +0000
parents 7734d90cd461
children a9dc0e7c3f2b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
94319
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
1 ;; bug-reference.el --- buttonize bug references
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
2
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 2008 Free Software Foundation, Inc.
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
4
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
5 ;; Author: Tom Tromey <tromey@redhat.com>
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
6 ;; Created: 21 Mar 2007
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
7 ;; Keywords: tools
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
8
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
10
94673
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94323
diff changeset
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
94319
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
94673
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94323
diff changeset
13 ;; the Free Software Foundation, either version 3 of the License, or
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94323
diff changeset
14 ;; (at your option) any later version.
94319
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
15
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
20
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
94673
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94323
diff changeset
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
94319
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
23
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
24 ;;; Commentary:
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
25
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
26 ;; This file provides minor modes for putting clickable overlays on
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
27 ;; references to bugs. A bug reference is text like "PR foo/29292";
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
28 ;; this is mapped to a URL using a user-supplied format.
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
29
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
30 ;; Two minor modes are provided. One works on any text in the buffer;
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
31 ;; the other operates only on comments and strings.
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
32
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
33 (defvar bug-reference-map
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
34 (let ((map (make-sparse-keymap)))
96178
382d88eb4f25 (bug-reference-map): Bind down-mouse-1 rather than mouse-1.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
35 (define-key map [down-mouse-1] 'bug-reference-push-button)
94319
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
36 (define-key map (kbd "C-c RET") 'bug-reference-push-button)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
37 map)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
38 "Keymap used by bug reference buttons.")
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
39
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
40 ;; E.g., "http://gcc.gnu.org/PR%s"
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
41 (defvar bug-reference-url-format nil
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
42 "Format used to turn a bug number into a URL.
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
43 The bug number is supplied as a string, so this should have a single %s.
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
44 There is no default setting for this, it must be set per file.")
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
45
96178
382d88eb4f25 (bug-reference-map): Bind down-mouse-1 rather than mouse-1.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
46 ;;;###autoload
382d88eb4f25 (bug-reference-map): Bind down-mouse-1 rather than mouse-1.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
47 (put 'bug-reference-url-format 'safe-local-variable 'stringp)
382d88eb4f25 (bug-reference-map): Bind down-mouse-1 rather than mouse-1.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
48
94319
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
49 (defconst bug-reference-bug-regexp
96178
382d88eb4f25 (bug-reference-map): Bind down-mouse-1 rather than mouse-1.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
50 "\\(?:[Bb]ug ?#\\|PR [a-z-+]+/\\)\\([0-9]+\\)"
94319
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
51 "Regular expression which matches bug references.")
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
52
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
53 (defun bug-reference-set-overlay-properties ()
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
54 "Set properties of bug reference overlays."
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
55 (put 'bug-reference 'evaporate t)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
56 (put 'bug-reference 'face 'link)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
57 (put 'bug-reference 'mouse-face 'highlight)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
58 (put 'bug-reference 'help-echo "mouse-1, C-c RET: visit this bug")
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
59 (put 'bug-reference 'keymap bug-reference-map)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
60 (put 'bug-reference 'follow-link t))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
61
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
62 (bug-reference-set-overlay-properties)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
63
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
64 (defun bug-reference-unfontify (start end)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
65 "Remove bug reference overlays from region."
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
66 (dolist (o (overlays-in start end))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
67 (when (eq (overlay-get o 'category) 'bug-reference)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
68 (delete-overlay o))))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
69
94323
e8d2086bbf1a (bug-reference-prog-mode): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents: 94319
diff changeset
70 (defvar bug-reference-prog-mode)
e8d2086bbf1a (bug-reference-prog-mode): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents: 94319
diff changeset
71
94319
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
72 (defun bug-reference-fontify (start end)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
73 "Apply bug reference overlays to region."
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
74 (save-excursion
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
75 (let ((beg-line (progn (goto-char start) (line-beginning-position)))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
76 (end-line (progn (goto-char end) (line-end-position))))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
77 ;; Remove old overlays.
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
78 (bug-reference-unfontify beg-line end-line)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
79 (goto-char beg-line)
96180
7734d90cd461 (bug-reference-fontify): Revert previous change that saved match data.
Glenn Morris <rgm@gnu.org>
parents: 96178
diff changeset
80 (while (and (< (point) end-line)
7734d90cd461 (bug-reference-fontify): Revert previous change that saved match data.
Glenn Morris <rgm@gnu.org>
parents: 96178
diff changeset
81 (re-search-forward bug-reference-bug-regexp end-line 'move))
7734d90cd461 (bug-reference-fontify): Revert previous change that saved match data.
Glenn Morris <rgm@gnu.org>
parents: 96178
diff changeset
82 (when (or (not bug-reference-prog-mode)
7734d90cd461 (bug-reference-fontify): Revert previous change that saved match data.
Glenn Morris <rgm@gnu.org>
parents: 96178
diff changeset
83 ;; This tests for both comment and string syntax.
7734d90cd461 (bug-reference-fontify): Revert previous change that saved match data.
Glenn Morris <rgm@gnu.org>
parents: 96178
diff changeset
84 (nth 8 (syntax-ppss)))
7734d90cd461 (bug-reference-fontify): Revert previous change that saved match data.
Glenn Morris <rgm@gnu.org>
parents: 96178
diff changeset
85 (let ((overlay (make-overlay (match-beginning 0) (match-end 0)
7734d90cd461 (bug-reference-fontify): Revert previous change that saved match data.
Glenn Morris <rgm@gnu.org>
parents: 96178
diff changeset
86 nil t nil)))
7734d90cd461 (bug-reference-fontify): Revert previous change that saved match data.
Glenn Morris <rgm@gnu.org>
parents: 96178
diff changeset
87 (overlay-put overlay 'category 'bug-reference)
7734d90cd461 (bug-reference-fontify): Revert previous change that saved match data.
Glenn Morris <rgm@gnu.org>
parents: 96178
diff changeset
88 (overlay-put overlay 'bug-reference-url
7734d90cd461 (bug-reference-fontify): Revert previous change that saved match data.
Glenn Morris <rgm@gnu.org>
parents: 96178
diff changeset
89 (format bug-reference-url-format
7734d90cd461 (bug-reference-fontify): Revert previous change that saved match data.
Glenn Morris <rgm@gnu.org>
parents: 96178
diff changeset
90 (match-string-no-properties 1)))))))))
94319
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
91
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
92 ;; Taken from button.el.
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
93 (defun bug-reference-push-button (&optional pos use-mouse-action)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
94 "Open URL corresponding to the bug reference at POS."
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
95 (interactive
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
96 (list (if (integerp last-command-event) (point) last-command-event)))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
97 (if (and (not (integerp pos)) (eventp pos))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
98 ;; POS is a mouse event; switch to the proper window/buffer
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
99 (let ((posn (event-start pos)))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
100 (with-current-buffer (window-buffer (posn-window posn))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
101 (bug-reference-push-button (posn-point posn) t)))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
102 ;; POS is just normal position.
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
103 (dolist (o (overlays-at pos))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
104 ;; It should only be possible to have one URL overlay.
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
105 (let ((url (overlay-get o 'bug-reference-url)))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
106 (when url
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
107 (browse-url url))))))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
108
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
109 ;;;###autoload
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
110 (define-minor-mode bug-reference-mode
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
111 "Minor mode to buttonize bugzilla references in the current buffer.
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
112 Requires `bug-reference-url-format' to be set in the buffer."
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
113 nil
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
114 ""
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
115 nil
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
116 (if bug-reference-mode
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
117 (when bug-reference-url-format
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
118 (jit-lock-register #'bug-reference-fontify))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
119 (jit-lock-unregister #'bug-reference-fontify)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
120 (save-restriction
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
121 (widen)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
122 (bug-reference-unfontify (point-min) (point-max)))))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
123
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
124 ;;;###autoload
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
125 (define-minor-mode bug-reference-prog-mode
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
126 "Like `bug-reference-mode', but only buttonize in comments and strings."
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
127 nil
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
128 ""
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
129 nil
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
130 (if bug-reference-prog-mode
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
131 (when bug-reference-url-format
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
132 (jit-lock-register #'bug-reference-fontify))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
133 (jit-lock-unregister #'bug-reference-fontify)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
134 (save-restriction
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
135 (widen)
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
136 (bug-reference-unfontify (point-min) (point-max)))))
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
137
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
138 ;; arch-tag: b138abce-e5c3-475e-bd58-7afba40387ea
91dd07fb6b73 Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
139 ;;; bug-reference.el ends here