-; Modula-2 editing support package
-; Author Mick Jordan
-; amended Peter Robinson
-; ported to GNU Michael Schmidt
-;;;From: "Michael Schmidt" <michael@pbinfo.UUCP>
-;;;Modified by Tom Perrine <Perrin@LOGICON.ARPA> (TEP)
+;;; modula2.el --- Modula-2 editing support package
+;; Author: Michael Schmidt <michael@pbinfo.UUCP>
+;; Tom Perrine <Perrin@LOGICON.ARPA>
+;; Keywords: languages
-;;; Added by TEP
+;; The authors distributed this without a copyright notice
+;; back in 1988, so it is in the public domain. The original included
+;; the following credit:
+
+;; Author Mick Jordan
+;; amended Peter Robinson
+
+;;; Commentary:
+
+;; A major mode for editing Modula-2 code. It provides convenient abbrevs
+;; for Modula-2 keywords, knows about the standard layout rules, and supports
+;; a native compile command.
+
+;;; Code:
+
+;;; Added by Tom Perrine (TEP)
(defvar m2-mode-syntax-table nil
"Syntax table in use in Modula-2 buffers.")
(defvar m2-indent 5 "*This variable gives the indentation in Modula-2-Mode")
+;;;###autoload
(defun modula-2-mode ()
"This is a mode intended to support program development in Modula-2.
All control constructs of Modula-2 can be reached by typing C-c
(setq comment-column 41)
(make-local-variable 'comment-start-skip)
(setq comment-start-skip "/\\*+ *")
- (make-local-variable 'comment-indent-hook)
- (setq comment-indent-hook 'c-comment-indent)
+ (make-local-variable 'comment-indent-function)
+ (setq comment-indent-function 'c-comment-indent)
(make-local-variable 'parse-sexp-ignore-comments)
(setq parse-sexp-ignore-comments t)
(run-hooks 'm2-mode-hook))
((string-equal (substring (buffer-name) -3) ".md")
(find-file-other-window
(concat (substring (buffer-name) 0 -3) ".mi")))))
+
+;;; modula2.el ends here