Mercurial > emacs
view lisp/patcomp.el @ 17404:73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
(UPPERCASEP): Use DOWNCASE.
(UPCASE_TABLE): New macro.
(NOCASEP, UPCASE1): Use UPCASE_TABLE.
[!NO_UNION_TYPE] (make_number): Declare.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Fri, 11 Apr 1997 21:58:13 +0000 |
parents | bd56cdc4d07b |
children | a06008c964f8 |
line wrap: on
line source
;;; 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"))) (defun batch-byte-compile-emacs () "Compile new files installed in the Emacs `lisp' directory. This is used after installing the patches for a new version. It uses the command line arguments to specify the files to compile." (let ((load-path (list (expand-file-name "lisp")))) (batch-byte-compile)))