Commit 7076c5cd authored by Stefan Monnier's avatar Stefan Monnier

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

(define-skeleton): Use it.
parent 69155ecc
......@@ -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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment