diff options
author | Gregory Heytings <gregory@heytings.org> | 2023-02-09 01:09:10 +0000 |
---|---|---|
committer | Gregory Heytings <gregory@heytings.org> | 2023-02-09 02:44:44 +0100 |
commit | 0d73e4aa261d1d751a7469a6274b2e1b9fa210e6 (patch) | |
tree | f9cc69b4eba4fc2ef5524bbe54774e4a4ddb7342 /src/keyboard.c | |
parent | d8438e2bb44f448d1a0653321a8f262a1b6a3f2b (diff) | |
download | emacs-0d73e4aa261d1d751a7469a6274b2e1b9fa210e6.tar.gz |
Add specific symbols for narrowings
* src/xdisp.c (syms_of_xdisp): Define symbol.
(handle_fontified_prop): Use it.
* src/keyboard.c (syms_of_keyboard): Define symbol.
(safe_run_hooks_maybe_narrowed): Use it.
Diffstat (limited to 'src/keyboard.c')
-rw-r--r-- | src/keyboard.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 6f0f075e54e..243767aff53 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -1915,7 +1915,8 @@ safe_run_hooks_maybe_narrowed (Lisp_Object hook, struct window *w) ptrdiff_t begv = get_locked_narrowing_begv (PT); ptrdiff_t zv = get_locked_narrowing_zv (PT); if (begv != BEG || zv != Z) - narrow_to_region_locked (make_fixnum (begv), make_fixnum (zv), hook); + narrow_to_region_locked (make_fixnum (begv), make_fixnum (zv), + Qlong_line_optimizations_in_command_hooks); } run_hook_with_args (2, ((Lisp_Object []) {hook, hook}), @@ -12168,6 +12169,8 @@ syms_of_keyboard (void) /* Hooks to run before and after each command. */ DEFSYM (Qpre_command_hook, "pre-command-hook"); DEFSYM (Qpost_command_hook, "post-command-hook"); + DEFSYM (Qlong_line_optimizations_in_command_hooks, + "long-line-optimizations-in-command-hooks"); /* Hook run after the region is selected. */ DEFSYM (Qpost_select_region_hook, "post-select-region-hook"); |