diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-13 05:10:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-13 05:10:06 +0000 |
| commit | 216d02e2fa471a10bcdd32b3967a46453189501c (patch) | |
| tree | 4dcaa44b5b848c0829b1ff5394c3793603c5064b /lisp/dired-aux.el | |
| parent | 6d354922b157950f24a8e767100f1d65f9164a1f (diff) | |
| download | emacs-216d02e2fa471a10bcdd32b3967a46453189501c.tar.gz | |
(dired-byte-compile): Use byte-compile-dest-file
to get the output file name.
Diffstat (limited to 'lisp/dired-aux.el')
| -rw-r--r-- | lisp/dired-aux.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 38912d60cac..e62ecb3c4c5 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -628,15 +628,12 @@ and use this command with a prefix argument (the value does not matter)." (defun dired-byte-compile () ;; Return nil for success, offending file name else. (let* ((filename (dired-get-filename)) - (elc-file - (if (eq system-type 'vax-vms) - (concat (substring filename 0 (string-match ";" filename)) "c") - (concat filename "c"))) - buffer-read-only failure) + elc-file buffer-read-only failure) (condition-case err (save-excursion (byte-compile-file filename)) (error (setq failure err))) + (setq elc-file (byte-compile-dest-file filename)) (if failure (progn (dired-log "Byte compile error for %s:\n%s\n" filename failure) |