annotate lisp/=bytecpat.el @ 32417:f1092988f808

(fancy-splash-screens): Don't add a pre-command hook. (fancy-splash-pre-command, fancy-splash-pending-command): Removed. (command-line-1): Don't use fancy-splash-pending-command. (fancy-splash-screens-1): Goto point-min after inserting text.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 12 Oct 2000 12:07:04 +0000
parents 84acc3adcd63
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 13335
diff changeset
1 ;;; bytecpat.el --- do recompilation for Emacs patch files.
13335
258b67997ae6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2 ;;; This function is used by the patch files to update Emacs releases.
258b67997ae6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3
258b67997ae6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4 (defun batch-byte-recompile-emacs ()
258b67997ae6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 "Recompile the Emacs `lisp' directory.
258b67997ae6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 This is used after installing the patches for a new version."
258b67997ae6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 (let ((load-path (list (expand-file-name "lisp"))))
258b67997ae6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 (byte-recompile-directory "lisp")))
258b67997ae6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
258b67997ae6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 (defun batch-byte-compile-emacs ()
258b67997ae6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 "Compile new files installed in the Emacs `lisp' directory.
258b67997ae6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 This is used after installing the patches for a new version.
258b67997ae6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 It uses the command line arguments to specify the files to compile."
258b67997ae6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 (let ((load-path (list (expand-file-name "lisp"))))
258b67997ae6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 (batch-byte-compile)))