/[emacs]/emacs/lisp/skeleton.el
ViewVC logotype

Diff of /emacs/lisp/skeleton.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by monnier, Mon May 26 01:02:31 2003 UTC revision 1.38 by monnier, Wed May 28 18:41:41 2003 UTC
# Line 112  are integer buffer positions in the reve Line 112  are integer buffer positions in the reve
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) [[&not 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

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26