Mercurial > hg > xemacs-beta

comparison src/event-stream.c @ 406:b8cc9ab3f761 r21-2-33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents 2f8bb876ab1d
children 501cfd01ee6d
comparison
equal deleted inserted replaced
405:0e08f63c74d2 406:b8cc9ab3f761
4115 minibuffer. If the command we are about to execute is 4115 minibuffer. If the command we are about to execute is
4116 self-insert, it's tricky: up to 20 consecutive self-inserts may 4116 self-insert, it's tricky: up to 20 consecutive self-inserts may
4117 be done without an undo boundary. This counter is reset as 4117 be done without an undo boundary. This counter is reset as
4118 soon as a command other than self-insert-command is executed. 4118 soon as a command other than self-insert-command is executed.
4119 4119
4120 Programmers can also use the `self-insert-undo-magic' 4120 Programmers can also use the `self-insert-defer-undo'
4121 property to install that behaviour on functions other 4121 property to install that behaviour on functions other
4122 than `self-insert-command', or to change the magic 4122 than `self-insert-command', or to change the magic
4123 number 20 to something else. */ 4123 number 20 to something else. #### DOCUMENT THIS! */
4124 4124
4125 if (SYMBOLP (leaf)) 4125 if (SYMBOLP (leaf))
4126 { 4126 {
4127 Lisp_Object prop = Fget (leaf, Qself_insert_defer_undo, Qnil); 4127 Lisp_Object prop = Fget (leaf, Qself_insert_defer_undo, Qnil);
4128 if (NATNUMP (prop)) 4128 if (NATNUMP (prop))