lisp/patcomp.el

   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)))