From cd891e6848e0bc8380710ee24af1572fd6200d10 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 30 Dec 1996 18:52:14 +0000 Subject: [PATCH] (byte-compile-file): Set default-directory in compiler input buffer. --- lisp/emacs-lisp/bytecomp.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index a4310dc2cbd..1ffd3cae2ca 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.23 $") +(defconst byte-compile-version "$Revision: 2.24 $") ;; This file is part of GNU Emacs. @@ -1249,7 +1249,9 @@ With prefix arg (noninteractively: 2nd arg), load the file after compiling." (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 -- 2.39.5