Mercurial > hg > xemacs-beta
diff src/window.c @ 4775:1d61580e0cf7
Remove Fsave_window_excursion from window.c, it's overridden by Lisp.
lisp/ChangeLog addition:
2009-11-08 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (save-window-excursion):
Remove the compiler form for this bytecode, we no longer generate
calls to it. Keep the information about the bytecode's numeric
value, we want that for disassembling code.
src/ChangeLog addition:
2009-11-08 Aidan Kehoe <kehoea@parhasard.net>
* window.c (Fsave_window_excursion, save_window_excursion_unwind):
Remove these functions, the first was masked by
#'save-window-excursion in window.el, and the second can be easily
replaced with Lisp primitives.
* bytecode.c (Bsave_window_excursion) : Don't pass
save_window_excursion_unwind to record_unwind_protect, now the
former is gone.
* event-stream.c (execute_help_form):
Ditto.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 17 Dec 2009 12:57:38 +0000 |
| parents | 80cd90837ac5 |
| children | a98ca4640147 e0db3c197671 |
line wrap: on
line diff
--- a/src/window.c Tue Dec 15 13:45:48 2009 -0700 +++ b/src/window.c Thu Dec 17 12:57:38 2009 +0000 @@ -5267,30 +5267,6 @@ mark_window_as_deleted (w); } -Lisp_Object -save_window_excursion_unwind (Lisp_Object window_config) -{ - Lisp_Object val = call1 (Qset_window_configuration, window_config); - return val; -} - -DEFUN ("save-window-excursion", Fsave_window_excursion, 0, UNEVALLED, 0, /* -Execute BODY, preserving window sizes and contents. -Restores which buffer appears in which window, where display starts, -as well as the current buffer. -Does not restore the value of point in current buffer. - -arguments: (&rest BODY) -*/ - (args)) -{ - /* This function can GC */ - int speccount = specpdl_depth (); - - record_unwind_protect (save_window_excursion_unwind, - call1 (Qcurrent_window_configuration, Qnil)); - return unbind_to_1 (speccount, Fprogn (args)); -} static int get_current_pixel_pos (Lisp_Object window, Lisp_Object pos, @@ -5558,7 +5534,6 @@ #ifdef MEMORY_USAGE_STATS DEFSUBR (Fwindow_memory_usage); #endif - DEFSUBR (Fsave_window_excursion); DEFSUBR (Fcurrent_pixel_column); DEFSUBR (Fcurrent_pixel_row); }