diff options
| author | Paul Eggert | 2019-07-31 10:40:44 -0700 |
|---|---|---|
| committer | Paul Eggert | 2019-07-31 10:41:21 -0700 |
| commit | 82f13f83760b047a72a199ea262265b3f4d2ec04 (patch) | |
| tree | d930e6fcceb41f2103054e82b4f0e420cc5927d4 /src | |
| parent | 3018f6d832907e0321e90ba27397200e56fe5957 (diff) | |
| download | emacs-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.c | 2 | ||||
| -rw-r--r-- | src/eval.c | 2 |
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'"), |