From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 28 May 2003 18:41:41 +0000 (+0000)
Subject: (skeleton-edebug-spec): First cut of an edebug spec.
X-Git-Tag: ttn-vms-21-2-B4~9883
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7076c5cd53f4ad7b2552cc5bdc71bddfaf4fb881;p=emacs.git

(skeleton-edebug-spec): First cut of an edebug spec.
(define-skeleton): Use it.
---

diff --git a/lisp/skeleton.el b/lisp/skeleton.el
index 9c018ac7b25..95ac378e442 100644
--- a/lisp/skeleton.el
+++ b/lisp/skeleton.el
@@ -112,11 +112,16 @@ are integer buffer positions in the reverse order of the insertion order.")
 (defvar skeleton-point)
 (defvar skeleton-regions)
 
+(def-edebug-spec skeleton-edebug-spec
+  ([&or null stringp (stringp &rest stringp) [[&not atom] def-form]]
+   &rest &or "n" "_" "-" ">" "@" "&" "!" "resume:"
+   ("quote" def-form) skeleton-edebug-spec def-form))
 ;;;###autoload
 (defmacro define-skeleton (command documentation &rest skeleton)
   "Define a user-configurable COMMAND that enters a statement skeleton.
 DOCUMENTATION is that of the command.
 SKELETON is as defined under `skeleton-insert'."
+  (declare (debug (&define name stringp skeleton-edebug-spec)))
   (if skeleton-debug
       (set command skeleton))
   `(progn