Mercurial > hg > xemacs-beta

comparison lisp/bytecomp.el @ 4775:1d61580e0cf7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
4774:26a007fa2f4c 4775:1d61580e0cf7
682 (byte-defop 136 -1 byte-discard "to discard one value from stack") 682 (byte-defop 136 -1 byte-discard "to discard one value from stack")
683 (byte-defop 137 1 byte-dup "to duplicate the top of the stack") 683 (byte-defop 137 1 byte-dup "to duplicate the top of the stack")
684 684
685 (byte-defop 138 0 byte-save-excursion 685 (byte-defop 138 0 byte-save-excursion
686 "to make a binding to record the buffer, point and mark") 686 "to make a binding to record the buffer, point and mark")
687 (byte-defop 139 0 byte-save-window-excursion 687 (byte-defop 139 0 byte-save-window-excursion ; almost obsolete
688 "to make a binding to record entire window configuration") 688 "to make a binding to record entire window configuration")
689 (byte-defop 140 0 byte-save-restriction 689 (byte-defop 140 0 byte-save-restriction
690 "to make a binding to record the current buffer clipping restrictions") 690 "to make a binding to record the current buffer clipping restrictions")
691 (byte-defop 141 -1 byte-catch 691 (byte-defop 141 -1 byte-catch
692 "for catch. Takes, on stack, the tag and an expression for the body") 692 "for catch. Takes, on stack, the tag and an expression for the body")
4027 (byte-defop-compiler-1 unwind-protect) 4027 (byte-defop-compiler-1 unwind-protect)
4028 (byte-defop-compiler-1 condition-case) 4028 (byte-defop-compiler-1 condition-case)
4029 (byte-defop-compiler-1 save-excursion) 4029 (byte-defop-compiler-1 save-excursion)
4030 (byte-defop-compiler-1 save-current-buffer) 4030 (byte-defop-compiler-1 save-current-buffer)
4031 (byte-defop-compiler-1 save-restriction) 4031 (byte-defop-compiler-1 save-restriction)
4032 (byte-defop-compiler-1 save-window-excursion)
4033 (byte-defop-compiler-1 with-output-to-temp-buffer) 4032 (byte-defop-compiler-1 with-output-to-temp-buffer)
4034 ;; no track-mouse. 4033 ;; no track-mouse.
4035 4034
4036 (defun byte-compile-catch (form) 4035 (defun byte-compile-catch (form)
4037 (byte-compile-form (car (cdr form))) 4036 (byte-compile-form (car (cdr form)))
4125 (and (buffer-live-p _byte_compiler_save_buffer_emulation_closure_) 4124 (and (buffer-live-p _byte_compiler_save_buffer_emulation_closure_)
4126 (set-buffer _byte_compiler_save_buffer_emulation_closure_))))) 4125 (set-buffer _byte_compiler_save_buffer_emulation_closure_)))))
4127 (byte-compile-out 'byte-save-current-buffer 0) 4126 (byte-compile-out 'byte-save-current-buffer 0)
4128 (byte-compile-body-do-effect (cdr form)) 4127 (byte-compile-body-do-effect (cdr form))
4129 (byte-compile-out 'byte-unbind 1))) 4128 (byte-compile-out 'byte-unbind 1)))
4130
4131 (defun byte-compile-save-window-excursion (form)
4132 (byte-compile-push-constant
4133 (byte-compile-top-level-body (cdr form) for-effect))
4134 (byte-compile-out 'byte-save-window-excursion 0))
4135 4129
4136 (defun byte-compile-with-output-to-temp-buffer (form) 4130 (defun byte-compile-with-output-to-temp-buffer (form)
4137 (byte-compile-form (car (cdr form))) 4131 (byte-compile-form (car (cdr form)))
4138 (byte-compile-out 'byte-temp-output-buffer-setup 0) 4132 (byte-compile-out 'byte-temp-output-buffer-setup 0)
4139 (byte-compile-body (cdr (cdr form))) 4133 (byte-compile-body (cdr (cdr form)))