[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e881a172d48: ; * lisp/treesit.el (treesit--read-major-mode): Use
From: |
Yuan Fu |
Subject: |
master e881a172d48: ; * lisp/treesit.el (treesit--read-major-mode): Use string-suffix-p. |
Date: |
Thu, 28 Sep 2023 00:53:20 -0400 (EDT) |
branch: master
commit e881a172d483551ab546a4586beaa3d54ee0e148
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>
; * lisp/treesit.el (treesit--read-major-mode): Use string-suffix-p.
---
lisp/treesit.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/treesit.el b/lisp/treesit.el
index 0790ad7e011..fd8c8482fc8 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -1880,10 +1880,10 @@ Helper function to use in the `interactive' spec of
`treesit-check-indent'."
(format-prompt "Target major mode" default)
obarray
(lambda (sym)
- (and (string-match-p "-mode\\'" (symbol-name sym))
+ (and (string-suffix-p "-mode" (symbol-name sym))
(not (or (memq sym minor-mode-list)
- (string-match-p "-minor-mode\\'"
- (symbol-name sym))))))
+ (string-suffix-p "-minor-mode"
+ (symbol-name sym))))))
nil nil nil default nil)))
(cond
((equal mode "nil") nil)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e881a172d48: ; * lisp/treesit.el (treesit--read-major-mode): Use string-suffix-p.,
Yuan Fu <=