From 41fd2086e7cb98008e3511218f1962c4ff55a04a Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Mon, 27 Aug 2007 13:41:54 +0000 Subject: [PATCH] (m2-definition, m2-module): Don't use previous-line. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/modula2.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1bfbc6f3460..02011db6695 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-08-27 Thien-Thi Nguyen + + * progmodes/modula2.el (m2-definition, m2-module): + Don't use previous-line. Reported by T. V. Raman. + 2007-08-27 YAMAMOTO Mitsuharu * term/mac-win.el (mac-handle-toolbar-switch-mode): Add explicit diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el index fde526ab303..f2530a7f502 100644 --- 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) -- 2.39.2