Mercurial > hg > xemacs-beta

comparison lisp/utils/skeleton.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents ac2d302a0011
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
389 (signal 'quit 'recursive) 389 (signal 'quit 'recursive)
390 recursive)) 390 recursive))
391 391
392 392
393 (defun skeleton-internal-1 (element &optional literal) 393 (defun skeleton-internal-1 (element &optional literal)
394 (cond ((char-or-string-p element) 394 (cond ((or (integerp element)
395 (char-or-string-p element))
395 (if (and (integerp element) ; -num 396 (if (and (integerp element) ; -num
396 (< element 0)) 397 (< element 0))
397 (if skeleton-untabify 398 (if skeleton-untabify
398 (backward-delete-char-untabify (- element)) 399 (backward-delete-char-untabify (- element))
399 (delete-backward-char (- element))) 400 (delete-backward-char (- element)))