# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1031607694 0
# Node ID 0b6b707c1e14ab860e533ddc869363bfd08f6ea8
# Parent  339f02464785f364f5b9917187a7c7eee55f88ee
(byte-compile-file): Don't switch buffer.

diff -r 339f02464785 -r 0b6b707c1e14 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Mon Sep 09 21:37:28 2002 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Mon Sep 09 21:41:34 2002 +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.112 $")
+(defconst byte-compile-version "$Revision: 2.113 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -1554,7 +1554,9 @@
       ;; It is important that input-buffer not be current at this call,
       ;; so that the value of point set in input-buffer
       ;; within byte-compile-from-buffer lingers in that buffer.
-      (setq output-buffer (byte-compile-from-buffer input-buffer filename))
+      (setq output-buffer
+	    (save-current-buffer
+	      (byte-compile-from-buffer input-buffer filename)))
       (if byte-compiler-error-flag
 	  nil
 	(when byte-compile-verbose
@@ -3833,7 +3835,7 @@
 
 ;;;###autoload
 (defun batch-byte-recompile-directory ()
-  "Runs `byte-recompile-directory' on the dirs remaining on the command line.
+  "Run `byte-recompile-directory' on the dirs remaining on the command line.
 Must be used only with `-batch', and kills Emacs on completion.
 For example, invoke `emacs -batch -f batch-byte-recompile-directory .'."
   ;; command-line-args-left is what is left of the command line (startup.el)