diff options
| author | Gregory Heytings | 2024-01-11 23:38:22 +0000 |
|---|---|---|
| committer | Gregory Heytings | 2024-01-14 21:59:21 +0000 |
| commit | 5bb5590dec95e813ed120b3f09734451b4ebb18f (patch) | |
| tree | e265fd29f4d73034d927213b4b9dd1a2be65f85e /src | |
| parent | 78ddb32fadb61b3e78047400e257d57b2cff7cd8 (diff) | |
| download | emacs-5bb5590dec95e813ed120b3f09734451b4ebb18f.tar.gz emacs-5bb5590dec95e813ed120b3f09734451b4ebb18f.zip | |
Fix blunder in labeled_narrow_to_region
* src/editfns.c (labeled_narrow_to_region): Record point before,
instead of after, calling narrow-to-region; otherwise point may
already have been changed. Fixes bug#66764.
Diffstat (limited to 'src')
| -rw-r--r-- | src/editfns.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/editfns.c b/src/editfns.c index 063dfc6d131..6ddee0840c2 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -2870,9 +2870,9 @@ void | |||
| 2870 | labeled_narrow_to_region (Lisp_Object begv, Lisp_Object zv, | 2870 | labeled_narrow_to_region (Lisp_Object begv, Lisp_Object zv, |
| 2871 | Lisp_Object label) | 2871 | Lisp_Object label) |
| 2872 | { | 2872 | { |
| 2873 | Finternal__labeled_narrow_to_region (begv, zv, label); | ||
| 2874 | record_unwind_protect (restore_point_unwind, Fpoint_marker ()); | 2873 | record_unwind_protect (restore_point_unwind, Fpoint_marker ()); |
| 2875 | record_unwind_protect (unwind_labeled_narrow_to_region, label); | 2874 | record_unwind_protect (unwind_labeled_narrow_to_region, label); |
| 2875 | Finternal__labeled_narrow_to_region (begv, zv, label); | ||
| 2876 | } | 2876 | } |
| 2877 | 2877 | ||
| 2878 | DEFUN ("widen", Fwiden, Swiden, 0, 0, "", | 2878 | DEFUN ("widen", Fwiden, Swiden, 0, 0, "", |