# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1188221870 0
# Node ID 8216d4de9641d82bf9d8ba1e011833d8b26f6c5a
# Parent  bee1c9ad195a5c6427378109da69a77057d46423
(m2-definition, m2-module): Don't use previous-line.

diff -r bee1c9ad195a -r 8216d4de9641 lisp/progmodes/modula2.el
--- a/lisp/progmodes/modula2.el	Mon Aug 27 09:30:04 2007 +0000
+++ b/lisp/progmodes/modula2.el	Mon Aug 27 13:37:50 2007 +0000
@@ -295,7 +295,7 @@
   (insert "DEFINITION MODULE ")
   (let ((name (read-string "Name: ")))
     (insert name ";\n\n\n\nEND " name ".\n"))
-  (previous-line 3))
+  (forward-line -3))
 
 (defun m2-else ()
   "Insert ELSE keyword and indent for next line."
@@ -364,7 +364,7 @@
   (insert "IMPLEMENTATION MODULE ")
   (let ((name (read-string "Name: ")))
     (insert name ";\n\n\n\nEND " name ".\n")
-    (previous-line 3)
+    (forward-line -3)
     (m2-header)
     (m2-type)
     (newline)