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

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