annotate lisp/=bytecpat.el @ 19593:6d421627bb8b
(nnmail-active-file-coding-system): New variable.
(nnmail-insert-xref): Encode pathname for Emacs 20.
(nnmail-write-region, nnmh-retrieve-headers, nnmh-request-article,
nnmh-request-group, nnmh-possibly-change-directory): Protect from
conversion by `pathname-coding-system' for XEmacs/mule.
(nnmail-pathname-coding-system): New variable.
(nnmail-group-pathname): Encode pathname for Emacs 20.
nnmail-file-coding-system): New variable.
(nnmail-find-file): Bind `coding-system-for-read' with
`nnmail-file-coding-system' for Emacs/mule and XEmacs/mule.
(nnmail-write-region): Bind `coding-system-for-write' with
`nnmail-file-coding-system' for Emacs/mule and XEmacs/mule.
author |
Kenichi Handa <handa@m17n.org> |
date |
Thu, 28 Aug 1997 04:51:02 +0000 |
parents |
84acc3adcd63 |
children |
|
rev |
line source |
13337
|
1 ;;; bytecpat.el --- do recompilation for Emacs patch files.
|
13335
|
2 ;;; This function is used by the patch files to update Emacs releases.
|
|
3
|
|
4 (defun batch-byte-recompile-emacs ()
|
|
5 "Recompile the Emacs `lisp' directory.
|
|
6 This is used after installing the patches for a new version."
|
|
7 (let ((load-path (list (expand-file-name "lisp"))))
|
|
8 (byte-recompile-directory "lisp")))
|
|
9
|
|
10 (defun batch-byte-compile-emacs ()
|
|
11 "Compile new files installed in the Emacs `lisp' directory.
|
|
12 This is used after installing the patches for a new version.
|
|
13 It uses the command line arguments to specify the files to compile."
|
|
14 (let ((load-path (list (expand-file-name "lisp"))))
|
|
15 (batch-byte-compile)))
|