Mercurial > hg > xemacs-beta

comparison lisp/utils/skeleton.el @ 94:1040fe1366ac xemacs-20-0f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag xemacs-20-0f2
author cvs
date Mon, 13 Aug 2007 09:12:09 +0200
parents 131b0175ea99
children 34a5b81f86ba
comparison
equal deleted inserted replaced
93:486ff617c2a1 94:1040fe1366ac
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)))