save-excursion during actual reindentation unless bolp

2019-04-25 20:07:31 +01:00 · 2019-04-25 20:07:31 +01:00 · 6db903bd37
parent 328f82acbc
commit 6db903bd37
1 changed files with 6 additions and 3 deletions
--- a/preserves.el
+++ b/preserves.el
@ -128,9 +128,12 @@
                   (skip-syntax-forward " ")
                   (current-column)))))))))
    (when new-indentation
-      (indent-line-to (if (preserves-continuation-line-p)
-                          (+ new-indentation preserves-indent-basic)
-                        new-indentation)))))
+      (cl-labels ((reindent! () (indent-line-to (if (preserves-continuation-line-p)
+                                                    (+ new-indentation preserves-indent-basic)
+                                                  new-indentation))))
+        (if (bolp)
+            (reindent!)
+          (save-excursion (reindent!)))))))

 ;;;###autoload
 (define-derived-mode preserves-mode prog-mode "Preserves"