Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
5700:37479d841681 5701:ad35a0cd95f5
330 /* This function can GC */ 330 /* This function can GC */
331 Ichar ch; 331 Ichar ch;
332 Lisp_Object c; 332 Lisp_Object c;
333 EMACS_INT n; 333 EMACS_INT n;
334 334
335 /* It is sometimes useful to specify `self-insert-commmand' in Lisp code.
336 We may as well as all that to be done with default = 1. */
337 count = NILP (count) ? make_int(1) : count;
335 /* Can't insert more than most-positive-fixnum characters, the buffer 338 /* Can't insert more than most-positive-fixnum characters, the buffer
336 won't hold that many. */ 339 won't hold that many. */
337 check_integer_range (count, Qzero, make_fixnum (MOST_POSITIVE_FIXNUM)); 340 check_integer_range (count, Qzero, make_fixnum (MOST_POSITIVE_FIXNUM));
338 n = XFIXNUM (count); 341 n = XFIXNUM (count);
339 342