# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1189131295 0
# Node ID 4dfd0563b71192c69b75f4e034d39dece4f9d8be
# Parent  d08918d380dca3c6c794a3226ead729fee83f44c
(skeleton-internal-1): Use integerp and stringp
instead of char-or-string-p to catch -1.

diff -r d08918d380dc -r 4dfd0563b711 lisp/skeleton.el
--- 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