(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.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index d2b9659a70864b5d7bc8d720b6fb09bee9aeaf1e..7f65c11d0f190fcc0fcbc8ccfc605cfb48d8473d 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -206,7 +206,7 @@ You may want to redefine `byte-compile-dest-file' if you change this.")
             (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 @@ A nonzero prefix argument also means ask about each subdirectory."
         (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 @@ For example, invoke \"emacs -batch -f batch-byte-compile $emacs/ ~/*.el\""
              (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.