Fix the bytecode incompatibility due to the change to 'narrow-to-region'.

* src/editfns.c (narrow_to_region_internal): New function, which
contains the body previously in 'Fnarrow_to_region' but accepts
a third argument.
(Fnarrow_to_region): Use the new function. Update the docstring.
(Fwiden): Update the docstring.

* src/lisp.h: Prototype of the new function.

* src/xdisp.c (handle_fontified_prop): Use the new function instead
of 'Fnarrow_to_region'.

* src/process.c (Finternal_default_process_filter):
* src/lread.c (readevalloop): Remove the third argument to
'Fnarrow_to_region'.

* src/bytecode.c (exec_byte_code):
* lisp/emacs-lisp/comp.el (comp-limplify-lap-inst):
* lisp/emacs-lisp/bytecomp.el: Restore the statu quo ante.

* etc/NEWS: Remove the entry about the new optional argument.

* doc/lispref/positions.texi (Narrowing): Update the documentation.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/lread.c b/src/lread.c
index 0720774db2b..0b46a2e4ee5 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2261,7 +2261,7 @@ readevalloop (Lisp_Object readcharfun,
           /* Set point and ZV around stuff to be read.  */
           Fgoto_char (start);
           if (!NILP (end))
-            Fnarrow_to_region (make_fixnum (BEGV), end, Qnil);
+            Fnarrow_to_region (make_fixnum (BEGV), end);
 
           /* Just for cleanliness, convert END to a marker
              if it is an integer.  */