Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
123ec94d
Commit
123ec94d
authored
Jul 13, 1994
by
Richard M. Stallman
Browse files
(dired-byte-compile): Use byte-compile-dest-file
to get the output file name.
parent
02366d6b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
5 deletions
+2
-5
lisp/dired-aux.el
lisp/dired-aux.el
+2
-5
No files found.
lisp/dired-aux.el
View file @
123ec94d
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment