Commit f951869d authored by Karl Heuer's avatar Karl Heuer
Browse files

(m2-case, m2-for, m2-if): Doc fix.

parent bd0343fe
......@@ -166,7 +166,7 @@ followed by the first character of the construct.
(m2-tab))
(defun m2-case ()
"Build skeleton CASE statment, prompting for the <expression>."
"Build skeleton CASE statement, prompting for the <expression>."
(interactive)
(let ((name (read-string "Case-Expression: ")))
(insert "CASE " name " OF")
......@@ -194,7 +194,7 @@ followed by the first character of the construct.
(m2-tab))
(defun m2-for ()
"Build skeleton FOR loop statment, prompting for the loop parameters."
"Build skeleton FOR loop statement, prompting for the loop parameters."
(interactive)
(insert "FOR ")
(let ((name (read-string "Loop Initialiser: ")) limit by)
......@@ -224,7 +224,7 @@ followed by the first character of the construct.
(insert "*)\n\n"))
(defun m2-if ()
"Insert skeleton IF statment, prompting for <boolean-expression>."
"Insert skeleton IF statement, prompting for <boolean-expression>."
(interactive)
(insert "IF ")
(let ((thecondition (read-string "<boolean-expression>: ")))
......
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