code.delx.au - gnu-emacs/blob - lisp/patcomp.el

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