Function: m2-case
m2-case is an interactive and byte-compiled function defined in
modula2.el.gz.
Signature
(m2-case &optional STR ARG)
Documentation
Build skeleton CASE statement, prompting for the <expression>.
This is a skeleton command (see skeleton-insert).
Normally the skeleton text is inserted at point, with nothing "inside".
If there is a highlighted region, the skeleton text is wrapped
around the region text.
A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/progmodes/modula2.el.gz
(define-skeleton m2-case
"Build skeleton CASE statement, prompting for the <expression>."
"Case-Expression: "
\n "CASE " str " OF" > \n _ \n "END (* " str " *);" > \n)