From f3e472b0b76a351beec4f6447f17a567103026f0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 22 Sep 1996 04:37:55 +0000 Subject: [PATCH] (save-current-buffer): Compile it like save-excursion. (byte-compile-save-current-buffer): New function. --- lisp/emacs-lisp/bytecomp.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 719584bfcc9..a36ecceadc7 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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 @@ Each element is (INDEX . VALUE)") (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 @@ If FORM is a lambda or a macro, byte-compile it as a function." (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 @@ If FORM is a lambda or a macro, byte-compile it as a function." (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)) -- 2.39.2