# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 785180546 0
# Node ID f6c7d1ab2d6a5e6e42f77330adfa6d42635ac6cc
# Parent  d149c4dc84f31eea57db47d8d15681dab4c0ff88
Initial revision

diff -r d149c4dc84f3 -r f6c7d1ab2d6a lisp/patcomp.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/patcomp.el	Fri Nov 18 17:42:26 1994 +0000
@@ -0,0 +1,7 @@
+;;; This function is used by the patch files to update Emacs releases.
+
+(defun batch-byte-recompile-emacs ()
+  "Recompile the Emacs `lisp' directory.
+This is used after installing the patches for a new version."
+  (let ((load-path (list (expand-file-name "lisp"))))
+    (byte-recompile-directory "lisp")))