Mercurial > emacs

annotate lisp/=bytecpat.el @ 21023:bac070da6b6d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(load-with-code-conversion): Don't bind enable-multibyte-characters; instead, bind default-enable-multibyte-characters before creating buffer. (after-insert-file-set-buffer-file-coding-system): Use set-buffer-multibyte. Use add-hook to add this to after-insert-file-functions.
author Karl Heuer <kwzh@gnu.org>
date Mon, 02 Mar 1998 20:01:46 +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)))