Mercurial > emacs
annotate lisp/progmodes/bug-reference.el @ 95322:54121bb9b5ad
(Problems): Remove fixed issues.
(vc-expand-dirs): Avoid returning directories.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Mon, 26 May 2008 23:53:33 +0000 |
parents | 52b7a8c22af5 |
children | 382d88eb4f25 |
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))) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
35 (define-key map [mouse-1] 'bug-reference-push-button) |
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 |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
46 (defconst bug-reference-bug-regexp |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
47 "\\(?:[Bb]ug #\\|PR [a-z-+]+/\\)\\([0-9]+\\)" |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
48 "Regular expression which matches bug references.") |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
49 |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
50 (defun bug-reference-set-overlay-properties () |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
51 "Set properties of bug reference overlays." |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
52 (put 'bug-reference 'evaporate t) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
53 (put 'bug-reference 'face 'link) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
54 (put 'bug-reference 'mouse-face 'highlight) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
55 (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
|
56 (put 'bug-reference 'keymap bug-reference-map) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
57 (put 'bug-reference 'follow-link t)) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
58 |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
59 (bug-reference-set-overlay-properties) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
60 |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
61 (defun bug-reference-unfontify (start end) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
62 "Remove bug reference overlays from region." |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
63 (dolist (o (overlays-in start end)) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
64 (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
|
65 (delete-overlay o)))) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
66 |
94323
e8d2086bbf1a
(bug-reference-prog-mode): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents:
94319
diff
changeset
|
67 (defvar bug-reference-prog-mode) |
e8d2086bbf1a
(bug-reference-prog-mode): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents:
94319
diff
changeset
|
68 |
94319
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
69 (defun bug-reference-fontify (start end) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
70 "Apply bug reference overlays to region." |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
71 (save-excursion |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
72 (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
|
73 (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
|
74 ;; Remove old overlays. |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
75 (bug-reference-unfontify beg-line end-line) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
76 (goto-char beg-line) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
77 (while (and (< (point) end-line) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
78 (re-search-forward bug-reference-bug-regexp end-line 'move)) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
79 (when (or (not bug-reference-prog-mode) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
80 ;; This tests for both comment and string syntax. |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
81 (nth 8 (syntax-ppss))) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
82 (let ((overlay (make-overlay (match-beginning 0) (match-end 0) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
83 nil t nil))) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
84 (overlay-put overlay 'category 'bug-reference) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
85 (overlay-put overlay 'bug-reference-url |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
86 (format bug-reference-url-format |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
87 (match-string-no-properties 1))))))))) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
88 |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
89 ;; Taken from button.el. |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
90 (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
|
91 "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
|
92 (interactive |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
93 (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
|
94 (if (and (not (integerp pos)) (eventp pos)) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
95 ;; 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
|
96 (let ((posn (event-start pos))) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
97 (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
|
98 (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
|
99 ;; POS is just normal position. |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
100 (dolist (o (overlays-at pos)) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
101 ;; 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
|
102 (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
|
103 (when url |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
104 (browse-url url)))))) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
105 |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
106 ;;;###autoload |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
107 (define-minor-mode bug-reference-mode |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
108 "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
|
109 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
|
110 nil |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
111 "" |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
112 nil |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
113 (if bug-reference-mode |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
114 (when bug-reference-url-format |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
115 (jit-lock-register #'bug-reference-fontify)) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
116 (jit-lock-unregister #'bug-reference-fontify) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
117 (save-restriction |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
118 (widen) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
119 (bug-reference-unfontify (point-min) (point-max))))) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
120 |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
121 ;;;###autoload |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
122 (define-minor-mode bug-reference-prog-mode |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
123 "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
|
124 nil |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
125 "" |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
126 nil |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
127 (if bug-reference-prog-mode |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
128 (when bug-reference-url-format |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
129 (jit-lock-register #'bug-reference-fontify)) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
130 (jit-lock-unregister #'bug-reference-fontify) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
131 (save-restriction |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
132 (widen) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
133 (bug-reference-unfontify (point-min) (point-max))))) |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
134 |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
135 ;; arch-tag: b138abce-e5c3-475e-bd58-7afba40387ea |
91dd07fb6b73
Tom Tromey <tromey at redhat.com>: New file.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
136 ;;; bug-reference.el ends here |