mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Karl Heuer 1996-01-04 23:45:36 +00:00
parent bd0343fe35
commit f951869d02
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/modula2.el
View file

@ -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>: ")))