# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 733432145 0
# Node ID eb9815e0a71d393b0a5c811e4ead3df5bc1449ec
# Parent  c61190e101a0f75abdad1176fd7e0a16f95a053a
(count-lines): Use save-match-data.

diff -r c61190e101a0 -r eb9815e0a71d lisp/simple.el
--- a/lisp/simple.el	Mon Mar 29 15:48:02 1993 +0000
+++ b/lisp/simple.el	Mon Mar 29 19:09:05 1993 +0000
@@ -321,18 +321,19 @@
 This is usually the number of newlines between them,
 but can be one more if START is not equal to END
 and the greater of them is not at the start of a line."
-  (save-excursion
-    (save-restriction
-      (narrow-to-region start end)
-      (goto-char (point-min))
-      (if (eq selective-display t)
-	  (let ((done 0))
-	    (while (re-search-forward "[\n\C-m]" nil t 40)
-	      (setq done (+ 40 done)))
-	    (while (re-search-forward "[\n\C-m]" nil t 1)
-	      (setq done (+ 1 done)))
-	    done)
-	(- (buffer-size) (forward-line (buffer-size)))))))
+  (save-match-data
+    (save-excursion
+      (save-restriction
+	(narrow-to-region start end)
+	(goto-char (point-min))
+	(if (eq selective-display t)
+	    (let ((done 0))
+	      (while (re-search-forward "[\n\C-m]" nil t 40)
+		(setq done (+ 40 done)))
+	      (while (re-search-forward "[\n\C-m]" nil t 1)
+		(setq done (+ 1 done)))
+	      done)
+	  (- (buffer-size) (forward-line (buffer-size))))))))
 
 (defun what-cursor-position ()
   "Print info on cursor position (on screen and within buffer)."