fix cleanup-list-numbers infinite loop

jrblevin · Feb 19, 2016 · 6c44b03 · 6c44b03
1 parent acd2c4c
commit 6c44b03
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/markdown-mode.el b/markdown-mode.el
@@ -5166,8 +5166,9 @@ a list."
         (setq cpfx (match-string-no-properties 1))
         (cond
          ((string= cpfx pfx)
-          (replace-match
-           (concat pfx (number-to-string  (setq idx (1+ idx))) ". "))
+          (save-excursion
+            (replace-match
+             (concat pfx (number-to-string (setq idx (1+ idx))) ". ")))
           (setq sep nil))
          ;; indented a level
          ((string< pfx cpfx)