diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-28 18:41:41 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-28 18:41:41 +0000 |
| commit | 7076c5cd53f4ad7b2552cc5bdc71bddfaf4fb881 (patch) | |
| tree | 149b914d8422b205b6b074479d9b78276bdd50a1 /lisp/skeleton.el | |
| parent | 69155eccaf7ead64ff62996569f8a30175da3f3d (diff) | |
| download | emacs-7076c5cd53f4ad7b2552cc5bdc71bddfaf4fb881.tar.gz | |
(skeleton-edebug-spec): First cut of an edebug spec.
(define-skeleton): Use it.
Diffstat (limited to 'lisp/skeleton.el')
| -rw-r--r-- | lisp/skeleton.el | 5 |
1 files changed, 5 insertions, 0 deletions
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) [[¬ 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 |