; * lisp/treesit.el (treesit--read-major-mode): Use string-suffix-p.

This commit is contained in:
Yuan Fu 2023-09-27 17:17:48 -07:00
parent 83e0442139
commit e881a172d4
No known key found for this signature in database
GPG key ID: 56E19BC57664A442

View file

@ -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)