comparison src/bytecode.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 fcc7e89d5e68
children 6772ce4d982b 19a72041c5ed e0db3c197671
comparison
equal deleted inserted replaced
4774:26a007fa2f4c 4775:1d61580e0cf7
1453 case Bsave_excursion: 1453 case Bsave_excursion:
1454 record_unwind_protect (save_excursion_restore, 1454 record_unwind_protect (save_excursion_restore,
1455 save_excursion_save ()); 1455 save_excursion_save ());
1456 break; 1456 break;
1457 1457
1458 /* This bytecode will eventually go away, once we no longer encounter
1459 byte code from 21.4. In 21.5.10 and newer, save-window-excursion is
1460 a macro. */
1458 case Bsave_window_excursion: 1461 case Bsave_window_excursion:
1459 { 1462 {
1460 int count = specpdl_depth (); 1463 int count = specpdl_depth ();
1461 record_unwind_protect (save_window_excursion_unwind, 1464 record_unwind_protect (Feval,
1462 call1 (Qcurrent_window_configuration, Qnil)); 1465 list2 (Qset_window_configuration,
1466 call0 (Qcurrent_window_configuration)));
1463 TOP_LVALUE = Fprogn (TOP); 1467 TOP_LVALUE = Fprogn (TOP);
1464 unbind_to (count); 1468 unbind_to (count);
1465 break; 1469 break;
1466 } 1470 }
1467 1471