diff options
| author | Glenn Morris | 2010-09-11 12:33:52 -0700 |
|---|---|---|
| committer | Glenn Morris | 2010-09-11 12:33:52 -0700 |
| commit | 7eb662be2fef39f03c8e3f3ad1e9447716870644 (patch) | |
| tree | fc4be294cc232909c110c15b23d6c97329e5982e /lisp | |
| parent | 0f34ae289a051cb6e92b350f984c23502ff5929f (diff) | |
| download | emacs-7eb662be2fef39f03c8e3f3ad1e9447716870644.tar.gz emacs-7eb662be2fef39f03c8e3f3ad1e9447716870644.zip | |
* lisp/emacs-lisp/bytecomp.el (byte-compile-file): Tweak previous change.
Write out the name of the .elc file, rather than the temp-file.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 04bc254b319..8b47e0421e0 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -1706,7 +1706,7 @@ The value is non-nil if there were no errors, nil if errors." | |||
| 1706 | (tempfile (make-temp-name target-file))) | 1706 | (tempfile (make-temp-name target-file))) |
| 1707 | (if (memq system-type '(ms-dos 'windows-nt)) | 1707 | (if (memq system-type '(ms-dos 'windows-nt)) |
| 1708 | (setq buffer-file-type t)) | 1708 | (setq buffer-file-type t)) |
| 1709 | (write-region (point-min) (point-max) tempfile) | 1709 | (write-region (point-min) (point-max) tempfile nil 1) |
| 1710 | ;; This has the intentional side effect that any | 1710 | ;; This has the intentional side effect that any |
| 1711 | ;; hard-links to target-file continue to | 1711 | ;; hard-links to target-file continue to |
| 1712 | ;; point to the old file (this makes it possible | 1712 | ;; point to the old file (this makes it possible |
| @@ -1715,7 +1715,8 @@ The value is non-nil if there were no errors, nil if errors." | |||
| 1715 | ;; emacs-lisp files in the build tree are | 1715 | ;; emacs-lisp files in the build tree are |
| 1716 | ;; recompiled). Previously this was accomplished by | 1716 | ;; recompiled). Previously this was accomplished by |
| 1717 | ;; deleting target-file before writing it. | 1717 | ;; deleting target-file before writing it. |
| 1718 | (rename-file tempfile target-file t)) | 1718 | (rename-file tempfile target-file t) |
| 1719 | (message "Wrote %s" target-file)) | ||
| 1719 | ;; This is just to give a better error message than write-region | 1720 | ;; This is just to give a better error message than write-region |
| 1720 | (signal 'file-error | 1721 | (signal 'file-error |
| 1721 | (list "Opening output file" | 1722 | (list "Opening output file" |