mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -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)) (m2-tab))
(defun m2-case () (defun m2-case ()
"Build skeleton CASE statment, prompting for the <expression>." "Build skeleton CASE statement, prompting for the <expression>."
(interactive) (interactive)
(let ((name (read-string "Case-Expression: "))) (let ((name (read-string "Case-Expression: ")))
(insert "CASE " name " OF") (insert "CASE " name " OF")
@ -194,7 +194,7 @@ followed by the first character of the construct.
(m2-tab)) (m2-tab))
(defun m2-for () (defun m2-for ()
"Build skeleton FOR loop statment, prompting for the loop parameters." "Build skeleton FOR loop statement, prompting for the loop parameters."
(interactive) (interactive)
(insert "FOR ") (insert "FOR ")
(let ((name (read-string "Loop Initialiser: ")) limit by) (let ((name (read-string "Loop Initialiser: ")) limit by)
@ -224,7 +224,7 @@ followed by the first character of the construct.
(insert "*)\n\n")) (insert "*)\n\n"))
(defun m2-if () (defun m2-if ()
"Insert skeleton IF statment, prompting for <boolean-expression>." "Insert skeleton IF statement, prompting for <boolean-expression>."
(interactive) (interactive)
(insert "IF ") (insert "IF ")
(let ((thecondition (read-string "<boolean-expression>: "))) (let ((thecondition (read-string "<boolean-expression>: ")))