mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-20 11:33:09 -08:00
Code Issues Projects Releases Wiki Activity

Avoid usage of intern_c_string in treesit.c

Browse source 
* src/treesit.c (Ftreesit_pattern_expand): Use DEFSYM'd symbols
when the naming makes sense.
(syms_of_treesit): Add new defsyms QCanchor, QCequal, QCmatch.
This commit is contained in:
Po Lu 2022-11-21 13:17:48 +08:00
parent 43f25120c9
commit d452539966
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/treesit.c
View file

@ -2042,7 +2042,7 @@ PATTERN can be
See Info node `(elisp)Pattern Matching' for detailed explanation. */)
(Lisp_Object pattern)
{
if (EQ (pattern, intern_c_string (":anchor")))
if (EQ (pattern, QCanchor))
return build_pure_c_string (".");
if (EQ (pattern, intern_c_string (":?")))
return build_pure_c_string ("?");
@ -2050,9 +2050,9 @@ See Info node `(elisp)Pattern Matching' for detailed explanation. */)
return build_pure_c_string ("*");
if (EQ (pattern, intern_c_string (":+")))
return build_pure_c_string ("+");
if (EQ (pattern, intern_c_string (":equal")))
if (EQ (pattern, QCequal))
return build_pure_c_string ("#equal");
if (EQ (pattern, intern_c_string (":match")))
if (EQ (pattern, QCmatch))
return build_pure_c_string ("#match");
Lisp_Object opening_delimeter
= build_pure_c_string (VECTORP (pattern) ? "[" : "(");
@ -2060,7 +2060,7 @@ See Info node `(elisp)Pattern Matching' for detailed explanation. */)
= build_pure_c_string (VECTORP (pattern) ? "]" : ")");
if (VECTORP (pattern) || CONSP (pattern))
return concat3 (opening_delimeter,
Fmapconcat (intern_c_string ("treesit-pattern-expand"),
Fmapconcat (Qtreesit_pattern_expand,
pattern,
build_pure_c_string (" ")),
closing_delimiter);
@ -2938,6 +2938,10 @@ syms_of_treesit (void)
DEFSYM (Qoutdated, "outdated");
DEFSYM (Qhas_error, "has-error");
DEFSYM (QCanchor, ":anchor");
DEFSYM (QCequal, ":equal");
DEFSYM (QCmatch, ":match");
DEFSYM (Qnot_found, "not-found");
DEFSYM (Qsymbol_error, "symbol-error");
DEFSYM (Qversion_mismatch, "version-mismatch");