mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

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

Browse Source 
(define-skeleton): Use it.
This commit is contained in:
Stefan Monnier 2003-05-28 18:41:41 +00:00
parent 69155eccaf
commit 7076c5cd53
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/skeleton.el
View File

@ -112,11 +112,16 @@ are integer buffer positions in the reverse order of the insertion order.")
(defvar skeleton-point) (defvar skeleton-point)
(defvar skeleton-regions) (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 ;;;###autoload
(defmacro define-skeleton (command documentation &rest skeleton) (defmacro define-skeleton (command documentation &rest skeleton)
"Define a user-configurable COMMAND that enters a statement skeleton. "Define a user-configurable COMMAND that enters a statement skeleton.
DOCUMENTATION is that of the command. DOCUMENTATION is that of the command.
SKELETON is as defined under `skeleton-insert'." SKELETON is as defined under `skeleton-insert'."
(declare (debug (&define name stringp skeleton-edebug-spec)))
(if skeleton-debug (if skeleton-debug
(set command skeleton)) (set command skeleton))
`(progn `(progn