changeset 91018:4dfd0563b711

(skeleton-internal-1): Use integerp and stringp instead of char-or-string-p to catch -1.
author Kenichi Handa <handa@m17n.org>
date Fri, 07 Sep 2007 02:14:55 +0000
parents d08918d380dc
children 57f4ffc03d13
files lisp/skeleton.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/skeleton.el	Tue Sep 04 04:58:46 2007 +0000
+++ b/lisp/skeleton.el	Fri Sep 07 02:14:55 2007 +0000
@@ -355,7 +355,7 @@
 
 (defun skeleton-internal-1 (element &optional literal recursive)
   (cond
-   ((char-or-string-p element)
+   ((or (integerp element) (stringp element))
     (if (and (integerp element)		; -num
 	     (< element 0))
 	(if skeleton-untabify