(c-forward-label): Fix for QT macros.

[gnu-emacs] / lisp / progmodes / modula2.el

diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el
index 802ed26eb1fa83d89755204bb8e7a3d6268737f0..9d226cefbd465dd40b9ff7883ebe046b7fcd6449 100644 (file)
--- a/lisp/progmodes/modula2.el
+++ b/lisp/progmodes/modula2.el
@@ -24,6 +24,7 @@
 
 (defgroup modula2 nil
   "Major mode for editing Modula-2 code."
+  :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
   :prefix "m2-"
   :group 'languages)
 
@@ -294,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."
@@ -363,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)
@@ -563,5 +564,5 @@ FROM SysStreams IMPORT sysIn, sysOut, sysErr;
 
 (provide 'modula2)
 
-;;; arch-tag: a21df1cb-5ece-4709-9219-1e7cd2d85d90
+;; arch-tag: a21df1cb-5ece-4709-9219-1e7cd2d85d90
 ;;; modula2.el ends here