Mercurial > hg > xemacs-beta
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 |