Mercurial > emacs
changeset 16274:e9819849c533
(save-current-buffer): Compile it like save-excursion.
(byte-compile-save-current-buffer): New function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 22 Sep 1996 04:37:55 +0000 |
| parents | 14ff4afa06ec |
| children | a4bcfdc9bb66 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Sat Sep 21 23:07:06 1996 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Sun Sep 22 04:37:55 1996 +0000 @@ -10,7 +10,7 @@ ;;; This version incorporates changes up to version 2.10 of the ;;; Zawinski-Furuseth compiler. -(defconst byte-compile-version "$Revision: 2.19 $") +(defconst byte-compile-version "$Revision: 2.20 $") ;; This file is part of GNU Emacs. @@ -489,7 +489,8 @@ (byte-defop 94 -1 byte-min) (byte-defop 95 -1 byte-mult) ; v19 only (byte-defop 96 1 byte-point) -(byte-defop 97 1 byte-mark-OBSOLETE) ; no longer generated as of v18 +(byte-defop 97 0 byte-save-current-buffer + "To make a binding to record the current buffer") (byte-defop 98 0 byte-goto-char) (byte-defop 99 0 byte-insert) (byte-defop 100 1 byte-point-max) @@ -2870,6 +2871,7 @@ (byte-defop-compiler-1 unwind-protect) (byte-defop-compiler-1 condition-case) (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) @@ -2951,6 +2953,11 @@ (byte-compile-body-do-effect (cdr form)) (byte-compile-out 'byte-unbind 1)) +(defun byte-compile-save-current-buffer (form) + (byte-compile-out 'byte-save-current-buffer 0) + (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))