diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-04 23:45:36 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-04 23:45:36 +0000 |
| commit | f951869d02739d683bff5d03787c49de4e86747d (patch) | |
| tree | cb2c56e574f11d5cc921d4bc5cfcfc3066fcf206 /lisp | |
| parent | bd0343fe35babe0f9be3b55b1a4256a4cb711425 (diff) | |
| download | emacs-f951869d02739d683bff5d03787c49de4e86747d.tar.gz | |
(m2-case, m2-for, m2-if): Doc fix.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/modula2.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el index c80fbab844b..12c6befae9d 100644 --- a/lisp/progmodes/modula2.el +++ b/lisp/progmodes/modula2.el @@ -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>: "))) |