mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 00:00:39 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1996-12-30 18:52:14 +00:00
parent ad8d56b960
commit cd891e6848
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/bytecomp.el
View file

@ -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