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 | 123ec94d833c7aff24a0ee081abc62dfc0f892a6 (patch) | |
| tree | 68f37761baf6a382631ac028032080cad4b0ffbb /lisp/dired-aux.el | |
| parent | 02366d6b2d940e0bc777a1ee5d76c5eb22bbd2d9 (diff) | |
| download | emacs-123ec94d833c7aff24a0ee081abc62dfc0f892a6.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) |