Mercurial > emacs
view lisp/patcomp.el @ 15129:e48968f04ea7
(Fthis_single_command_keys): New function.
(syms_of_keyboard): defsubr it.
(this_single_command_key_start): New variable.
(add_command_key): Reduce this_single_command_key_start if nec.
(command_loop_1): Clear this_single_command_key_start if nec.
(Fread_key_sequence, Fexecute_extended_command): Likewise.
(read_key_sequence): Set this_single_command_key_start.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 02 May 1996 22:33:51 +0000 |
parents | de27224b0b43 |
children | bd56cdc4d07b |
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)))