1554 |
;; It is important that input-buffer not be current at this call, |
;; It is important that input-buffer not be current at this call, |
1555 |
;; so that the value of point set in input-buffer |
;; so that the value of point set in input-buffer |
1556 |
;; within byte-compile-from-buffer lingers in that buffer. |
;; within byte-compile-from-buffer lingers in that buffer. |
1557 |
(setq output-buffer (byte-compile-from-buffer input-buffer filename)) |
(setq output-buffer |
1558 |
|
(save-current-buffer |
1559 |
|
(byte-compile-from-buffer input-buffer filename))) |
1560 |
(if byte-compiler-error-flag |
(if byte-compiler-error-flag |
1561 |
nil |
nil |
1562 |
(when byte-compile-verbose |
(when byte-compile-verbose |
3835 |
|
|
3836 |
;;;###autoload |
;;;###autoload |
3837 |
(defun batch-byte-recompile-directory () |
(defun batch-byte-recompile-directory () |
3838 |
"Runs `byte-recompile-directory' on the dirs remaining on the command line. |
"Run `byte-recompile-directory' on the dirs remaining on the command line. |
3839 |
Must be used only with `-batch', and kills Emacs on completion. |
Must be used only with `-batch', and kills Emacs on completion. |
3840 |
For example, invoke `emacs -batch -f batch-byte-recompile-directory .'." |
For example, invoke `emacs -batch -f batch-byte-recompile-directory .'." |
3841 |
;; command-line-args-left is what is left of the command line (startup.el) |
;; command-line-args-left is what is left of the command line (startup.el) |