diff options
| author | Mattias EngdegÄrd | 2023-11-10 16:57:15 +0100 |
|---|---|---|
| committer | Mattias EngdegÄrd | 2023-11-10 16:57:15 +0100 |
| commit | 7f3ee93e0ccb9ffd4fdb23ad13b0fbf4b1353779 (patch) | |
| tree | 9a6aec44c4eb053ea318e5ea82d8320442bde81f /src/editfns.c | |
| parent | dfcc9a0f4d63444bac8c3cf6610379c912251d3c (diff) | |
| download | emacs-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.c | 4 |
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. */ |