# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 843367075 0
# Node ID e9819849c533e192edd1481ad767bffdc6f186c8
# Parent  14ff4afa06ec2851eb3f377811a11710f2fca051
(save-current-buffer): Compile it like save-excursion.
(byte-compile-save-current-buffer): New function.

diff -r 14ff4afa06ec -r e9819849c533 lisp/emacs-lisp/bytecomp.el
--- 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))