Mercurial > hg > xemacs-beta

diff src/cmds.c @ 5701:ad35a0cd95f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow self-insert-command to be called noninteractively with null argument.
author Stephen J. Turnbull <stephen@xemacs.org>
date Mon, 24 Dec 2012 15:12:52 +0900
parents 56144c8593a8
children c65b0329894b
line wrap: on
line diff
--- a/src/cmds.c	Mon Dec 24 14:12:51 2012 +0900
+++ b/src/cmds.c	Mon Dec 24 15:12:52 2012 +0900
@@ -332,6 +332,9 @@
   Lisp_Object c;
   EMACS_INT n;
 
+  /* It is sometimes useful to specify `self-insert-commmand' in Lisp code.
+     We may as well as all that to be done with default = 1. */
+  count = NILP (count) ? make_int(1) : count;
   /* Can't insert more than most-positive-fixnum characters, the buffer
      won't hold that many. */
   check_integer_range (count, Qzero, make_fixnum (MOST_POSITIVE_FIXNUM));