# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756617847 0
# Node ID f48e54cb9b011eda35bdcfd4aed32fa8d070dac6
# Parent  1d3c5ef6e8a182a5ae89dfc66d470267018e21d8
(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 -r 1d3c5ef6e8a1 -r f48e54cb9b01 lisp/emacs-lisp/bytecomp.el
--- 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.