Add tree-sitter indent preset "point-min"

* doc/lispref/modes.texi (Parser-based Indentation): Update manual.
* lisp/treesit.el (treesit-simple-indent-presets): Add preset.  Update
docstring.

diff --git a/doc/lispref/modes.texi b/doc/lispref/modes.texi
index 50dbec35e478c2007fb8ae9512bb010b2207dbea..8a0b5a12a106f28152a3f9e95314764bc0a73c64 100644 (file)
--- a/doc/lispref/modes.texi
+++ b/doc/lispref/modes.texi
@@ -4937,6 +4937,11 @@ This anchor is a function that is called with 3 arguments: @var{node},
 This anchor is a function that is called with 3 arguments: @var{node},
 @var{parent}, and @var{bol}, and returns the first non-whitespace
 charater on the previous line.
+
+@item point-min
+This anchor is a function is called with 3 arguments: @var{node},
+@var{parent}, and @var{bol}, and returns the beginning of the buffer.
+This is useful as the beginning of the buffer is always at column 0.
 @end ftable
 
 @end defvar

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 83f9dd1b7f15494785dd8ddc075e2ecadd4f7a21..9f4814b60337d61553e7398dcf57612861303c26 100644 (file)
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -998,6 +998,7 @@ See `treesit-simple-indent-presets'.")
                              (goto-char bol)
                              (forward-line -1)
                              (skip-chars-forward " \t"))))
+        (cons 'point-min (lambda (&rest _) (point-min)))
         ;; TODO: Document.
         (cons 'and (lambda (&rest fns)
                      (lambda (node parent bol &rest _)
@@ -1082,7 +1083,11 @@ no-indent
 
 prev-line
 
-    The first non-whitespace charater on the previous line.")
+    The first non-whitespace charater on the previous line.
+
+point-min
+
+    Returns the beginning of buffer, which is always at column 0.")
 
 (defun treesit--simple-indent-eval (exp)
   "Evaluate EXP.