annotate lisp/=bytecpat.el @ 18581:45f27efe77c7

(desktop-clear-preserve-buffers): New variable. (desktop-clear): Kill all buffers except internal ones and those listed in desktop-clear-preserve-buffers.
author Richard M. Stallman <rms@gnu.org>
date Fri, 04 Jul 1997 00:13:36 +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)))