diff options
| author | Kenichi Handa | 2007-09-07 02:14:55 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2007-09-07 02:14:55 +0000 |
| commit | db08e41d23e62a2eb44f044ae050a6967b2937db (patch) | |
| tree | 3793ddbde637b8b0e964c4670598fa7854eee7ec | |
| parent | 8d25d881a0a8461da419e09cfd277c4df2df2d82 (diff) | |
| download | emacs-db08e41d23e62a2eb44f044ae050a6967b2937db.tar.gz emacs-db08e41d23e62a2eb44f044ae050a6967b2937db.zip | |
(skeleton-internal-1): Use integerp and stringp
instead of char-or-string-p to catch -1.
| -rw-r--r-- | lisp/skeleton.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/skeleton.el b/lisp/skeleton.el index 4425bb0389a..a49fbdcd954 100644 --- a/lisp/skeleton.el +++ b/lisp/skeleton.el | |||
| @@ -355,7 +355,7 @@ automatically, and you are prompted to fill in the variable parts."))) | |||
| 355 | 355 | ||
| 356 | (defun skeleton-internal-1 (element &optional literal recursive) | 356 | (defun skeleton-internal-1 (element &optional literal recursive) |
| 357 | (cond | 357 | (cond |
| 358 | ((char-or-string-p element) | 358 | ((or (integerp element) (stringp element)) |
| 359 | (if (and (integerp element) ; -num | 359 | (if (and (integerp element) ; -num |
| 360 | (< element 0)) | 360 | (< element 0)) |
| 361 | (if skeleton-untabify | 361 | (if skeleton-untabify |