aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorPaul Eggert2019-07-31 10:40:44 -0700
committerPaul Eggert2019-07-31 10:41:21 -0700
commit82f13f83760b047a72a199ea262265b3f4d2ec04 (patch)
treed930e6fcceb41f2103054e82b4f0e420cc5927d4 /src
parent3018f6d832907e0321e90ba27397200e56fe5957 (diff)
downloademacs-82f13f83760b047a72a199ea262265b3f4d2ec04.tar.gz
emacs-82f13f83760b047a72a199ea262265b3f4d2ec04.zip
Avoid intern calls for builtin syms
* src/casefiddle.c (Fdowncase_region): * src/eval.c (Fdefvaralias): Use builtin symbol rather than calling intern.
Diffstat (limited to 'src')
-rw-r--r--src/casefiddle.c2
-rw-r--r--src/eval.c2
2 files changed, 2 insertions, 2 deletions
diff --git a/src/casefiddle.c b/src/casefiddle.c
index 3f407eadede..ee292dda9b3 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -529,7 +529,7 @@ See also `capitalize-region'. */)
529 529
530 if (!NILP (region_noncontiguous_p)) 530 if (!NILP (region_noncontiguous_p))
531 { 531 {
532 bounds = call1 (Fsymbol_value (intern ("region-extract-function")), 532 bounds = call1 (Fsymbol_value (Qregion_extract_function),
533 intern ("bounds")); 533 intern ("bounds"));
534 534
535 while (CONSP (bounds)) 535 while (CONSP (bounds))
diff --git a/src/eval.c b/src/eval.c
index b890aa6f7f2..2e5074360d5 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -625,7 +625,7 @@ The return value is BASE-VARIABLE. */)
625 && !EQ (find_symbol_value (new_alias), 625 && !EQ (find_symbol_value (new_alias),
626 find_symbol_value (base_variable))) 626 find_symbol_value (base_variable)))
627 call2 (intern ("display-warning"), 627 call2 (intern ("display-warning"),
628 list3 (intern ("defvaralias"), intern ("losing-value"), new_alias), 628 list3 (Qdefvaralias, intern ("losing-value"), new_alias),
629 CALLN (Fformat_message, 629 CALLN (Fformat_message,
630 build_string 630 build_string
631 ("Overwriting value of `%s' by aliasing to `%s'"), 631 ("Overwriting value of `%s' by aliasing to `%s'"),