# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 740010737 0
# Node ID 37a8a7489fc5be720181f68554fdc6918ded248c
# Parent  620f551ac276d76dd1984fa0a2706f3ec758005b
(byte-compile-file): Undo previous change.
(batch-byte-recompile-directory): Doc fix.

diff -r 620f551ac276 -r 37a8a7489fc5 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Sun Jun 13 21:43:15 1993 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Sun Jun 13 22:32:17 1993 +0000
@@ -102,7 +102,7 @@
 ;;; byte-compile-compatibility	Whether the compiler should
 ;;;				generate .elc files which can be loaded into
 ;;;				generic emacs 18.
-;;; emacs-lisp-file-regexp	Regexp for the extension of elisp source-files;
+;;; emacs-lisp-file-regexp	Regexp for the extension of source-files;
 ;;;				see also the function byte-compile-dest-file.
 
 ;;; New Features:
@@ -143,21 +143,14 @@
 ;;;  o  The form `eval-and-compile' is similar to eval-when-compile, but
 ;;;	the whole form is evalled both at compile-time and at run-time.
 ;;;
-;;;  o  The command Meta-X byte-compile-and-load-file does what you'd think.
-;;;     (This command has been discontinued.)
-;;;
 ;;;  o  The command compile-defun is analogous to eval-defun.
 ;;;
 ;;;  o  If you run byte-compile-file on a filename which is visited in a 
 ;;;     buffer, and that buffer is modified, you are asked whether you want
 ;;;     to save the buffer before compiling.
 ;;;
-;;;  o  You can add this to /etc/magic to make file(1) recognise the files
-;;;     generated by this compiler:
-;;;
-;;;	  0	string		;ELC		GNU Emacs Lisp compiled file,
-;;;	  >4	byte		x		version %d
-;;;
+;;;  o  byte-compiled files now start with the string `;ELC'.
+;;;     Some versions of `file' can be customized to recognize that.
 
 (require 'backquote)
 
@@ -1133,7 +1126,7 @@
      (list (read-file-name (if current-prefix-arg
 			       "Byte compile and load file: "
 			     "Byte compile file: ")
-			   file-dir nil nil file-name)
+			   file-dir file-name nil)
 	   current-prefix-arg)))
   ;; Expand now so we get the current buffer's defaults
   (setq filename (expand-file-name filename))
@@ -3028,8 +3021,8 @@
 
 (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.
-For example, invoke \"emacs -batch -f batch-byte-recompile-directory .\""
+Must be used only with `-batch', and kills Emacs on completion.
+For example, invoke `emacs -batch -f batch-byte-recompile-directory .'."
   ;; command-line-args-left is what is left of the command line (startup.el)
   (defvar command-line-args-left)	;Avoid 'free variable' warning
   (if (not noninteractive)