(m2-definition, m2-module): Don't use previous-line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1bfbc6f346061f1725b26f1382325fe7b2312a07..02011db669539219d89399cba6bb959b6fa114b5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-27  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+       * progmodes/modula2.el (m2-definition, m2-module):
+       Don't use previous-line.  Reported by T. V. Raman.
+
 2007-08-27  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
        * term/mac-win.el (mac-handle-toolbar-switch-mode): Add explicit

diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el
index fde526ab303a39fb5056c946b614c3129493991f..f2530a7f502cc90ef4919c8546ca26e1d953be53 100644 (file)
--- a/lisp/progmodes/modula2.el
+++ b/lisp/progmodes/modula2.el
@@ -295,7 +295,7 @@ followed by the first character of the construct.
   (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 @@ followed by the first character of the construct.
   (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)