diff options
author | Po Lu <luangruo@yahoo.com> | 2024-02-09 09:53:33 +0800 |
---|---|---|
committer | Po Lu <luangruo@yahoo.com> | 2024-02-09 09:53:33 +0800 |
commit | 8290a1bacb019f5026caa08334a7087802ebc6f9 (patch) | |
tree | 243c871679c393f41071cf8fb3b9a4b1a45d2bcd /src/lread.c | |
parent | 0b9c7148fd681c8ad63fd0eb3895db44403e9f8c (diff) | |
download | emacs-8290a1bacb019f5026caa08334a7087802ebc6f9.tar.gz |
Replace a few calls to intern with constant strings
* src/fns.c (do_yes_or_no_p, Fyes_or_no_p): Use symbol globals
rather than intern.
(syms_of_fns) <Qyes_or_no_p, Qy_or_n_p>: New symbols.
* src/lread.c (readevalloop): Use symbol global.
(syms_of_lread) <Qinternal_macroexpand_for_load>: New symbol.
Diffstat (limited to 'src/lread.c')
-rw-r--r-- | src/lread.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index b5eeb55bb70..5aa7466cc12 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2443,11 +2443,13 @@ readevalloop (Lisp_Object readcharfun, bool whole_buffer = 0; /* True on the first time around. */ bool first_sexp = 1; - Lisp_Object macroexpand = intern ("internal-macroexpand-for-load"); + Lisp_Object macroexpand; if (!NILP (sourcename)) CHECK_STRING (sourcename); + macroexpand = Qinternal_macroexpand_for_load; + if (NILP (Ffboundp (macroexpand)) || (STRINGP (sourcename) && suffix_p (sourcename, ".elc"))) /* Don't macroexpand before the corresponding function is defined @@ -6016,4 +6018,7 @@ See Info node `(elisp)Shorthands' for more details. */); doc: /* List of variables declared dynamic in the current scope. Only valid during macro-expansion. Internal use only. */); Vmacroexp__dynvars = Qnil; + + DEFSYM (Qinternal_macroexpand_for_load, + "internal-macroexpand-for-load"); } |