diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2007-08-27 13:37:50 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2007-08-27 13:37:50 +0000 |
| commit | f84d70eb75280b405cf74f22abf2ed0302c744cf (patch) | |
| tree | 5d40d5ac36f8b0de9f9c0049b213f769b6389886 /lisp | |
| parent | dc654256f57bed68dbb0f3792580912eb5a78e7c (diff) | |
| download | emacs-f84d70eb75280b405cf74f22abf2ed0302c744cf.tar.gz | |
(m2-definition, m2-module): Don't use previous-line.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/modula2.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |