diff options
| author | Richard M. Stallman | 1994-07-13 05:10:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-13 05:10:06 +0000 |
| commit | 123ec94d833c7aff24a0ee081abc62dfc0f892a6 (patch) | |
| tree | 68f37761baf6a382631ac028032080cad4b0ffbb | |
| parent | 02366d6b2d940e0bc777a1ee5d76c5eb22bbd2d9 (diff) | |
| download | emacs-123ec94d833c7aff24a0ee081abc62dfc0f892a6.tar.gz emacs-123ec94d833c7aff24a0ee081abc62dfc0f892a6.zip | |
(dired-byte-compile): Use byte-compile-dest-file
to get the output file name.
| -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)." | |||
| 628 | (defun dired-byte-compile () | 628 | (defun dired-byte-compile () |
| 629 | ;; Return nil for success, offending file name else. | 629 | ;; Return nil for success, offending file name else. |
| 630 | (let* ((filename (dired-get-filename)) | 630 | (let* ((filename (dired-get-filename)) |
| 631 | (elc-file | 631 | elc-file buffer-read-only failure) |
| 632 | (if (eq system-type 'vax-vms) | ||
| 633 | (concat (substring filename 0 (string-match ";" filename)) "c") | ||
| 634 | (concat filename "c"))) | ||
| 635 | buffer-read-only failure) | ||
| 636 | (condition-case err | 632 | (condition-case err |
| 637 | (save-excursion (byte-compile-file filename)) | 633 | (save-excursion (byte-compile-file filename)) |
| 638 | (error | 634 | (error |
| 639 | (setq failure err))) | 635 | (setq failure err))) |
| 636 | (setq elc-file (byte-compile-dest-file filename)) | ||
| 640 | (if failure | 637 | (if failure |
| 641 | (progn | 638 | (progn |
| 642 | (dired-log "Byte compile error for %s:\n%s\n" filename failure) | 639 | (dired-log "Byte compile error for %s:\n%s\n" filename failure) |