From 6db903bd37cd0a44f2edd37ccdd914392a20e091 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Thu, 25 Apr 2019 20:07:31 +0100
Subject: [PATCH] save-excursion during actual reindentation unless bolp

---
 preserves.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/preserves.el b/preserves.el
index ca97bda..462f3d0 100644
--- 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"