Mercurial > emacs

changeset 13997:a56ed7721b43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(m2-case, m2-for, m2-if): Doc fix.
author Karl Heuer <kwzh@gnu.org>
date Thu, 04 Jan 1996 23:45:36 +0000
parents 83174bce6c29
children 2f2d3995b57f
files lisp/progmodes/modula2.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/modula2.el	Thu Jan 04 23:45:17 1996 +0000
+++ b/lisp/progmodes/modula2.el	Thu Jan 04 23:45:36 1996 +0000
@@ -166,7 +166,7 @@
   (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 @@
   (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 @@
   (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>: ")))