1;;; patcomp.el --- used by patch files to update Emacs releases -*- no-byte-compile: t -*-
2
3;; This file is part of GNU Emacs.
4
5;;; Commentary:
6
7;;; Code:
8
9(defun batch-byte-recompile-emacs ()
10  "Recompile the Emacs `lisp' directory.
11This is used after installing the patches for a new version."
12  (let ((load-path (list (expand-file-name "lisp"))))
13    (byte-recompile-directory "lisp")))
14
15(defun batch-byte-compile-emacs ()
16  "Compile new files installed in the Emacs `lisp' directory.
17This is used after installing the patches for a new version.
18It uses the command line arguments to specify the files to compile."
19  (let ((load-path (list (expand-file-name "lisp"))))
20    (batch-byte-compile)))
21
22;;; arch-tag: cb299b78-1d6c-4c02-945b-12fa2e856d6f
23;;; patcomp.el ends here
24