Commit cd891e68 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(byte-compile-file): Set default-directory in compiler input buffer.

parent ad8d56b9
......@@ -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))
(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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment