* Remove unused 'helper_save_window_excursion'

	* src/comp.c (helper_unwind_protect): Remove definition and
	declaration.

1 files changed, 1 insertions, 12 deletions

diff --git a/src/comp.c b/src/comp.c
index 521cadcb10c..af61d76d46d 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -591,7 +591,7 @@ typedef struct {
 /*
    Helper functions called by the run-time.
 */
-Lisp_Object helper_save_window_excursion (Lisp_Object v1);
+
 void helper_unwind_protect (Lisp_Object handler);
 Lisp_Object helper_temp_output_buffer_setup (Lisp_Object x);
 Lisp_Object helper_unbind_n (Lisp_Object n);
@@ -4014,17 +4014,6 @@ DEFUN ("comp-libgccjit-version", Fcomp_libgccjit_version,
 /* for laziness. Change this if a performance impact is measured.             */
 /******************************************************************************/
 
-Lisp_Object
-helper_save_window_excursion (Lisp_Object v1)
-{
-  ptrdiff_t count1 = SPECPDL_INDEX ();
-  record_unwind_protect (restore_window_configuration,
-                         Fcurrent_window_configuration (Qnil));
-  v1 = Fprogn (v1);
-  unbind_to (count1, v1);
-  return v1;
-}
-
 void
 helper_unwind_protect (Lisp_Object handler)
 {