Mercurial > emacs

changeset 16788:ffb387a3d054

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-file): Set default-directory in compiler input buffer.
author Richard M. Stallman <rms@gnu.org>
date Mon, 30 Dec 1996 18:52:14 +0000
parents 3ad557e686b9
children 85b1a10101ff
files lisp/emacs-lisp/bytecomp.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el	Mon Dec 30 08:07:51 1996 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Mon Dec 30 18:52:14 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.23 $")
+(defconst byte-compile-version "$Revision: 2.24 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -1249,7 +1249,9 @@
 	    (default-major-mode 'emacs-lisp-mode)
 	    (enable-local-eval nil))
         (normal-mode)
-        (setq filename buffer-file-name)))
+        (setq filename buffer-file-name))
+      ;; Set the default directory, in case an eval-when-compile uses it.
+      (setq default-directory (file-name-directory filename)))
     (setq byte-compiler-error-flag nil)
     ;; It is important that input-buffer not be current at this call,
     ;; so that the value of point set in input-buffer