[elpa] externals/indent-bars b3297d6739 118/431: indent-at-node: move point (guard at top level with save-excursion)

[ELPA Syncer]

branch: externals/indent-bars
commit b3297d6739b34659ccdefab61a96246cfd8c1059
Author: JD Smith <93749+jdtsmith@users.noreply.github.com>
Commit: JD Smith <93749+jdtsmith@users.noreply.github.com>

    indent-at-node: move point (guard at top level with save-excursion)
    
    To improve efficiency, do not save-excursion for each call.
---
 indent-bars.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/indent-bars.el b/indent-bars.el
index 744e77ee6c..99cc38e96b 100644
--- a/indent-bars.el
+++ b/indent-bars.el
@@ -719,9 +719,10 @@ returned."
 
 (defvar indent-bars--string-content "string_content")
 (defsubst indent-bars--indent-at-node (node)
-  "Return the current indentation at the start of NODE."
-  (save-excursion (goto-char (treesit-node-start node))
-                 (current-indentation)))
+  "Return the current indentation at the start of NODE.
+Moves point."
+  (goto-char (treesit-node-start node))
+  (current-indentation))
 
 (defun indent-bars--current-indentation-depth ()
   "Calculate current indentation depth.
@@ -732,6 +733,8 @@ depth to the parent node's, plus one.  If
 `indent-bars-no-descend-string' is non-nil, look for enclosing
 string and mark indent depth no deeper than one more than the
 starting line's depth."
+enclosing string and mark indent depth no deeper than one more
+than the starting line's depth.  May move point."
   (let* ((d (/ (current-indentation) indent-bars-spacing))
         (p (point)))
     (or
@@ -881,7 +884,7 @@ ROT are as in `indent-bars--stipple', and have similar 
default values."
 (defun indent-bars--highlight-current-depth ()
   "Refresh current indentation depth highlight.
 Works by remapping the appropriate indent-bars-N face."
-  (let ((depth (indent-bars--current-indentation-depth)))
+  (let ((depth (save-excursion (indent-bars--current-indentation-depth))))
     (when (and depth (not (= depth indent-bars--current-depth)))
       (if indent-bars--remap-face      ; out with the old
          (face-remap-remove-relative indent-bars--remap-face))