From e32c57ed4d36c5c0302eeb409f96ce9155b545ea Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 19 Nov 2023 11:37:45 +0200 Subject: [PATCH] ; 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. --- lisp/treesit.el | 12 ++++++++---- 1 file 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'." (goto-char current-pos))) node)) -(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") +(make-obsolete 'treesit-sexp-type-regexp + "`treesit-sexp-type-regexp' will be removed soon, use `treesit-thing-settings' instead." "30.1") (defvar-local treesit-sexp-type-regexp nil "A regexp that matches the node type of sexp nodes. @@ -2304,7 +2305,8 @@ set, Emacs also looks for definition of defun in (throw 'done nil) (setq arg (if (> arg 0) (1+ arg) (1- arg)))))))) -(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") +(make-obsolete 'treesit-text-type-regexp + "`treesit-text-type-regexp' will be removed soon, use `treesit-thing-settings' instead." "30.1") (defvar-local treesit-text-type-regexp "\\`comment\\'" "A regexp that matches the node type of textual nodes. @@ -2315,7 +2317,8 @@ comments and multiline string literals. For example, \"text_block\" in the case of a string. This is used by `prog-fill-reindent-defun' and friends.") -(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") +(make-obsolete 'treesit-sentence-type-regexp + "`treesit-sentence-type-regexp' will be removed soon, use `treesit-thing-settings' instead." "30.1") (defvar-local treesit-sentence-type-regexp nil "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." (line-beginning-position)) (beginning-of-line)))) -(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") +(make-obsolete 'treesit--things-around + "`treesit--things-around' will be removed soon, use `treesit--thing-prev', `treesit--thing-next', `treesit--thing-at' instead." "30.1") (defun treesit--things-around (pos thing) "Return the previous, next, and parent thing around POS. -- 2.39.5