From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 13 Jul 1994 05:10:06 +0000 (+0000)
Subject: (dired-byte-compile): Use byte-compile-dest-file
X-Git-Tag: emacs-19.34~7617
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=123ec94d833c7aff24a0ee081abc62dfc0f892a6;p=emacs.git

(dired-byte-compile): Use byte-compile-dest-file
to get the output file name.
---

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)