From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 4 Jan 1996 23:45:36 +0000 (+0000)
Subject: (m2-case, m2-for, m2-if): Doc fix.
X-Git-Tag: emacs-19.34~1863
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f951869d02739d683bff5d03787c49de4e86747d;p=emacs.git

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

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