aboutsummaryrefslogtreecommitdiffstats
path: root/src/editfns.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/editfns.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/editfns.c')
-rw-r--r--src/editfns.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/editfns.c b/src/editfns.c
index 02fca3f5714..1ea7931a3a7 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2780,7 +2780,7 @@ labeled_restrictions_pop (Lisp_Object buf)
2780 Lisp_Object restrictions = assq_no_quit (buf, labeled_restrictions); 2780 Lisp_Object restrictions = assq_no_quit (buf, labeled_restrictions);
2781 if (NILP (restrictions)) 2781 if (NILP (restrictions))
2782 return; 2782 return;
2783 if (EQ (labeled_restrictions_peek_label (buf), Qoutermost_restriction)) 2783 if (BASE_EQ (labeled_restrictions_peek_label (buf), Qoutermost_restriction))
2784 labeled_restrictions_remove (buf); 2784 labeled_restrictions_remove (buf);
2785 else 2785 else
2786 XSETCDR (restrictions, list1 (XCDR (XCAR (XCDR (restrictions))))); 2786 XSETCDR (restrictions, list1 (XCDR (XCAR (XCDR (restrictions)))));
@@ -2920,7 +2920,7 @@ To gain access to other portions of the buffer, use
2920 current_buffer are the bounds that were set by the user, no 2920 current_buffer are the bounds that were set by the user, no
2921 labeled restriction is in effect in current_buffer anymore: 2921 labeled restriction is in effect in current_buffer anymore:
2922 remove it from the labeled_restrictions alist. */ 2922 remove it from the labeled_restrictions alist. */
2923 if (EQ (label, Qoutermost_restriction)) 2923 if (BASE_EQ (label, Qoutermost_restriction))
2924 labeled_restrictions_pop (buf); 2924 labeled_restrictions_pop (buf);
2925 } 2925 }
2926 /* Changing the buffer bounds invalidates any recorded current column. */ 2926 /* Changing the buffer bounds invalidates any recorded current column. */