Change for older Emacs

racket-edit.el

@@ -165,23 +165,24 @@ about shifting positions of later items.
 The biggest wrinkle here is that, for esthetics, we want to
 remove surrounding whitepsace when deleting. Otherwise, for
 replacing, it suffices to make the change and re-indent."
-  (dolist (change changes)
-    (pcase change
-      (`(delete ,pos ,span)
-       (delete-region pos (+ pos span))
-       (save-excursion
-         (goto-char pos)
-         (if (save-excursion
-               (forward-line 0)
-               (looking-at "[ \t]*)" t))
-             (delete-indentation) ;i.e. join-line
-           (delete-blank-lines))))
-      (`(replace ,pos ,span ,str)
-       (delete-region pos (+ pos span))
-       (save-excursion
-         (goto-char pos)
-         (insert str)
-         (indent-region pos (point)))))))
+  (save-match-data
+    (dolist (change changes)
+      (pcase change
+        (`(delete ,pos ,span)
+         (delete-region pos (+ pos span))
+         (save-excursion
+           (goto-char pos)
+           (if (save-excursion
+                 (forward-line 0)
+                 (looking-at "[ \t]*)"))
+               (delete-indentation) ;i.e. join-line
+             (delete-blank-lines))))
+        (`(replace ,pos ,span ,str)
+         (delete-region pos (+ pos span))
+         (save-excursion
+           (goto-char pos)
+           (insert str)
+           (indent-region pos (point))))))))
 
 (defun racket--submodule-y-or-n-p ()
   (save-excursion