diff options
| author | Gregory Heytings <gregory@heytings.org> | 2023-03-28 23:06:55 +0000 |
|---|---|---|
| committer | Gregory Heytings <gregory@heytings.org> | 2023-03-29 01:12:36 +0200 |
| commit | 7e26a5c774e7c71782d89abe1d4be125d8422a4b (patch) | |
| tree | 7e9ab1f0c27dc2945ff89cd595a30450925e0227 /src/editfns.c | |
| parent | 85ed1c9ca6b786763740766d77b1f806c2f301a1 (diff) | |
| download | emacs-7e26a5c774e7c71782d89abe1d4be125d8422a4b.tar.gz | |
Remove labeled restrictions before calling Fwiden
* src/editfns.c (labeled_restrictions_remove_in_current_buffer):
New function.
* src/lisp.h: Make it externally visible.
* src/xdisp.c (display_count_lines_logically):
* src/lread.c (readevalloop):
* src/indent.c (line_number_display_width):
* src/fileio.c (write_region):
* src/callproc.c (Fcall_process_region):
* src/buffer.c (Ferase_buffer): Use it.
Diffstat (limited to 'src/editfns.c')
| -rw-r--r-- | src/editfns.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/editfns.c b/src/editfns.c index ff711ee2a09..4c5b691eb50 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -2756,6 +2756,13 @@ labeled_restrictions_pop (Lisp_Object buf) XSETCDR (restrictions, list1 (XCDR (XCAR (XCDR (restrictions))))); } +/* Unconditionally remove all labeled restrictions in current_buffer. */ +void +labeled_restrictions_remove_in_current_buffer (void) +{ + labeled_restrictions_remove (Fcurrent_buffer ()); +} + static void unwind_reset_outermost_restriction (Lisp_Object buf) { |