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