From dd939d7484adad7735e66b1759283d00df708e70 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Tue, 9 Jun 2020 22:41:19 +0200 Subject: [PATCH] * Remove unused 'helper_save_window_excursion' * src/comp.c (helper_unwind_protect): Remove definition and declaration. --- src/comp.c | 13 +------------ 1 file changed, 1 insertion(+), 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) { -- 2.39.5