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

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

Browse source 
Signal 'scan-error' when called noninteractively (bug#77744).
This commit is contained in:
Juri Linkov 2025-04-15 20:33:14 +03:00
parent 0ac12aed09
commit aa24b9c849
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/treesit.el
View file

@ -3193,7 +3193,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 ()