diff options
| author | Eli Zaretskii | 2024-01-06 08:20:19 -0500 |
|---|---|---|
| committer | Eli Zaretskii | 2024-01-06 08:20:19 -0500 |
| commit | 5256b8dd4ebf163aa67ed50eb72168d965583caf (patch) | |
| tree | 62b0ff27c17137065a108144ba967380ee4cca20 /src/comp.c | |
| parent | d9dabcacefad084cccaa32e4f5fffcb78728fa00 (diff) | |
| parent | bf7034048c16a95263e3f7c121dafbf1824ff28f (diff) | |
| download | emacs-5256b8dd4ebf163aa67ed50eb72168d965583caf.tar.gz emacs-5256b8dd4ebf163aa67ed50eb72168d965583caf.zip | |
Merge from origin/emacs-29
bf7034048c1 ; * doc/emacs/custom.texi (Changing a Variable): Update e...
466d1c98a9e Fix icons.el when icon does not exist as a file
2a861124e89 ; Improve documentation of 'buffer-match-p'
dc9d02f8a01 * lisp/isearch.el (isearch-search-and-update): Let-bind '...
9308d9a74ab * src/comp.c (Fcomp__compile_ctxt_to_file): Fix hash tabl...
a2a6619b282 Provide decent documentation for 'help-quick'
ab66b749a27 ; * src/window.c (Fset_window_margins): Doc fix.
1a677d1429d treesit--pre-syntax-ppss: Fix args-out-of-range in intern...
Diffstat (limited to 'src/comp.c')
| -rw-r--r-- | src/comp.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/comp.c b/src/comp.c index 6cb35a8619a..347f8924793 100644 --- a/src/comp.c +++ b/src/comp.c | |||
| @@ -4966,12 +4966,12 @@ DEFUN ("comp--compile-ctxt-to-file", Fcomp__compile_ctxt_to_file, | |||
| 4966 | struct Lisp_Hash_Table *func_h = | 4966 | struct Lisp_Hash_Table *func_h = |
| 4967 | XHASH_TABLE (CALL1I (comp-ctxt-funcs-h, Vcomp_ctxt)); | 4967 | XHASH_TABLE (CALL1I (comp-ctxt-funcs-h, Vcomp_ctxt)); |
| 4968 | for (ptrdiff_t i = 0; i < HASH_TABLE_SIZE (func_h); i++) | 4968 | for (ptrdiff_t i = 0; i < HASH_TABLE_SIZE (func_h); i++) |
| 4969 | if (!BASE_EQ (HASH_VALUE (func_h, i), Qunbound)) | 4969 | if (!BASE_EQ (HASH_KEY (func_h, i), Qunbound)) |
| 4970 | declare_function (HASH_VALUE (func_h, i)); | 4970 | declare_function (HASH_VALUE (func_h, i)); |
| 4971 | /* Compile all functions. Can't be done before because the | 4971 | /* Compile all functions. Can't be done before because the |
| 4972 | relocation structs has to be already defined. */ | 4972 | relocation structs has to be already defined. */ |
| 4973 | for (ptrdiff_t i = 0; i < HASH_TABLE_SIZE (func_h); i++) | 4973 | for (ptrdiff_t i = 0; i < HASH_TABLE_SIZE (func_h); i++) |
| 4974 | if (!BASE_EQ (HASH_VALUE (func_h, i), Qunbound)) | 4974 | if (!BASE_EQ (HASH_KEY (func_h, i), Qunbound)) |
| 4975 | compile_function (HASH_VALUE (func_h, i)); | 4975 | compile_function (HASH_VALUE (func_h, i)); |
| 4976 | 4976 | ||
| 4977 | /* Work around bug#46495 (GCC PR99126). */ | 4977 | /* Work around bug#46495 (GCC PR99126). */ |