aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2023-11-19 11:37:45 +0200
committerEli Zaretskii2023-11-19 11:37:45 +0200
commite32c57ed4d36c5c0302eeb409f96ce9155b545ea (patch)
tree547d20cc4b00fc81a29458df8a1faf20c40c61ef
parent3a3202e4a60baafc2c99c692e7b8426e3f9d2d1b (diff)
downloademacs-e32c57ed4d36c5c0302eeb409f96ce9155b545ea.tar.gz
emacs-e32c57ed4d36c5c0302eeb409f96ce9155b545ea.zip
; Fix make-obsolete warnings in treesit.el
* lisp/treesit.el (treesit-text-type-regexp) (treesit-sentence-type-regexp, treesit--things-around) (treesit-sexp-type-regexp): Fix obsolescence warnings.
-rw-r--r--lisp/treesit.el12
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/treesit.el b/lisp/treesit.el
index 5ee00637ca6..da8226f7d8a 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -2034,7 +2034,8 @@ BACKWARD and ALL are the same as in `treesit-search-forward'."
2034 (goto-char current-pos))) 2034 (goto-char current-pos)))
2035 node)) 2035 node))
2036 2036
2037(make-obsolete 'treesit-sexp-type-regexp "`treesit-sexp-type-regexp' will be removed in a few months, use `treesit-thing-settings' instead." "30.0.5") 2037(make-obsolete 'treesit-sexp-type-regexp
2038 "`treesit-sexp-type-regexp' will be removed soon, use `treesit-thing-settings' instead." "30.1")
2038 2039
2039(defvar-local treesit-sexp-type-regexp nil 2040(defvar-local treesit-sexp-type-regexp nil
2040 "A regexp that matches the node type of sexp nodes. 2041 "A regexp that matches the node type of sexp nodes.
@@ -2304,7 +2305,8 @@ set, Emacs also looks for definition of defun in
2304 (throw 'done nil) 2305 (throw 'done nil)
2305 (setq arg (if (> arg 0) (1+ arg) (1- arg)))))))) 2306 (setq arg (if (> arg 0) (1+ arg) (1- arg))))))))
2306 2307
2307(make-obsolete 'treesit-text-type-regexp "`treesit-text-type-regexp' will be removed in a few months, use `treesit-thing-settings' instead." "30.0.5") 2308(make-obsolete 'treesit-text-type-regexp
2309 "`treesit-text-type-regexp' will be removed soon, use `treesit-thing-settings' instead." "30.1")
2308 2310
2309(defvar-local treesit-text-type-regexp "\\`comment\\'" 2311(defvar-local treesit-text-type-regexp "\\`comment\\'"
2310 "A regexp that matches the node type of textual nodes. 2312 "A regexp that matches the node type of textual nodes.
@@ -2315,7 +2317,8 @@ comments and multiline string literals. For example,
2315\"text_block\" in the case of a string. This is used by 2317\"text_block\" in the case of a string. This is used by
2316`prog-fill-reindent-defun' and friends.") 2318`prog-fill-reindent-defun' and friends.")
2317 2319
2318(make-obsolete 'treesit-sentence-type-regexp "`treesit-sentence-type-regexp' will be removed in a few months, use `treesit-thing-settings' instead." "30.0.5") 2320(make-obsolete 'treesit-sentence-type-regexp
2321 "`treesit-sentence-type-regexp' will be removed soon, use `treesit-thing-settings' instead." "30.1")
2319 2322
2320(defvar-local treesit-sentence-type-regexp nil 2323(defvar-local treesit-sentence-type-regexp nil
2321 "A regexp that matches the node type of sentence nodes. 2324 "A regexp that matches the node type of sentence nodes.
@@ -2359,7 +2362,8 @@ the current line if the beginning of the defun is indented."
2359 (line-beginning-position)) 2362 (line-beginning-position))
2360 (beginning-of-line)))) 2363 (beginning-of-line))))
2361 2364
2362(make-obsolete 'treesit--things-around "`treesit--things-around' will be removed in a few months, use `treesit--thing-prev', `treesit--thing-next', `treesit--thing-at' instead." "30.0.5") 2365(make-obsolete 'treesit--things-around
2366 "`treesit--things-around' will be removed soon, use `treesit--thing-prev', `treesit--thing-next', `treesit--thing-at' instead." "30.1")
2363(defun treesit--things-around (pos thing) 2367(defun treesit--things-around (pos thing)
2364 "Return the previous, next, and parent thing around POS. 2368 "Return the previous, next, and parent thing around POS.
2365 2369