Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
antlr-mode.elc	77.56 KB	-rw-r--r--
asm-mode.elc	7.42 KB	-rw-r--r--
autoconf.elc	4.55 KB	-rw-r--r--
bat-mode.elc	6.56 KB	-rw-r--r--
bug-reference.elc	7.3 KB	-rw-r--r--
cc-align.elc	39.52 KB	-rw-r--r--
cc-awk.elc	17.95 KB	-rw-r--r--
cc-bytecomp.elc	10.56 KB	-rw-r--r--
cc-cmds.elc	97.51 KB	-rw-r--r--
cc-defs.elc	66.37 KB	-rw-r--r--
cc-engine.elc	231.26 KB	-rw-r--r--
cc-fonts.elc	153.13 KB	-rw-r--r--
cc-guess.elc	13.35 KB	-rw-r--r--
cc-langs.elc	110.05 KB	-rw-r--r--
cc-menus.elc	8.05 KB	-rw-r--r--
cc-mode.elc	227.86 KB	-rw-r--r--
cc-styles.elc	16.66 KB	-rw-r--r--
cc-vars.elc	77.01 KB	-rw-r--r--
cfengine.elc	48.18 KB	-rw-r--r--
cmacexp.elc	6.2 KB	-rw-r--r--
compile.elc	92.53 KB	-rw-r--r--
cperl-mode.elc	212.98 KB	-rw-r--r--
cpp.elc	23.2 KB	-rw-r--r--
cwarn.elc	11.9 KB	-rw-r--r--
dcl-mode.elc	50.32 KB	-rw-r--r--
ebnf-abn.elc	6.95 KB	-rw-r--r--
ebnf-bnf.elc	8.02 KB	-rw-r--r--
ebnf-dtd.elc	13.53 KB	-rw-r--r--
ebnf-ebx.elc	8.12 KB	-rw-r--r--
ebnf-iso.elc	7.77 KB	-rw-r--r--
ebnf-otz.elc	8.47 KB	-rw-r--r--
ebnf-yac.elc	7.4 KB	-rw-r--r--
ebnf2ps.elc	121.12 KB	-rw-r--r--
ebrowse.elc	202.8 KB	-rw-r--r--
elisp-mode.elc	58.74 KB	-rw-r--r--
etags.elc	61.3 KB	-rw-r--r--
executable.elc	7.83 KB	-rw-r--r--
f90.elc	95.13 KB	-rw-r--r--
flymake-cc.elc	3.55 KB	-rw-r--r--
flymake-proc.elc	38.04 KB	-rw-r--r--
flymake.elc	63.5 KB	-rw-r--r--
fortran.elc	59.75 KB	-rw-r--r--
gdb-mi.elc	188.72 KB	-rw-r--r--
glasses.elc	10.37 KB	-rw-r--r--
grep.elc	40.95 KB	-rw-r--r--
gud.elc	98.55 KB	-rw-r--r--
hideif.elc	48.36 KB	-rw-r--r--
hideshow.elc	25.56 KB	-rw-r--r--
icon.elc	16.75 KB	-rw-r--r--
idlw-complete-structtag.elc	4.22 KB	-rw-r--r--
idlw-help.elc	35.91 KB	-rw-r--r--
idlw-shell.elc	129.89 KB	-rw-r--r--
idlw-toolbar.elc	27.44 KB	-rw-r--r--
idlwave.elc	250.95 KB	-rw-r--r--
inf-lisp.elc	21.06 KB	-rw-r--r--
js.elc	176.3 KB	-rw-r--r--
ld-script.elc	5.44 KB	-rw-r--r--
m4-mode.elc	6.34 KB	-rw-r--r--
make-mode.elc	62.21 KB	-rw-r--r--
meta-mode.elc	31.41 KB	-rw-r--r--
mixal-mode.elc	36.18 KB	-rw-r--r--
modula2.elc	30.37 KB	-rw-r--r--
octave.elc	63.2 KB	-rw-r--r--
opascal.elc	52.47 KB	-rw-r--r--
pascal.elc	39.22 KB	-rw-r--r--
perl-mode.elc	29.41 KB	-rw-r--r--
prog-mode.elc	15.82 KB	-rw-r--r--
project.elc	17.06 KB	-rw-r--r--
prolog.elc	85.47 KB	-rw-r--r--
ps-mode.elc	33 KB	-rw-r--r--
python.elc	178.17 KB	-rw-r--r--
ruby-mode.elc	63.86 KB	-rw-r--r--
scheme.elc	18.81 KB	-rw-r--r--
sh-script.elc	116.3 KB	-rw-r--r--
simula.elc	44.83 KB	-rw-r--r--
sql.elc	182.59 KB	-rw-r--r--
subword.elc	18.77 KB	-rw-r--r--
tcl.elc	40.14 KB	-rw-r--r--
vera-mode.elc	45.08 KB	-rw-r--r--
verilog-mode.elc	450.39 KB	-rw-r--r--
vhdl-mode.elc	528.7 KB	-rw-r--r--
which-func.elc	10.4 KB	-rw-r--r--
xref.elc	56.91 KB	-rw-r--r--
xscheme.elc	38 KB	-rw-r--r--

