From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 9 Sep 2002 21:41:34 +0000 (+0000)
Subject: (byte-compile-file): Don't switch buffer.
X-Git-Tag: ttn-vms-21-2-B4~13293
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f6d5bf0090c9e9de4f70eef4a21fd4c1feda082;p=emacs.git

(byte-compile-file): Don't switch buffer.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index f5fec5b1262..a96b1b64c28 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.112 $")
+(defconst byte-compile-version "$Revision: 2.113 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -1554,7 +1554,9 @@ The value is non-nil if there were no errors, nil if errors."
       ;; 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 @@ already up-to-date."
 
 ;;;###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)