view lisp/progmodes/modula2.el @ 1141:d4f6d7467916
(main): Use X menu code if HAVE_X_WINDOWS and not NO_X_MENU.
Eliminate HIGHPRI as compilation option.
(emacs_priority): New C variable, also Lisp variable.
(main): Set the priority iff emacs_priority is nonzero.
author
Richard M. Stallman <rms@gnu.org>
date
Mon, 14 Sep 1992 22:11:23 +0000 (1992-09-14)
parents
2cdce064065f
children
10e417efb12a
line source
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ;;; modula2.el --- Modula-2 editing support package
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ;; Author: Michael Schmidt <michael@pbinfo.UUCP>
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ;; Tom Perrine <Perrin@LOGICON.ARPA>
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ;; Keywords: languages
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ;; 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
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ;;; Code:
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ;;; Added by Tom Perrine (TEP)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defvar m2-mode-syntax-table nil
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Syntax table in use in Modula-2 buffers.")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defvar m2-compile-command "m2c"
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Command to compile Modula-2 programs")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defvar m2-link-command "m2l"
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Command to link Modula-2 programs")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defvar m2-link-name nil
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Name of the executable.")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (if m2-mode-syntax-table
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (let ((table (make-syntax-table)))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (modify-syntax-entry ?\\ "\\" table)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (modify-syntax-entry ?\( ". 1" table)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (modify-syntax-entry ?\) ". 4" table)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (modify-syntax-entry ?* ". 23" table)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (modify-syntax-entry ?+ "." table)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (modify-syntax-entry ?- "." table)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (modify-syntax-entry ?= "." table)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (modify-syntax-entry ?% "." table)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (modify-syntax-entry ?< "." table)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (modify-syntax-entry ?> "." table)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (modify-syntax-entry ?\' "\"" table)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq m2-mode-syntax-table table)))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ;;; Added by TEP
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defvar m2-mode-map nil
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Keymap used in Modula-2 mode.")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (if m2-mode-map ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (let ((map (make-sparse-keymap)))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\^i" 'm2-tab)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-cb" 'm2-begin)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-cc" 'm2-case)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-cd" 'm2-definition)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-ce" 'm2-else)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-cf" 'm2-for)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-ch" 'm2-header)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-ci" 'm2-if)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-cm" 'm2-module)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-cl" 'm2-loop)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-co" 'm2-or)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-cp" 'm2-procedure)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-c\C-w" 'm2-with)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-cr" 'm2-record)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-cs" 'm2-stdio)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-ct" 'm2-type)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-cu" 'm2-until)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-cv" 'm2-var)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-cw" 'm2-while)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-cx" 'm2-export)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-cy" 'm2-import)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-c{" 'm2-begin-comment)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-c}" 'm2-end-comment)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-j" 'm2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-c\C-z" 'suspend-emacs)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-c\C-v" 'm2-visit)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-c\C-t" 'm2-toggle)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-c\C-l" 'm2-link)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (define-key map "\C-c\C-c" 'm2-compile)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq m2-mode-map map)))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (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
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 followed by the first character of the construct.
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\<m2-mode-map>
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\[m2-begin] begin \\[m2-case] case
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\[m2-definition] definition \\[m2-else] else
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\[m2-for] for \\[m2-header] header
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\[m2-if] if \\[m2-module] module
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\[m2-loop] loop \\[m2-or] or
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\[m2-procedure] procedure Control-c Control-w with
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\[m2-record] record \\[m2-stdio] stdio
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\[m2-type] type \\[m2-until] until
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\[m2-var] var \\[m2-while] while
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\[m2-export] export \\[m2-import] import
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\[m2-begin-comment] begin-comment \\[m2-end-comment] end-comment
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\[suspend-emacs] suspend Emacs \\[m2-toggle] toggle
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\[m2-compile] compile \\[m2-next-error] next-error
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 \\[m2-link] link
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 `m2-indent' controls the number of spaces for each indentation.
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 `m2-compile-command' holds the command to compile a Modula-2 program.
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 `m2-link-command' holds the command to link a Modula-2 program."
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (kill-all-local-variables)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (use-local-map m2-mode-map)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq major-mode 'modula-2-mode)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq mode-name "Modula-2")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (make-local-variable 'comment-column)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq comment-column 41)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (make-local-variable 'end-comment-column)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq end-comment-column 75)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (set-syntax-table m2-mode-syntax-table)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (make-local-variable 'paragraph-start)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq paragraph-start (concat "^$\\|" page-delimiter))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (make-local-variable 'paragraph-separate)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq paragraph-separate paragraph-start)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (make-local-variable 'paragraph-ignore-fill-prefix)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq paragraph-ignore-fill-prefix t)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ; (make-local-variable 'indent-line-function)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ; (setq indent-line-function 'c-indent-line)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (make-local-variable 'require-final-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq require-final-newline t)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (make-local-variable 'comment-start)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq comment-start "(* ")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (make-local-variable 'comment-end)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq comment-end " *)")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (make-local-variable 'comment-column)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (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 'parse-sexp-ignore-comments)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq parse-sexp-ignore-comments t)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (run-hooks 'm2-mode-hook))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-newline ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Insert a newline and indent following line like previous line."
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (let ((hpos (current-indentation)))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (indent-to hpos)))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-tab ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Indent to next tab stop."
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (indent-to (* (1+ (/ (current-indentation) m2-indent)) m2-indent)))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-begin ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Insert a BEGIN keyword and indent for the next line."
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "BEGIN")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-case ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Build skeleton CASE statment, prompting for the <expression>."
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (let ((name (read-string "Case-Expression: ")))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "CASE " name " OF")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "END (* case " name " *);"))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (end-of-line 0)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-definition ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Build skeleton DEFINITION MODULE, prompting for the <module name>."
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "DEFINITION MODULE ")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (let ((name (read-string "Name: ")))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert name ";\n\n\n\nEND " name ".\n"))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (previous-line 3))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-else ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Insert ELSE keyword and indent for next line."
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (backward-delete-char-untabify m2-indent ())
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "ELSE")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-for ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Build skeleton FOR loop statment, prompting for the loop parameters."
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "FOR ")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (let ((name (read-string "Loop Initialiser: ")) limit by)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert name " TO ")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq limit (read-string "Limit: "))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert limit)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq by (read-string "Step: "))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (if (not (string-equal by ""))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert " BY " by))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert " DO")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "END (* for " name " to " limit " *);"))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (end-of-line 0)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-header ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Insert a comment block containing the module title, author, etc."
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "(*\n Title: \t")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert (read-string "Title: "))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "\n Created:\t")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert (current-time-string))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "\n Author: \t")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert (user-full-name))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert (concat "\n\t\t<" (user-login-name) "@" (system-name) ">\n"))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "*)\n\n"))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-if ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Insert skeleton IF statment, prompting for <boolean-expression>."
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "IF ")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (let ((thecondition (read-string "<boolean-expression>: ")))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert thecondition " THEN")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "END (* if " thecondition " *);"))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (end-of-line 0)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-loop ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Build skeleton LOOP (with END)."
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "LOOP")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "END (* loop *);")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (end-of-line 0)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-module ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Build skeleton IMPLEMENTATION MODULE, prompting for <module-name>."
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "IMPLEMENTATION MODULE ")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (let ((name (read-string "Name: ")))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert name ";\n\n\n\nEND " name ".\n")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (previous-line 3)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-header)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-type)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-var)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-begin)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-begin-comment)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert " Module " name " Initialisation Code "))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-end-comment)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-or ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (backward-delete-char-untabify m2-indent)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "|")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-procedure ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "PROCEDURE ")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (let ((name (read-string "Name: " ))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 args)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert name " (")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert (read-string "Arguments: ") ")")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq args (read-string "Result Type: "))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (if (not (string-equal args ""))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert " : " args))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert ";")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "BEGIN")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "END ")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert name)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert ";")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (end-of-line 0)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab)))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-with ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "WITH ")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (let ((name (read-string "Record-Type: ")))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert name)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert " DO")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "END (* with " name " *);"))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (end-of-line 0)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-record ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "RECORD")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "END (* record *);")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (end-of-line 0)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-stdio ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 FROM TextIO IMPORT
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 WriteCHAR, ReadCHAR, WriteINTEGER, ReadINTEGER,
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 WriteCARDINAL, ReadCARDINAL, WriteBOOLEAN, ReadBOOLEAN,
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 WriteREAL, ReadREAL, WriteBITSET, ReadBITSET,
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 WriteBasedCARDINAL, ReadBasedCARDINAL, WriteChars, ReadChars,
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 WriteString, ReadString, WhiteSpace, EndOfLine;
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 FROM SysStreams IMPORT sysIn, sysOut, sysErr;
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-type ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "TYPE")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-until ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "REPEAT")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "UNTIL ")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert (read-string "<boolean-expression>: ") ";")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (end-of-line 0)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-var ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "VAR")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-while ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "WHILE ")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (let ((name (read-string "<boolean-expression>: ")))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert name " DO" )
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-newline)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "END (* while " name " *);"))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (end-of-line 0)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (m2-tab))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-export ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "EXPORT QUALIFIED "))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-import ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "FROM ")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert (read-string "Module: "))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert " IMPORT "))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-begin-comment ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (if (not (bolp))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (indent-to comment-column 0))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "(* "))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-end-comment ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (if (not (bolp))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (indent-to end-comment-column))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (insert "*)"))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-compile ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq modulename (buffer-name))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (compile (concat m2-compile-command " " modulename)))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-link ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq modulename (buffer-name))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (if m2-link-name
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (compile (concat m2-link-command " " m2-link-name))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (compile (concat m2-link-command " "
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq m2-link-name (read-string "Name of executable: "
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 modulename))))))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun execute-monitor-command (command)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (let* ((shell shell-file-name)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (csh (equal (file-name-nondirectory shell) "csh")))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (call-process shell nil t t "-cf" (concat "exec " command))))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-visit ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (let ((deffile nil)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (modfile nil)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 modulename)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (save-excursion
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq modulename
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (read-string "Module name: "))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (switch-to-buffer "*Command Execution*")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (execute-monitor-command (concat "m2whereis " modulename))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (goto-char (point-min))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (condition-case ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (progn (re-search-forward "\\(.*\\.def\\) *$")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq deffile (buffer-substring (match-beginning 1)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (match-end 1))))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (search-failed ()))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (condition-case ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (progn (re-search-forward "\\(.*\\.mod\\) *$")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (setq modfile (buffer-substring (match-beginning 1)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (match-end 1))))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (search-failed ()))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (if (not (or deffile modfile))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (error "I can find neither definition nor implementation of %s"
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 modulename)))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (cond (deffile
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (find-file deffile)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (if modfile
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (save-excursion
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (find-file modfile))))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (modfile
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (find-file modfile)))))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (defun m2-toggle ()
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 "Toggle between .mod and .def files for the module."
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (interactive)
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (cond ((string-equal (substring (buffer-name) -4) ".def")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (find-file-other-window
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (concat (substring (buffer-name) 0 -4) ".mod")))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ((string-equal (substring (buffer-name) -4) ".mod")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (find-file-other-window
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (concat (substring (buffer-name) 0 -4) ".def")))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ((string-equal (substring (buffer-name) -3) ".mi")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (find-file-other-window
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (concat (substring (buffer-name) 0 -3) ".md")))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ((string-equal (substring (buffer-name) -3) ".md")
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (find-file-other-window
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 (concat (substring (buffer-name) 0 -3) ".mi")))))
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申
+ 鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃醇�鐃緒申��申鐃醇柑鐃緒��鰹申薜合�渇��膩��渇����鐃緒申鐃緒申��膩��鰹申鐃順�渇����鐃初��膩��鰹申鐃順�渇����紮�鐃醇�鐃緒申��申鐃醇�鐃緒申鐃緒申��膩��渇��膩��鰹申鐃処��申鐃初姐�渇����鐃醇�鐃緒申鐃緒申膣�申����鐃初��膩��渇��膩��鰹申鐃緒申鐃初����鐃緒申��申鐃初姐�渇����鐃醇�鐃緒申��申鐃緒申 ;;; modula2.el ends here