From 123ec94d833c7aff24a0ee081abc62dfc0f892a6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 13 Jul 1994 05:10:06 +0000 Subject: [PATCH] (dired-byte-compile): Use byte-compile-dest-file to get the output file name. --- lisp/dired-aux.el | 7 ++----- 1 file 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) -- 2.39.5