Avoid intern calls for builtin syms

* src/casefiddle.c (Fdowncase_region):
* src/eval.c (Fdefvaralias):
Use builtin symbol rather than calling intern.

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 3f407eadedebaa8e4f4f3515d4ecab916fd90c50..ee292dda9b36de84d7260f737095e02b17a6ad06 100644 (file)
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -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))

diff --git a/src/eval.c b/src/eval.c
index b890aa6f7f2e6de22c0d1f3b3f9c101d0103c35a..2e5074360d5b9414e6a861dff4a3cefce057f1ac 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -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'"),