Mercurial > emacs
changeset 96180:7734d90cd461
(bug-reference-fontify): Revert previous change that saved match data.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 21 Jun 2008 20:29:45 +0000 |
| parents | 65cbed0b91c9 |
| children | 04672578b29d |
| files | lisp/progmodes/bug-reference.el |
| diffstat | 1 files changed, 11 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/bug-reference.el Sat Jun 21 20:14:27 2008 +0000 +++ b/lisp/progmodes/bug-reference.el Sat Jun 21 20:29:45 2008 +0000 @@ -77,18 +77,17 @@ ;; Remove old overlays. (bug-reference-unfontify beg-line end-line) (goto-char beg-line) - (save-match-data - (while (and (< (point) end-line) - (re-search-forward bug-reference-bug-regexp end-line 'move)) - (when (or (not bug-reference-prog-mode) - ;; This tests for both comment and string syntax. - (nth 8 (syntax-ppss))) - (let ((overlay (make-overlay (match-beginning 0) (match-end 0) - nil t nil))) - (overlay-put overlay 'category 'bug-reference) - (overlay-put overlay 'bug-reference-url - (format bug-reference-url-format - (match-string-no-properties 1)))))))))) + (while (and (< (point) end-line) + (re-search-forward bug-reference-bug-regexp end-line 'move)) + (when (or (not bug-reference-prog-mode) + ;; This tests for both comment and string syntax. + (nth 8 (syntax-ppss))) + (let ((overlay (make-overlay (match-beginning 0) (match-end 0) + nil t nil))) + (overlay-put overlay 'category 'bug-reference) + (overlay-put overlay 'bug-reference-url + (format bug-reference-url-format + (match-string-no-properties 1))))))))) ;; Taken from button.el. (defun bug-reference-push-button (&optional pos use-mouse-action)