Mercurial > emacs
changeset 8236:444501972687
(dired-byte-compile): Use byte-compile-dest-file
to get the output file name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 13 Jul 1994 05:10:06 +0000 |
| parents | bc485f942c5e |
| children | 189d7c4eaf68 |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 2 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-aux.el Wed Jul 13 05:08:26 1994 +0000 +++ b/lisp/dired-aux.el Wed Jul 13 05:10:06 1994 +0000 @@ -628,15 +628,12 @@ (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)