changeset 9814:5ae33de679f6

Wrap font-lock-fontify-region's string-match with save-match-data.
author Simon Marshall <simon@gnu.org>
date Thu, 03 Nov 1994 15:30:39 +0000
parents e33e1c6864de
children cf81e1252f30
files lisp/font-lock.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)