Code Editor : modula2.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313&	\207" [require smie custom-declare-group modula2 nil "Major mode for editing Modula-2 code." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :prefix "m2-" :group languages] 10)
#@42 Syntax table in use in Modula-2 buffers.
(defvar m2-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\320#\210\302\322\320#\210\302\323\320#\210\302\324\320#\210\302\325\320#\210\302\326\327#\210)\207" [table make-syntax-table modify-syntax-entry 92 "\\" 47 ". 12" 10 ">" 40 "()1" 41 ")(4" 42 ". 23nb" 43 "." 45 61 37 60 62 39 "\""] 4) (#$ . 675))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\316\306\307&\210\300\317\320\321\304\322\306\307&\207" [custom-declare-variable m2-compile-command "m2c" "Command to compile Modula-2 programs." :type string :group modula2 m2-link-command "m2l" "Command to link Modula-2 programs." m2-link-name nil "Name of the Modula-2 executable." (choice (const nil) string) m2-end-comment-column 75 "Column for aligning the end of a comment, in Modula-2." integer] 8)
#@31 Keymap used in Modula-2 mode.
(defvar m2-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210\302\363\364#\210\302\365\366#\210\302\367\370#\210)\207" [map make-sparse-keymap define-key "b" m2-begin "c" m2-case "d" m2-definition "e" m2-else "f" m2-for "h" m2-header "i" m2-if "m" m2-module "l" m2-loop "o" m2-or "p" m2-procedure "" m2-with "r" m2-record "s" m2-stdio "t" m2-type "u" m2-until "v" m2-var "w" m2-while "x" m2-export "y" m2-import "{" m2-begin-comment "}" m2-end-comment "" suspend-emacs "" m2-visit "" m2-toggle "\f" m2-link "" m2-compile] 4) (#$ . 1674))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\301\311\312#\207" [custom-declare-variable m2-indent 5 "This variable gives the indentation in Modula-2 mode." :type integer :group modula2 put safe-local-variable #[(v) "?\206�\250\207" [v] 1]] 8)
(defconst m2-smie-grammar '((:smie-closer-alist (#22="RECORD" . #28="END") (#23="POINTER" . #27="TO") (#24="SET" . "OF-type") (#25="ARRAY" . #26="OF-type") (#21="(" . #20=")") (#1="PROCEDURE" . "END") (#1# . #17="BEGIN") ("PROCEDURE" . #12="FINALLY") (#18="PROCEDURE" . #19="FORWARD") (#2="CASE" . "END") (#2# . #11="OF") (#14="CASE" . #10="ELSE") (#15="LOOP" . "END") (#3="WITH" . "END") (#3# . #9="DO") (#16="REPEAT" . #13="UNTIL") (#4="WHILE" . "END") (#4# . "DO") (#5="FOR" . "END") (#5# . "DO") (#6="IF" . "END") (#6# . #8="THEN") ("IF" . "ELSE") ("IF" . #7="ELSIF") ("ARRAY" . "OF") ("SET" . "OF")) ("^" 150 163) ("." 151 164) ("~" 136 137) ("NOT" 138 139) ("&" 125 125) ("/" 125 125) ("*" 125 125) ("REM" 125 125) ("DIV" 125 125) ("MOD" 125 125) ("AND" 125 125) ("-" 114 114) ("+" 114 114) ("OR" 114 114) ("IN" 77 96) ("#" 78 97) ("<>" 79 98) (">" 80 99) (">=" 81 100) ("<=" 82 101) ("<" 83 102) (#7# 0 1) (#8# 1 0) (#9# 2 0) (#10# 0 0) (#11# 4 0) (":-case" 31 30) ("|" 18 18) (".." 162 162) (#12# 0 0) (#13# 3 59) (":=" 165 60) (#14# (166) 4) (#15# (167) 0) (#3# (168) 2) (#16# (169) 3) (#4# (170) 2) (#5# (171) 2) ("IF" (172) 1) (#17# 6 0) (#18# (173) 6) ("TYPE" (174) 34) ("CONST" (175) 33) ("VAR" (176) 32) (#19# 6 (177)) ("-anchor-" 84 58) (";-block" 19 19) ("=" 56 57) (#20# 5 (178)) ("VAR-arg" (179) 62) ("CONST-arg" (180) 63) (#21# (181) 5) (#22# (182) 0) (#23# (183) 17) (#24# (184) 4) (#25# (185) 4) ("," 103 103) (":" 85 66) (#26# 4 64) ("PROCEDURE-type" (186) 65) (#27# 17 61) (";" 45 45) (#28# 0 (187))))
(defalias 'm2-smie-refine-colon #[nil "\303\204T�\304 \211G\305U\203&�\303\3061�\307\310!0\202!�\210\311\211\210)\202P�	\312\267\2026�\313\202P�\311\202P�	G\305U\203P�\303\3141J�\307\310!0\202N�\210\311\211\210))\202�)\207" [res tok forward-sexp-function nil smie-default-backward-token 0 (scan-error) forward-sexp -1 ":" #s(hash-table size 10 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("|" 44 "OF" 44 ".." 44 ":" 49 "END" 49 ";" 49 "BEGIN" 49 "VAR" 49 "RECORD" 49 "PROCEDURE" 49)) ":-case" (scan-error)] 3])
(defalias 'm2-smie-refine-of #[nil "\302 \211G\303U\203 �\304\3051�\306\307!0\202�\210\202�\210\302 )\310\235\203*�\311\202+�\312)\207" [tok forward-sexp-function smie-default-backward-token 0 nil (scan-error) backward-sexp 1 ("ARRAY" "SET") "OF-type" "OF"] 3])
(defalias 'm2-smie-refine-semi #[nil "\300d!\210\301\302!\203\f�\303\207\304\207" [forward-comment looking-at "\$?:BEGIN\\|CONST\\|PROCEDURE\\|TYPE\\|VAR\$" ";-block" ";"] 2])
(defalias 'm2-smie-forward-token #[nil "\301 \211\302\267\202D�\303 @\304U\203�\305\202E�\306\202E�\303 @\304U\203%�\307\202E�\310\202E�\212\311 )\202E�\212\312u\210\313 )\202E�\212\314u\210\315 )\202E�)\207" [#1=#:val smie-default-forward-token #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("VAR" 9 "CONST" 25 ";" 41 "OF" 48 ":" 58)) syntax-ppss 0 "VAR" "VAR-arg" "CONST" "CONST-arg" m2-smie-refine-semi -2 m2-smie-refine-of -1 m2-smie-refine-colon] 3])
(defalias 'm2-smie-backward-token #[nil "\301 \211\302\267\202A�\303 @\304U\203�\305\202B�\306\202B�\303 @\304U\203%�\307\202B�\310\202B�\212\311u\210\312 )\202B�\212\313 )\202B�\212\314 )\202B�)\207" [#1=#:val smie-default-backward-token #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("VAR" 9 "CONST" 25 ";" 41 "OF" 51 ":" 58)) syntax-ppss 0 "VAR" "VAR-arg" "CONST" "CONST-arg" 1 m2-smie-refine-semi m2-smie-refine-of m2-smie-refine-colon] 3])
(defalias 'm2-smie-rules #[(kind token) "	B\306\n\307\267\202�\f\202\202�\f\206\202�
\202\202�\n:\203p�\n@\211\310=\203Z�\nA\211\311\235\2039�\f\206V�
\202V�\n\312\267\202U�\313\314!\205V�\315\f\206K�
!\202V�\316!\202V�\317)\202l�\n\320\267\202k� \202l�\316!\202l�\317)\202\202�\n\321\267\202\201� \202\202�\316!\202\202�\317*\207" [kind token #1=#:val #2=#:pcase-0 m2-indent smie-indent-basic #[nil "\302\303!\205
�\304\206\f�	!\207" [m2-indent smie-indent-basic smie-rule-parent-p #3="PROCEDURE" smie-rule-parent] 2] #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((:elem . basic) 12 (:after . ":=") 16)) :after ("TYPE" "VAR" "CONST") #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#4=(:after . ";-block") 63 #5=(:before . "|") 79)) smie-rule-parent-p #3# smie-rule-parent smie-rule-separator nil #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#4# 96 #5# 101)) #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (#4# 118 #5# 123)) #6=#:x0 #7=#:x1] 3])
(defalias 'modula-2-mode 'm2-mode)
(defvar m2-mode-hook nil)
(byte-code "\300\301N\204\f�\302\300\301\303#\210\304\305!\204�\302\305\306\307#\210\300\207" [m2-mode-hook variable-documentation put "Hook run after entering Modula-2 mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp m2-mode-map definition-name m2-mode] 4)
(defvar m2-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204�\303\301\302\304\305!#\210\306\307!\204�\303\307\310\311#\210\312\313 !\210\307\302N\204-�\303\307\302\304\314!#\210\306\300!\204B�\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P�\303\300\302\304\320!#\210\303\311\321\322#\207" [m2-mode-abbrev-table m2-mode-map variable-documentation put purecopy "Keymap for `m2-mode'." boundp m2-mode-syntax-table definition-name m2-mode (lambda (#1=#:def-tmp-var) (defvar m2-mode-syntax-table #1#)) make-syntax-table "Syntax table for `m2-mode'." (lambda (#1#) (defvar m2-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `m2-mode'." derived-mode-parent prog-mode] 5)
#@1240 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.

In addition to any hooks its parent mode `prog-mode' might have run,
this mode runs the hook `m2-mode-hook', as the final or penultimate step
during initialization.
(defalias 'm2-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203�\314\311\313\310\313N#\210\315!\204'�\316\317 \"\210\320\f!\211\2036�
\321 =\203<�\322\f\323 \"\210)\324.\325\"\204V�./=\204V�\326.\325/C#\210\327!\210\330\f!\210./\306\331!\210\3320P\306\333!\210\306\334!\210\307\306\335!\210\336\306\337!\210\340\306\341!\210\342!\306\343!\210\307#\306\344!\210\345$\3461\347\350\351\352\353&\210)\354\355!\207" [delay-mode-hooks major-mode mode-name m2-mode-map m2-mode-syntax-table parent make-local-variable t prog-mode m2-mode "Modula-2" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table paragraph-start "$\\|" paragraph-separate paragraph-ignore-fill-prefix comment-start "(* " comment-end " *)" comment-start-skip "\$?:(\\*+\\|//+\$ *" parse-sexp-ignore-comments font-lock-defaults ((m3-font-lock-keywords m3-font-lock-keywords-1 m3-font-lock-keywords-2) nil nil ((95 . "w") (46 . "w") (60 . ". 1") (62 . ". 4")) nil) smie-setup m2-smie-rules :forward-token m2-smie-forward-token :backward-token m2-smie-backward-token run-mode-hooks m2-mode-hook m2-mode-abbrev-table local-abbrev-table page-delimiter m2-smie-grammar] 8 (#$ . 8709) nil])
#@48 Subdued level highlighting for Modula-3 modes.
(defconst m3-font-lock-keywords-1 '(("\\<\$INTERFACE\\|MODULE\\|PROCEDURE\$\\>[ 	]*\$\\sw+\$?" (1 font-lock-keyword-face) (2 font-lock-function-name-face nil t)) ("\\<\$EXPORTS\\|FROM\\|IMPORT\$\\>" (1 font-lock-keyword-face) (font-lock-match-c-style-declaration-item-and-skip-to-next nil (goto-char (match-end 0)) (1 font-lock-constant-face))) ("<\\*[ 	]*\$\\sw+\$" 1 font-lock-warning-face prepend)) (#$ . 11307))
#@46 Gaudy level highlighting for Modula-3 modes.
(defconst m3-font-lock-keywords-2 (append m3-font-lock-keywords-1 '("\\<\$\\(?:A\\(?:N[DY]\\|S\$\\|B\$?:EGIN\\|RANDED\\|Y\$\\|C\$?:ASE\\|ONST\$\\|D\$?:IV\\|O\$\\|E\$?:LS\\(?:E\\|IF\$\\|VAL\\|X\$?:\\(?:CEP\\|I\$T\\)\\)\\|F\$?:INALLY\\|OR\$\\|GENERIC\\|I[FN]\\|LO\$?:CK\\|OP\$\\|M\$?:ETHODS\\|OD\$\\|NOT\\|O\$?:BJECT\\|VERRIDES\\|[FR]\$\\|RE\$?:ADONLY\\|CORD\\|F\\|PEAT\\|TURN\\|VEAL\$\\|T\$?:HEN\\|O\\|RY\\|YPE\\(?:CASE\$?\\)\\|UN\$?:SAFE\\|T\\(?:IL\\|RACED\$\\)\\|VA\$?:LUE\\|R\$\\|W\$?:HILE\\|ITH\$\\)\\)\\>" ("\\<\$\\(?:A\\(?:BS\\|DR\\(?:SIZE\$?\\)\\|B\$?:\\(?:IT\\|YTE\$SIZE\\)\\|CEILING\\|D\$?:EC\\|ISPOSE\$\\|F\$?:IRST\\|LOOR\$\\|I\$?:NC\\|STYPE\$\\|L\$?:AST\\|OOPHOLE\$\\|M\$?:AX\\|IN\$\\|N\$?:ARROW\\|EW\\|UMBER\$\\|ORD\\|ROUND\\|SUBARRAY\\|T\$?:RUNC\\|YPECODE\$\\|VAL\\)\\)\\>" . font-lock-builtin-face) ("\\<\$\\(?:A\\(?:DDRESS\\|RRAY\$\\|B\$?:ITS\\|OOLEAN\$\\|C\$?:ARDINAL\\|HAR\$\\|EXTENDED\\|FLOAT\\|INTEGER\\|LONGREAL\\|MUTEX\\|R\$?:E\\(?:AL\\|FANY\$\\|OOT\\)\\|\$?:SE\\|TEX\$T\\)\\)\\>" . font-lock-type-face) ("\\<\$END\\|EXCEPTION\\|RAISES?\$\\>[ 	{]*" (1 font-lock-keyword-face) (font-lock-match-c-style-declaration-item-and-skip-to-next nil (goto-char (match-end 0)) (1 font-lock-function-name-face))) ("\\<\$FALSE\\|NIL\\|NULL\\|TRUE\$\\>" . font-lock-constant-face))) (#$ . 11784))
#@53 Default expressions to highlight in Modula-3 modes.
(defvar m3-font-lock-keywords m3-font-lock-keywords-1 (#$ . 13199))
#@48 Subdued level highlighting for Modula-2 modes.
(defconst m2-font-lock-keywords-1 m3-font-lock-keywords-1 (#$ . 13325))
#@46 Gaudy level highlighting for Modula-2 modes.
(defconst m2-font-lock-keywords-2 m3-font-lock-keywords-2 (#$ . 13450))
#@53 Default expressions to highlight in Modula-2 modes.
(defvar m2-font-lock-keywords m2-font-lock-keywords-1 (#$ . 13573))
(put 'm2-begin 'no-self-insert t)
#@557 Insert a BEGIN keyword and indent for the next line.

This is a skeleton command (see `skeleton-insert').
Normally the skeleton text is inserted at point, with nothing "inside".
If there is a highlighted region, the skeleton text is wrapped
around the region text.

A prefix argument ARG says to wrap the skeleton around the next ARG words.
A prefix argument of -1 says to wrap around region, even if not highlighted.
A prefix argument of zero says to wrap around zero words---that is, nothing.
This is a way of overriding the use of a highlighted region.
(defalias 'm2-import #[(&optional str arg) "\302\303	#\207" [str arg skeleton-proxy-new ("Module: " n "FROM " str " IMPORT " > _ n)] 4 (#$ . 28694) "*P\nP"])
(defalias 'm2-begin-comment #[nil "n\204	�\301\302\"\210\303c\207" [comment-column indent-to 0 "(*  "] 3 nil nil])
(defalias 'm2-end-comment #[nil "n\204�j\210\301c\207" [m2-end-comment-column "*)"] 1 nil nil])
(defalias 'm2-compile #[nil "\301\302\303 Q!\207" [m2-compile-command compile " " buffer-name] 4 nil nil])
(defalias 'm2-link #[nil "\302\303	\206�\304\305\306 \"\211Q!\207" [m2-link-command m2-link-name compile " " read-string "Name of executable: " buffer-name] 6 nil nil])
(defalias 'm2-execute-monitor-command #[(command) "\303	\304\305\211\306\307\nP&)\207" [shell-file-name shell command call-process nil t "-cf" "exec "] 8])
(defalias 'm2-visit #[nil "\303\211\211\212\304\305!\306\307!\210\310\311P!\210eb\210\3121+�\313\314!\210\315\224\315\225{\2110\202/�\210\2020�\210\3161C�\313\317!\210\315\224\315\225{\2110\202G�\210\202H�\210\n\204U�	\204U�\320\321\"\210)\n\203j�\322\n!\210	\205q�\212\322	!)\202q�	\205q�\322	!+\207" [modulename modfile deffile nil read-string "Module name: " switch-to-buffer "*Command Execution*" m2-execute-monitor-command "m2whereis " (search-failed) re-search-forward "\$.*\\.def\$ *$" 1 (search-failed) "\$.*\\.mod\$ *$" error "I can find neither definition nor implementation of %s" find-file] 3 nil nil])
#@52 Toggle between .mod and .def files for the module.
(defalias 'm2-toggle #[nil "\300\301 \302\"\303\230\203�\304\300\301 \305\302#\306P!\207\300\301 \302\"\306\230\203*�\304\300\301 \305\302#\303P!\207\300\301 \307\"\310\230\203?�\304\300\301 \305\307#\311P!\207\300\301 \307\"\311\230\205S�\304\300\301 \305\307#\310P!\207" [substring buffer-name -4 ".def" find-file-other-window 0 ".mod" -3 ".mi" ".md"] 5 (#$ . 30650) nil])
(provide 'modula2)

${this.title}

Code Editor : modula2.elc