procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Keep cursor position in treesit-indent

Browse source 
* lisp/treesit.el (treesit-indent): Create a marker and jump back to
that marker after indentation.
This commit is contained in:
Yuan Fu 2022-10-29 11:50:15 -07:00
parent 8607f018fd
commit a915d836fc
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/treesit.el
View file

@ -974,12 +974,18 @@ Return (ANCHOR . OFFSET). This function is used by
"Indent according to the result of `treesit-indent-function'."
(treesit-update-ranges)
(pcase-let* ((`(,anchor . ,offset) (treesit--indent-1)))
(when (and anchor offset)
(let ((col (+ (save-excursion
(goto-char anchor)
(current-column))
offset)))
(indent-line-to col)))))
(if (and anchor offset)
(let ((col (+ (save-excursion
(goto-char anchor)
(current-column))
offset))
(delta (- (point-max) (point))))
(indent-line-to col)
;; Now point is at the end of indentation. If we started
;; from within the line, go back to where we started.
(when (> (- (point-max) delta) (point))
(goto-char (- (point-max) delta))))
'noindent)))
(defvar treesit--indent-region-batch-size 400
"How many lines of indent value do we precompute.