Mercurial > emacs
comparison lisp/progmodes/modula2.el @ 82919:8216d4de9641
(m2-definition, m2-module): Don't use previous-line.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Mon, 27 Aug 2007 13:37:50 +0000 |
| parents | a11fdee52c05 |
| children | b83d0dadb2a7 1e3a407766b9 |
comparison
equal
deleted
inserted
replaced
| 82918:bee1c9ad195a | 82919:8216d4de9641 |
|---|---|
| 293 "Build skeleton DEFINITION MODULE, prompting for the <module name>." | 293 "Build skeleton DEFINITION MODULE, prompting for the <module name>." |
| 294 (interactive) | 294 (interactive) |
| 295 (insert "DEFINITION MODULE ") | 295 (insert "DEFINITION MODULE ") |
| 296 (let ((name (read-string "Name: "))) | 296 (let ((name (read-string "Name: "))) |
| 297 (insert name ";\n\n\n\nEND " name ".\n")) | 297 (insert name ";\n\n\n\nEND " name ".\n")) |
| 298 (previous-line 3)) | 298 (forward-line -3)) |
| 299 | 299 |
| 300 (defun m2-else () | 300 (defun m2-else () |
| 301 "Insert ELSE keyword and indent for next line." | 301 "Insert ELSE keyword and indent for next line." |
| 302 (interactive) | 302 (interactive) |
| 303 (m2-newline) | 303 (m2-newline) |
| 362 "Build skeleton IMPLEMENTATION MODULE, prompting for <module-name>." | 362 "Build skeleton IMPLEMENTATION MODULE, prompting for <module-name>." |
| 363 (interactive) | 363 (interactive) |
| 364 (insert "IMPLEMENTATION MODULE ") | 364 (insert "IMPLEMENTATION MODULE ") |
| 365 (let ((name (read-string "Name: "))) | 365 (let ((name (read-string "Name: "))) |
| 366 (insert name ";\n\n\n\nEND " name ".\n") | 366 (insert name ";\n\n\n\nEND " name ".\n") |
| 367 (previous-line 3) | 367 (forward-line -3) |
| 368 (m2-header) | 368 (m2-header) |
| 369 (m2-type) | 369 (m2-type) |
| 370 (newline) | 370 (newline) |
| 371 (m2-var) | 371 (m2-var) |
| 372 (newline) | 372 (newline) |