mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

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

Browse Source 
to get the output file name.
This commit is contained in:
Richard M. Stallman 1994-07-13 05:10:06 +00:00
parent 02366d6b2d
commit 123ec94d83
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/dired-aux.el
View File

@ -628,15 +628,12 @@ and use this command with a prefix argument (the value does not matter)."
(defun dired-byte-compile () (defun dired-byte-compile ()
;; Return nil for success, offending file name else. ;; Return nil for success, offending file name else.
(let* ((filename (dired-get-filename)) (let* ((filename (dired-get-filename))
(elc-file elc-file buffer-read-only failure)
(if (eq system-type 'vax-vms)
(concat (substring filename 0 (string-match ";" filename)) "c")
(concat filename "c")))
buffer-read-only failure)
(condition-case err (condition-case err
(save-excursion (byte-compile-file filename)) (save-excursion (byte-compile-file filename))
(error (error
(setq failure err))) (setq failure err)))
(setq elc-file (byte-compile-dest-file filename))
(if failure (if failure
(progn (progn
(dired-log "Byte compile error for %s:\n%s\n" filename failure) (dired-log "Byte compile error for %s:\n%s\n" filename failure)