diff options
| author | Eli Zaretskii | 2023-11-19 11:37:45 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2023-11-19 11:37:45 +0200 |
| commit | e32c57ed4d36c5c0302eeb409f96ce9155b545ea (patch) | |
| tree | 547d20cc4b00fc81a29458df8a1faf20c40c61ef | |
| parent | 3a3202e4a60baafc2c99c692e7b8426e3f9d2d1b (diff) | |
| download | emacs-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.el | 12 |
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 | ||