1 |
;;; modula2.el --- Modula-2 editing support package |
;;; modula2.el --- Modula-2 editing support package |
2 |
|
|
3 |
;; Author: Michael Schmidt <michael@pbinfo.UUCP> |
;; Author: Michael Schmidt <michael@pbinfo.UUCP> |
4 |
;; Tom Perrine <Perrin@LOGICON.ARPA> |
;; Tom Perrine <Perrin@LOGICON.ARPA> |
5 |
;; Maintainer: FSF |
;; Maintainer: FSF |
6 |
;; Keywords: languages |
;; Keywords: languages |
104 |
(define-key map "\C-c\C-c" 'm2-compile) |
(define-key map "\C-c\C-c" 'm2-compile) |
105 |
(setq m2-mode-map map))) |
(setq m2-mode-map map))) |
106 |
|
|
107 |
(defcustom m2-indent 5 |
(defcustom m2-indent 5 |
108 |
"*This variable gives the indentation in Modula-2-Mode." |
"*This variable gives the indentation in Modula-2-Mode." |
109 |
:type 'integer |
:type 'integer |
110 |
:group 'modula2) |
:group 'modula2) |
111 |
|
|
112 |
;;;###autoload |
;;;###autoload |
113 |
(defun modula-2-mode () |
(defun modula-2-mode () |
114 |
"This is a mode intended to support program development in Modula-2. |
"This is a mode intended to support program development in Modula-2. |
429 |
(defun m2-stdio () |
(defun m2-stdio () |
430 |
(interactive) |
(interactive) |
431 |
(insert " |
(insert " |
432 |
FROM TextIO IMPORT |
FROM TextIO IMPORT |
433 |
WriteCHAR, ReadCHAR, WriteINTEGER, ReadINTEGER, |
WriteCHAR, ReadCHAR, WriteINTEGER, ReadINTEGER, |
434 |
WriteCARDINAL, ReadCARDINAL, WriteBOOLEAN, ReadBOOLEAN, |
WriteCARDINAL, ReadCARDINAL, WriteBOOLEAN, ReadBOOLEAN, |
435 |
WriteREAL, ReadREAL, WriteBITSET, ReadBITSET, |
WriteREAL, ReadREAL, WriteBITSET, ReadBITSET, |