aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
authorMattias EngdegÄrd2023-11-10 16:57:15 +0100
committerMattias EngdegÄrd2023-11-10 16:57:15 +0100
commit7f3ee93e0ccb9ffd4fdb23ad13b0fbf4b1353779 (patch)
tree9a6aec44c4eb053ea318e5ea82d8320442bde81f /src/eval.c
parentdfcc9a0f4d63444bac8c3cf6610379c912251d3c (diff)
downloademacs-7f3ee93e0ccb9ffd4fdb23ad13b0fbf4b1353779.tar.gz
emacs-7f3ee93e0ccb9ffd4fdb23ad13b0fbf4b1353779.zip
Use BASE_EQ instead of EQ for some uninterned symbols
* src/editfns.c (labeled_restrictions_pop, Fwiden): * src/eval.c (lexbound_p, Fbacktrace__locals): * src/fileio.c (Finsert_file_contents): * src/fns.c (Fyes_or_no_p): * src/keyboard.c (command_loop_1): Use BASE_EQ for comparing with Qoutermost_restriction, Qinternal_interpreter_environment and Qunbound as uninterned symbols won't be EQ to a symbol-with-pos.
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c
index f5397e9fb72..d66bcdae6ce 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -689,7 +689,7 @@ lexbound_p (Lisp_Object symbol)
689 { 689 {
690 case SPECPDL_LET_DEFAULT: 690 case SPECPDL_LET_DEFAULT:
691 case SPECPDL_LET: 691 case SPECPDL_LET:
692 if (EQ (specpdl_symbol (pdl), Qinternal_interpreter_environment)) 692 if (BASE_EQ (specpdl_symbol (pdl), Qinternal_interpreter_environment))
693 { 693 {
694 Lisp_Object env = specpdl_old_value (pdl); 694 Lisp_Object env = specpdl_old_value (pdl);
695 if (CONSP (env) && !NILP (Fassq (symbol, env))) 695 if (CONSP (env) && !NILP (Fassq (symbol, env)))
@@ -4107,7 +4107,7 @@ NFRAMES and BASE specify the activation frame to use, as in `backtrace-frame'.
4107 { 4107 {
4108 Lisp_Object sym = specpdl_symbol (tmp); 4108 Lisp_Object sym = specpdl_symbol (tmp);
4109 Lisp_Object val = specpdl_old_value (tmp); 4109 Lisp_Object val = specpdl_old_value (tmp);
4110 if (EQ (sym, Qinternal_interpreter_environment)) 4110 if (BASE_EQ (sym, Qinternal_interpreter_environment))
4111 { 4111 {
4112 Lisp_Object env = val; 4112 Lisp_Object env = val;
4113 for (; CONSP (env); env = XCDR (env)) 4113 for (; CONSP (env); env = XCDR (env))