diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/editfns.c | 4 | ||||
| -rw-r--r-- | src/eval.c | 4 | ||||
| -rw-r--r-- | src/fileio.c | 2 | ||||
| -rw-r--r-- | src/fns.c | 2 | ||||
| -rw-r--r-- | src/keyboard.c | 2 |
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); |
| @@ -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 |