Commit 123ec94d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(dired-byte-compile): Use byte-compile-dest-file

to get the output file name.
parent 02366d6b
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment