From f951869d02739d683bff5d03787c49de4e86747d Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 4 Jan 1996 23:45:36 +0000 Subject: [PATCH] (m2-case, m2-for, m2-if): Doc fix. --- lisp/progmodes/modula2.el | 6 +++--- 1 file 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 ." + "Build skeleton CASE statement, prompting for the ." (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 ." + "Insert skeleton IF statement, prompting for ." (interactive) (insert "IF ") (let ((thecondition (read-string ": "))) -- 2.39.2