112 |
(defvar skeleton-point) |
(defvar skeleton-point) |
113 |
(defvar skeleton-regions) |
(defvar skeleton-regions) |
114 |
|
|
115 |
|
(def-edebug-spec skeleton-edebug-spec |
116 |
|
([&or null stringp (stringp &rest stringp) [[¬ atom] def-form]] |
117 |
|
&rest &or "n" "_" "-" ">" "@" "&" "!" "resume:" |
118 |
|
("quote" def-form) skeleton-edebug-spec def-form)) |
119 |
;;;###autoload |
;;;###autoload |
120 |
(defmacro define-skeleton (command documentation &rest skeleton) |
(defmacro define-skeleton (command documentation &rest skeleton) |
121 |
"Define a user-configurable COMMAND that enters a statement skeleton. |
"Define a user-configurable COMMAND that enters a statement skeleton. |
122 |
DOCUMENTATION is that of the command. |
DOCUMENTATION is that of the command. |
123 |
SKELETON is as defined under `skeleton-insert'." |
SKELETON is as defined under `skeleton-insert'." |
124 |
|
(declare (debug (&define name stringp skeleton-edebug-spec))) |
125 |
(if skeleton-debug |
(if skeleton-debug |
126 |
(set command skeleton)) |
(set command skeleton)) |
127 |
`(progn |
`(progn |