Mercurial > hg > xemacs-beta
diff lisp/bytecomp.el @ 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 | 776bbf454f3a |
| children | e29fcfd8df5f |
line wrap: on
line diff
--- a/lisp/bytecomp.el Tue Dec 15 13:45:48 2009 -0700 +++ b/lisp/bytecomp.el Thu Dec 17 12:57:38 2009 +0000 @@ -684,7 +684,7 @@ (byte-defop 138 0 byte-save-excursion "to make a binding to record the buffer, point and mark") -(byte-defop 139 0 byte-save-window-excursion +(byte-defop 139 0 byte-save-window-excursion ; almost obsolete "to make a binding to record entire window configuration") (byte-defop 140 0 byte-save-restriction "to make a binding to record the current buffer clipping restrictions") @@ -4029,7 +4029,6 @@ (byte-defop-compiler-1 save-excursion) (byte-defop-compiler-1 save-current-buffer) (byte-defop-compiler-1 save-restriction) -(byte-defop-compiler-1 save-window-excursion) (byte-defop-compiler-1 with-output-to-temp-buffer) ;; no track-mouse. @@ -4128,11 +4127,6 @@ (byte-compile-body-do-effect (cdr form)) (byte-compile-out 'byte-unbind 1))) -(defun byte-compile-save-window-excursion (form) - (byte-compile-push-constant - (byte-compile-top-level-body (cdr form) for-effect)) - (byte-compile-out 'byte-save-window-excursion 0)) - (defun byte-compile-with-output-to-temp-buffer (form) (byte-compile-form (car (cdr form))) (byte-compile-out 'byte-temp-output-buffer-setup 0)