(bug-reference-fontify): Revert previous change that saved match data.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4fc1e994541f30184c6706052caeeb45d107c2c8..9739db2ad4e5fb9b461b7529bb1cc6c158e9c526 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -20,7 +20,6 @@
        rather than mouse-1.
        (bug-reference-url-format): Autoload safe if string.
        (bug-reference-bug-regexp): Make space after "bug" optional.
-       (bug-reference-fontify): Save match data.
 
        * Makefile.in (all): Explicitly pass EMACS to sub-make,
        for some non-GNU makes.

diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el
index d98604a2afdfead0a581aa9ce462509e23a592ac..26ae2d57cce18e89d3da7525fd3d99f4723b8b87 100644 (file)
--- a/lisp/progmodes/bug-reference.el
+++ b/lisp/progmodes/bug-reference.el
@@ -77,18 +77,17 @@ There is no default setting for this, it must be set per file.")
       ;; 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)