aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/editfns.c4
-rw-r--r--src/eval.c4
-rw-r--r--src/fileio.c2
-rw-r--r--src/fns.c2
-rw-r--r--src/keyboard.c2
5 files changed, 7 insertions, 7 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. */
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))
diff --git a/src/fileio.c b/src/fileio.c
index 8919e08e1fd..51937e6d765 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4778,7 +4778,7 @@ by calling `format-decode', which see. */)
4778 make_gap (total - GAP_SIZE + 1); 4778 make_gap (total - GAP_SIZE + 1);
4779 4779
4780 if (beg_offset != 0 || (!NILP (replace) 4780 if (beg_offset != 0 || (!NILP (replace)
4781 && !EQ (replace, Qunbound))) 4781 && !BASE_EQ (replace, Qunbound)))
4782 { 4782 {
4783 if (emacs_fd_lseek (fd, beg_offset, SEEK_SET) < 0) 4783 if (emacs_fd_lseek (fd, beg_offset, SEEK_SET) < 0)
4784 report_file_error ("Setting file position", orig_filename); 4784 report_file_error ("Setting file position", orig_filename);
diff --git a/src/fns.c b/src/fns.c
index a3f89637dfd..84aa86d9eb6 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -3239,7 +3239,7 @@ by a mouse, or by some window-system gesture, or via a menu. */)
3239 && (CONSP (last_nonmenu_event) 3239 && (CONSP (last_nonmenu_event)
3240 || (NILP (last_nonmenu_event) && CONSP (last_input_event)) 3240 || (NILP (last_nonmenu_event) && CONSP (last_input_event))
3241 || (val = find_symbol_value (Qfrom__tty_menu_p), 3241 || (val = find_symbol_value (Qfrom__tty_menu_p),
3242 (!NILP (val) && !EQ (val, Qunbound)))) 3242 (!NILP (val) && !BASE_EQ (val, Qunbound))))
3243 && use_dialog_box) 3243 && use_dialog_box)
3244 { 3244 {
3245 Lisp_Object pane, menu, obj; 3245 Lisp_Object pane, menu, obj;
diff --git a/src/keyboard.c b/src/keyboard.c
index 13cb7835dff..81605e75ba2 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1601,7 +1601,7 @@ command_loop_1 (void)
1601 if ((!NILP (Fwindow_system (Qnil)) 1601 if ((!NILP (Fwindow_system (Qnil))
1602 || ((symval = 1602 || ((symval =
1603 find_symbol_value (Qtty_select_active_regions), 1603 find_symbol_value (Qtty_select_active_regions),
1604 (!EQ (symval, Qunbound) && !NILP (symval))) 1604 (!BASE_EQ (symval, Qunbound) && !NILP (symval)))
1605 && !NILP (Fterminal_parameter (Qnil, 1605 && !NILP (Fterminal_parameter (Qnil,
1606 Qxterm__set_selection)))) 1606 Qxterm__set_selection))))
1607 /* Even if mark_active is non-nil, the actual buffer 1607 /* Even if mark_active is non-nil, the actual buffer