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

   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.
  11 This 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.
  17 This is used after installing the patches for a new version.
  18 It 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