diff options
| author | Mattias EngdegÄrd | 2022-06-12 12:05:03 +0200 |
|---|---|---|
| committer | Mattias EngdegÄrd | 2022-06-12 12:42:35 +0200 |
| commit | bab1d412801eead715f1465131aa3734558f35ab (patch) | |
| tree | 7d91b615721dcff56df153b22c6349a8b337223a /src/bytecode.c | |
| parent | 980009e84c817b9a5357dfe4d735cb5c10b974bb (diff) | |
| download | emacs-bab1d412801eead715f1465131aa3734558f35ab.tar.gz emacs-bab1d412801eead715f1465131aa3734558f35ab.zip | |
Use BASE_EQ when comparing with Qunbound
Qunbound is uninterned and can therefore never be EQ to any symbol
with position.
* src/buffer.c (Fbuffer_local_value, buffer_lisp_local_variables)
(buffer_local_variables_1):
* src/bytecode.c (exec_byte_code):
* src/comp.c (compile_function, Fcomp__compile_ctxt_to_file):
* src/composite.c (composition_gstring_cache_clear_font):
* src/data.c (Fboundp, Fsymbol_value, set_internal)
(Fdefault_boundp, Fdefault_value, Fmake_variable_buffer_local):
* src/emacs-module.c (module_global_reference_p):
* src/eval.c (Fdefault_toplevel_value, defvar)
(run_hook_with_args):
* src/fns.c (hash_put, Fmaphash):
* src/font.c (font_put_extra):
* src/frame.c (gui_set_frame_parameters)
(gui_frame_get_and_record_arg, gui_default_parameter)
(gui_figure_window_size):
* src/haikufns.c (get_geometry_from_preferences)
(haiku_create_frame, haiku_create_tip_frame):
* src/haikuterm.c (haiku_draw_text_decoration)
(haiku_default_font_parameter):
* src/json.c (lisp_to_json_nonscalar_1):
* src/keymap.c (access_keymap_1, access_keymap, current_minor_maps):
* src/lread.c (readevalloop, define_symbol):
* src/minibuf.c (read_minibuf, Ftry_completion):
(Fall_completions, Ftest_completion):
* src/pgtkfns.c (pgtk_default_font_parameter, Fx_create_frame)
(x_create_tip_frame):
* src/pgtkselect.c (Fpgtk_own_selection_internal):
* src/print.c (print):
* src/profiler.c (evict_lower_half, record_backtrace):
* src/terminal.c (create_terminal):
* src/textprop.c (set_properties):
* src/w32fns.c (my_create_window, w32_icon)
(w32_default_font_parameter, Fx_create_frame)
(w32_create_tip_frame):
* src/w32term.c (w32_draw_glyph_string):
* src/xdisp.c (handle_single_display_spec)
(cursor_row_fully_visible_p, calc_pixel_width_or_height):
* src/xfns.c (x_default_scroll_bar_color_parameter, x_icon_verify)
(x_icon, x_default_font_parameter, Fx_create_frame)
(x_create_tip_frame):
* src/xselect.c (x_handle_selection_request):
* src/xterm.c (x_draw_glyph_string, x_term_init):
Use BASE_EQ instead of EQ when comparing with Qunbound.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index a0bcbb48481..fa068e1ec6b 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -627,7 +627,7 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template, | |||
| 627 | Lisp_Object v1 = vectorp[op], v2; | 627 | Lisp_Object v1 = vectorp[op], v2; |
| 628 | if (!SYMBOLP (v1) | 628 | if (!SYMBOLP (v1) |
| 629 | || XSYMBOL (v1)->u.s.redirect != SYMBOL_PLAINVAL | 629 | || XSYMBOL (v1)->u.s.redirect != SYMBOL_PLAINVAL |
| 630 | || (v2 = SYMBOL_VAL (XSYMBOL (v1)), EQ (v2, Qunbound))) | 630 | || (v2 = SYMBOL_VAL (XSYMBOL (v1)), BASE_EQ (v2, Qunbound))) |
| 631 | v2 = Fsymbol_value (v1); | 631 | v2 = Fsymbol_value (v1); |
| 632 | PUSH (v2); | 632 | PUSH (v2); |
| 633 | NEXT; | 633 | NEXT; |
| @@ -694,7 +694,7 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template, | |||
| 694 | 694 | ||
| 695 | /* Inline the most common case. */ | 695 | /* Inline the most common case. */ |
| 696 | if (SYMBOLP (sym) | 696 | if (SYMBOLP (sym) |
| 697 | && !EQ (val, Qunbound) | 697 | && !BASE_EQ (val, Qunbound) |
| 698 | && XSYMBOL (sym)->u.s.redirect == SYMBOL_PLAINVAL | 698 | && XSYMBOL (sym)->u.s.redirect == SYMBOL_PLAINVAL |
| 699 | && !SYMBOL_TRAPPED_WRITE_P (sym)) | 699 | && !SYMBOL_TRAPPED_WRITE_P (sym)) |
| 700 | SET_SYMBOL_VAL (XSYMBOL (sym), val); | 700 | SET_SYMBOL_VAL (XSYMBOL (sym), val); |