Mercurial > emacs
changeset 18391:1ff0bfd40508
(byte-compile-file): Doc fix.
(batch-byte-compile-file): Return what byte-compile-file returns.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 22 Jun 1997 23:08:47 +0000 |
| parents | 7c853eb6ad19 |
| children | 24c1f9256352 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Sun Jun 22 22:55:28 1997 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Sun Jun 22 23:08:47 1997 +0000 @@ -10,7 +10,7 @@ ;;; This version incorporates changes up to version 2.10 of the ;;; Zawinski-Furuseth compiler. -(defconst byte-compile-version "$Revision: 2.28 $") +(defconst byte-compile-version "$Revision: 2.29 $") ;; This file is part of GNU Emacs. @@ -1203,7 +1203,8 @@ (defun byte-compile-file (filename &optional load) "Compile a file of Lisp code named FILENAME into a file of byte code. The output file's name is made by appending `c' to the end of FILENAME. -With prefix arg (noninteractively: 2nd arg), load the file after compiling." +With prefix arg (noninteractively: 2nd arg), load the file after compiling. +The value is t if there were no errors, nil if errors." ;; (interactive "fByte compile file: \nP") (interactive (let ((file buffer-file-name) @@ -3317,7 +3318,7 @@ (defun batch-byte-compile-file (file) (condition-case err - (progn (byte-compile-file file) t) + (byte-compile-file file) (error (message (if (cdr err) ">>Error occurred processing %s: %s (%s)"