Mercurial > emacs
changeset 5283:f48e54cb9b01
(byte-compile-dest-file): If FILENAME is not recognized, append .elc to it.
(byte-recompile-directory): Don't treat symlinks as dirs.
(batch-byte-recompile-directory): Add autoload cookie.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 23 Dec 1993 03:37:27 +0000 |
| parents | 1d3c5ef6e8a1 |
| children | 9c8749be37da |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Thu Dec 23 03:36:02 1993 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Thu Dec 23 03:37:27 1993 +0000 @@ -206,7 +206,7 @@ (concat (substring filename 0 (string-match ";" filename)) "c")) ((string-match emacs-lisp-file-regexp filename) (concat (substring filename 0 (match-beginning 0)) ".elc")) - (t (concat filename "c"))))) + (t (concat filename ".elc"))))) ;; This can be the 'byte-compile property of any symbol. (autoload 'byte-compile-inline-expand "byte-opt") @@ -1083,7 +1083,8 @@ (while files (setq source (expand-file-name (car files) directory)) (if (and (not (member (car files) '("." ".." "RCS" "CVS"))) - (file-directory-p source)) + (file-directory-p source) + (not (file-symlink-p source))) (if (or (null arg) (eq 0 arg) (y-or-n-p (concat "Check " source "? "))) @@ -3032,6 +3033,7 @@ (prin1-to-string (cdr err))) nil))) +;;;###autoload (defun batch-byte-recompile-directory () "Runs `byte-recompile-directory' on the dirs remaining on the command line. Must be used only with `-batch', and kills Emacs on completion.