# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 783876639 0
# Node ID 5ae33de679f6054db20cd3d4d43a205b119d5e8a
# Parent  e33e1c6864de8d5b258d6b69d4526c9108a4b1b6
Wrap font-lock-fontify-region's string-match with save-match-data.

diff -r e33e1c6864de -r 5ae33de679f6 lisp/font-lock.el
--- a/lisp/font-lock.el	Wed Nov 02 06:18:45 1994 +0000
+++ b/lisp/font-lock.el	Thu Nov 03 15:30:39 1994 +0000
@@ -343,9 +343,10 @@
 			       ;; In C mode, it is " */"
 			       ;; and we don't want to fail to notice a */
 			       ;; just because there's no space there.
-			       (if (string-match "^ +" comment-end)
-				   (substring comment-end (match-end 0))
-				 comment-end)))
+			       (save-match-data
+				 (if (string-match "^ +" comment-end)
+				     (substring comment-end (match-end 0))
+				   comment-end))))
 		    "\\s>"))
 	    (startline (point))
 	    state prev prevstate)