Avoid intern calls for builtin syms

* src/casefiddle.c (Fdowncase_region):
* src/eval.c (Fdefvaralias):
Use builtin symbol rather than calling intern.
This commit is contained in:
Paul Eggert 2019-07-31 10:40:44 -07:00
parent 3018f6d832
commit 82f13f8376
2 changed files with 2 additions and 2 deletions

View file

@ -529,7 +529,7 @@ See also `capitalize-region'. */)
if (!NILP (region_noncontiguous_p))
{
bounds = call1 (Fsymbol_value (intern ("region-extract-function")),
bounds = call1 (Fsymbol_value (Qregion_extract_function),
intern ("bounds"));
while (CONSP (bounds))

View file

@ -625,7 +625,7 @@ The return value is BASE-VARIABLE. */)
&& !EQ (find_symbol_value (new_alias),
find_symbol_value (base_variable)))
call2 (intern ("display-warning"),
list3 (intern ("defvaralias"), intern ("losing-value"), new_alias),
list3 (Qdefvaralias, intern ("losing-value"), new_alias),
CALLN (Fformat_message,
build_string
("Overwriting value of `%s' by aliasing to `%s'"),