From: Juri Linkov <juri@linkov.net>
Date: Tue, 15 Apr 2025 17:33:14 +0000 (+0300)
Subject: * lisp/treesit.el (treesit-up-list): Signal an error.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a5bdee46f3593957e0e32cfaf32ed1a42793e62e;p=emacs.git

* lisp/treesit.el (treesit-up-list): Signal an error.

Signal 'scan-error' when called noninteractively (bug#77744).

(cherry picked from commit aa24b9c849d13aa63de3079672003fb760bf511f)
---

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 1b011d173b5..04faa03cdee 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -3185,7 +3185,12 @@ ARG is described in the docstring of `up-list'."
               (goto-char (if (> arg 0)
                              (treesit-node-end parent)
                            (treesit-node-start parent))))
-            (user-error "At top level")))
+            (if no-syntax-crossing
+                ;; Assume called interactively; don't signal an error.
+                (user-error "At top level")
+              (signal 'scan-error
+                      (list (format-message "No more %S to move across" pred)
+                            (point) (point))))))
       (setq cnt (- cnt inc)))))
 
 (defun treesit-cycle-sexp-type ()