aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorGlenn Morris2010-09-11 12:33:52 -0700
committerGlenn Morris2010-09-11 12:33:52 -0700
commit7eb662be2fef39f03c8e3f3ad1e9447716870644 (patch)
treefc4be294cc232909c110c15b23d6c97329e5982e /lisp
parent0f34ae289a051cb6e92b350f984c23502ff5929f (diff)
downloademacs-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.el5
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"