| 1 | ;;; This function is used by the patch files to update Emacs releases. |
| 2 | |
| 3 | (defun batch-byte-recompile-emacs () |
| 4 | "Recompile the Emacs `lisp' directory. |
| 5 | This is used after installing the patches for a new version." |
| 6 | (let ((load-path (list (expand-file-name "lisp")))) |
| 7 | (byte-recompile-directory "lisp"))) |
| 8 | |
| 9 | (defun batch-byte-compile-emacs () |
| 10 | "Compile new files installed in the Emacs `lisp' directory. |
| 11 | This is used after installing the patches for a new version. |
| 12 | It uses the command line arguments to specify the files to compile." |
| 13 | (let ((load-path (list (expand-file-name "lisp")))) |
| 14 | (batch-byte-compile))) |