;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@43 Abbrev table in use in Icon-mode buffers.
(defvar icon-mode-abbrev-table nil (#$ . 84))
(define-abbrev-table 'icon-mode-abbrev-table nil)
#@27 Keymap used in Icon mode.
(defvar icon-mode-map (byte-code "\300\301!\302
\303\304#\210\302
\305\304#\210\302
\306\307#\210\302
\310\311#\210\302
\312\313#\210\302
\314\315#\210\302
\316\317#\210\207" [make-sparse-keymap "Icon" define-key "{" electric-icon-brace "}" "" mark-icon-function "
" beginning-of-icon-defun "" end-of-icon-defun "" indent-icon-exp "" backward-delete-char-untabify] 5) (#$ . 228))
#@21 Menu for Icon mode.
(defvar icon-mode-menu nil (#$ . 648))
(easy-menu-do-define 'icon-mode-menu icon-mode-map "Menu for Icon mode." '("Icon" ["Beginning of function" beginning-of-icon-defun] ["Comment Out Region" comment-region :enable mark-active] ["End of function" end-of-icon-defun] ["Indent Line" icon-indent-command] ["Indent Region" indent-region :enable mark-active]))
#@43 Syntax table in use in Icon-mode buffers.
(defvar icon-mode-syntax-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\311#\210\301\313\311#\210\301\314\311#\210\301\315\311#\210\301\316\311#\210\301\317\311#\210\301\320\311#\210\301\321\311#\210\301\322\311#\210\301\323\311#\210\301\324\325#\210\207" [make-syntax-table modify-syntax-entry 92 "\\" 35 "<" 10 ">" 36 "." 47 42 43 45 61 37 60 62 38 124 39 "\""] 5) (#$ . 1031))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\317%\210\310\323\312\313\324DD\325\316\317%\210\310\326\312\313\327DD\330\316\317%\210\310\331\312\313\332DD\333\316\317%\210\310\334\312\313\335DD\336\316\337%\210\310\340\312\313\341DD\342\316\337%\207" [custom-declare-group icon nil "Mode for editing Icon code." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :group languages custom-declare-variable icon-indent-level funcall function #[0 "\300\207" [4] 1 #1=""] "Indentation of Icon statements with respect to containing block." :type integer icon-brace-imaginary-offset #[0 "\300\207" [0] 1 #1#] "Imagined indentation of an Icon open brace that actually follows a statement." icon-brace-offset #[0 "\300\207" [0] 1 #1#] "Extra indentation for braces, compared with other text in same context." icon-continued-statement-offset #[0 "\300\207" [4] 1 #1#] "Extra indent for Icon lines not starting new statements." icon-continued-brace-offset #[0 "\300\207" [0] 1 #1#] "Extra indent for Icon substatements that start with open-braces.\nThis is in addition to `icon-continued-statement-offset'." icon-auto-newline #[0 "\300\207" [nil] 1 #1#] "Non-nil means automatically newline before and after braces Icon code.\nThis applies when braces are inserted." boolean icon-tab-always-indent #[0 "\300\207" [t] 1 #1#] "Non-nil means TAB in Icon mode should always reindent the current line.\nIt will then reindent, regardless of where in the line point is\nwhen the TAB command is used."] 8)
#@66 Imenu expression for Icon mode.  See `imenu-generic-expression'.
(defvar icon-imenu-generic-expression '((nil "^[ 	]*procedure[ 	]+\\(\\sw+\\)[ 	]*(" 1)) (#$ . 3108))
(defvar icon-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [icon-mode-hook variable-documentation put "Hook run after entering Icon mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp icon-mode-map definition-name icon-mode] 4)
(defvar icon-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\311\312 !\210\306\301N\204-\302\306\301\303\313!#\210\302\310\314\315#\207" [icon-mode-map variable-documentation put purecopy "Keymap for `icon-mode'." boundp icon-mode-syntax-table definition-name icon-mode (lambda (#1=#:def-tmp-var) (defvar icon-mode-syntax-table #1#)) make-syntax-table "Syntax table for `icon-mode'." derived-mode-parent prog-mode] 5)
#@1381 Major mode for editing Icon code.
Expression and list commands understand all Icon brackets.
Tab indents for Icon code.
Paragraphs are separated by blank lines only.
Delete converts tabs to spaces as it moves back.
\{icon-mode-map}
Variables controlling indentation style:
 icon-tab-always-indent
    Non-nil means TAB in Icon mode should always reindent the current line,
    regardless of where in the line point is when the TAB command is used.
 icon-auto-newline
    Non-nil means automatically newline before and after braces
    inserted in Icon code.
 icon-indent-level
    Indentation of Icon statements within surrounding block.
    The surrounding block's indentation is the indentation
    of the line on which the open-brace appears.
 icon-continued-statement-offset
    Extra indentation given to a substatement, such as the
    then-clause of an if or body of a while.
 icon-continued-brace-offset
    Extra indentation given to a brace that starts a substatement.
    This is in addition to `icon-continued-statement-offset'.
 icon-brace-offset
    Extra indentation for line if it starts with an open brace.
 icon-brace-imaginary-offset
    An open brace following other text is treated as if it were
    this far to the right of the start of its line.

Turning on Icon mode calls the value of the variable `icon-mode-hook'
with no args, if that value is non-nil.
(defalias 'icon-mode #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324!\210\325\f!\210
)\306\326!\210\327*P\306\330!\210\306\331!\210\332\306\333!\210\334\306\335!\210\336\306\337!\210\340\306\341!\210\342!\306\331!\210\332\306\343!\210\344#\306\345!\210+%\311,\236\204\237\346,B,)\347\350!\207" [delay-mode-hooks major-mode mode-name icon-mode-map icon-mode-syntax-table icon-mode-abbrev-table make-local-variable t prog-mode icon-mode "Icon" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table paragraph-start "$\\|" paragraph-separate indent-line-function icon-indent-line comment-start "# " comment-end "" comment-start-skip "# *" comment-indent-function icon-comment-indent font-lock-defaults ((icon-font-lock-keywords icon-font-lock-keywords-1 icon-font-lock-keywords-2) nil nil ((95 . "w")) beginning-of-defun (font-lock-mark-block-function . mark-defun)) imenu-generic-expression (icon-mode "\\<procedure\\>" "\\<end\\>" nil icon-forward-sexp-function) run-mode-hooks icon-mode-hook local-abbrev-table page-delimiter icon-imenu-generic-expression hs-special-modes-alist] 5 (#$ . 4156) nil])
(defalias 'icon-comment-indent #[0 "\301\302!\203\303\207\207" [comment-column looking-at "^#" 0] 2])
#@60 Insert character and correct line's indentation.

(fn ARG)
(defalias 'electric-icon-brace #[257 "\302
\204@l\203@\212\303\302x\210n)\204\203@\304 \210\305 \210	c\210\304 \210\2032\305 \210`\306Z\262
\304 \210\212\211\203;\211Tb\210\307\310!\210)\211\203O\212\211b\210\311\312!!)\207\311\312!!\207" [icon-auto-newline last-command-event nil " 	" icon-indent-line newline 2 delete-char -1 self-insert-command prefix-numeric-value] 5 (#$ . 7012) "P"])
#@550 Indent current line as Icon code, or in some cases insert a tab character.
If `icon-tab-always-indent' is non-nil (the default), always indent current
line.  Otherwise, indent the current line only if point is at the left margin
or in the line's indentation; otherwise insert a tab.

A numeric argument, regardless of its value, means indent rigidly all the
lines of the expression starting after point so that this line becomes
properly indented.  The relative indentation among the lines of the
expression are preserved.

(fn &optional WHOLE-EXP)
(defalias 'icon-indent-command #[256 "\211\2031\301 \302\211\212\203\303 \210`\262\304\305!\210`\262

b\210\305y\210`\262)\211V\2050\306\307$\207\204B\212\310\302x\210n)\204B\311 \207\301 \207" [icon-tab-always-indent icon-indent-line nil beginning-of-line forward-sexp 1 indent-code-rigidly "#" " 	" insert-tab] 9 (#$ . 7480) "P"])
#@81 Indent current line as Icon code.
Return the amount the indentation changed by.
(defalias 'icon-indent-line #[0 "\303\304!\304\211\211d`Z
\305 \210`\262\204\306 \262\202l\307\310!\203(\311\262\202l\312\304w\210<\2035@\262\307\313!\203M\307\314!\204M\212\315 \210\306 )\262\202lg\316U\204Y\307\317!\203a	Z\262\202lg\320U\203l\n\\\262\312\304w\210iZ\262\311U\203\213d
Z`V\203\237d
Zb\210\202\237`|\210j\210d
Z`V\203\237d
Zb\210)\207" [case-fold-search icon-indent-level icon-brace-offset calculate-icon-indent nil beginning-of-line current-indentation looking-at "^#" 0 " 	" "else\\b" "else\\s_" icon-backward-to-start-of-if 125 "end\\b" 123] 7 (#$ . 8382)])
#@213 Return appropriate indentation for current line as Icon code.
In usual case returns an integer: the column to indent to.
Returns nil if line starts inside a string, t if in a comment.

(fn &optional PARSE-START)
(defalias 'calculate-icon-indent #[256 "\212\306 \210`\307\211\211\211\203b\210\202\310 \262
`W\2032`\262\311`\312#\262A@\262\202\3138\204>\3148\203D\3148\202\362
\203W
f\315U\204W
Tb\210i\202\362\211\203l\316e!\210\317 \203h	\202\362\312\202\362
\204v\310 \210`\262b\210\316!\210\317 \203\241\320!\210	i\\\212b\210\321\307w\210g)\315=\203\234\n\202\235\312\\\202\362
b\210\212\322\323!\203\262\324\313!\210\202\265\325u\210\326\307w\210\322\327!\203\305\325y\210\202\265`W\205\314i)\206\362n\203\340\312U\203\340\f	\\\202\341\321\307x\210n\203\355\312\202\356
\\\330 \\)\266\205)\207" [case-fold-search icon-continued-statement-offset icon-continued-brace-offset icon-indent-level icon-brace-offset icon-brace-imaginary-offset beginning-of-line nil beginning-of-icon-defun parse-partial-sexp 0 3 4 123 icon-backward-to-noncomment icon-is-continuation-line icon-backward-to-start-of-continued-exp " 	" looking-at "procedure\\s " forward-sexp 1 " 	\n" "#" current-indentation] 10 (#$ . 9082)])
(defconst icon-resword-alist '(("by" . t) ("case" . t) ("create") ("do") ("dynamic" . t) ("else") ("every" . t) ("if" . t) ("global" . t) ("initial" . t) ("link" . t) ("local" . t) ("of") ("record" . t) ("repeat" . t) ("static" . t) ("then") ("to" . t) ("until" . t) ("while" . t)))
(defalias 'icon-is-continuation-line #[0 "h\211z\211\301=\203\302\303\304!\210`\303\305!\210`{\"\207
\306>?\207" [icon-resword-alist 119 assoc forward-word-strictly -1 1 (0 59 125 123 41 93 34 39 35 44 46 10)] 6])
#@12 

(fn LIM)
(defalias 'icon-backward-to-noncomment #[257 "\300\211\211?\205-\301x\210`\262\302 \210\303\304`\"8\203'`W\203'\305\306!\210\202\307\262
\202\207" [nil " 	\n\f" beginning-of-line 5 parse-partial-sexp search-backward "#" t] 7 (#$ . 10848)])
#@12 

(fn LIM)
(defalias 'icon-backward-to-start-of-continued-exp #[257 "h\301>\203\n\302\303!\210\304 \210\305\306w\210`
X\203\211Tb\207\307 \204\"\310\207gz\311=\203;\312`\212\313\314!\210`){\"A\203;\310\207\310\210\315
!\207" [icon-resword-alist (41 93) forward-sexp -1 beginning-of-line " 	" nil icon-is-continued-line 0 119 assoc forward-word-strictly 1 icon-backward-to-start-of-continued-exp] 5 (#$ . 11116)])
(defalias 'icon-is-continued-line #[0 "\212\300\210\301 )\207" [0 icon-is-continuation-line] 1])
#@70 Move to the start of the last "unbalanced" if.

(fn &optional LIMIT)
(defalias 'icon-backward-to-start-of-if #[256 "\211\204\f\212\301 \210`)\262
\302\303\211\304U?\205C\305\302!\210\306\307!\203'\211T\262
\202\306\310!\2034\211S\262
\202`W\203\304\262

b\210\202)\207" [case-fold-search beginning-of-icon-defun 1 nil 0 backward-sexp looking-at "else\\b" "if\\b"] 4 (#$ . 11641)])
#@55 Put mark at end of Icon function, point at beginning.
(defalias 'mark-icon-function #[0 "\300 \210\301 \210\300 \210\302\303!\210\304 \207" [push-mark end-of-icon-defun beginning-of-line 0 beginning-of-icon-defun] 2 (#$ . 12042) nil])
#@71 Go to the start of the enclosing procedure; return t if at top level.
(defalias 'beginning-of-icon-defun #[0 "\300\301e\302#\203\f\303\304!\207\305\207" [re-search-backward "^procedure\\s \\|^end[ 	\n]" move looking-at "e" t] 4 (#$ . 12283) nil])
(defalias 'end-of-icon-defun #[0 "o\204\300u\210\301\302d\303#\210\304\300!\210\305y\207" [-1 re-search-forward "\\(\\s \\|^\\)end\\(\\s \\|$\\)" move forward-word-strictly 1] 4 nil nil])
#@56 Indent each line of the Icon grouping following point.
(defalias 'indent-icon-exp #[0 "\306C`C\306\211\211\211\211\211\211\211\211`\307\n\212\310\311!\210)\212\306\262\nm?\205\216
	?\205\216
\211\262\306\262	\204pm\203=\312\211\262\204p\262\313`\306\210`\306\211\f%\262@\262
\3148\203]\315 \210\3168\203j\311y\210\202-\312\262	\202-\211\307X\203y\312\262\n	\204
V\203\225\fA\262
A\262\fS\262\202~
W\203\256\306
B\262
\306\fB\262\fT\262\202\225@\204\306A@\206\304\212\310\317!\210`)\240\210\311y\210\320\306w\210l\204\f@\2034
\f@\307Y\2034
@f\321U\204\360\f@\262\202I
\212\322\323!\262g\321U\262\324!\210\325 \203
\326\f@!\210	i\\\203
\n\202
\307\\\262\2020
\203+
\327!\210\330 \262\2020
\f@\262)\202I
\331
@\205?

@[!

\211\262	\240\266g\332U\204U
\322\333!\203Z
Z\262g\321U\203e
\f\\\262iU\204v
`\334 \210`|\210j\210\322
!\204\335
\336 \312#\203\337 \210\334 \210\202*\207" [case-fold-search icon-continued-statement-offset icon-continued-brace-offset icon-indent-level icon-brace-offset comment-start-skip nil 0 forward-sexp 1 t parse-partial-sexp 4 icon-indent-line 3 -1 " 	" 123 looking-at "else\\W" icon-backward-to-noncomment icon-is-continuation-line icon-backward-to-start-of-continued-exp icon-backward-to-start-of-if current-indentation calculate-icon-indent 125 "end\\b" beginning-of-line re-search-forward line-end-position indent-for-comment] 19 (#$ . 12727) nil])
#@43 Subdued level highlighting for Icon mode.
(defconst icon-font-lock-keywords-1 '(("^[ 	]*\\(procedure\\)\\>[ 	]*\\(\\sw+\\)?" (1 font-lock-builtin-face) (2 font-lock-function-name-face nil t))) (#$ . 14205))
#@41 Gaudy level highlighting for Icon mode.
(defconst icon-font-lock-keywords-2 (append icon-font-lock-keywords-1 '(("\\<\\(c\\(?:o-expression\\|set\\)\\|file\\|integer\\|list\\|null\\|real\\|s\\(?:et\\|tring\\)\\|table\\)\\>" . font-lock-type-face) ("\\<\\(b\\(?:reak\\|y\\)\\|c\\(?:\\(?:as\\|reat\\)e\\)\\|d\\(?:efault\\|o\\)\\|e\\(?:lse\\|very\\)\\|fail\\|if\\|n\\(?:\\(?:ex\\|o\\)t\\)\\|of\\|re\\(?:cord\\|peat\\|turn\\)\\|suspend\\|t\\(?:hen\\|o\\)\\|until\\|while\\)\\>" . font-lock-keyword-face) ("\\<\\(end\\|initial\\)\\>" . font-lock-builtin-face) ("\\(&\\(?:a\\(?:llocated\\|scii\\)\\|c\\(?:lock\\|o\\(?:l\\(?:lections\\|umn\\)?\\|ntrol\\)\\|\\(?:se\\|urren\\)t\\)\\|d\\(?:ate\\(?:line\\)?\\|igits\\|ump\\)\\|e\\(?:rro\\(?:r\\(?:number\\|text\\|value\\)?\\|ut\\)\\|vent\\(?:\\(?:cod\\|sourc\\|valu\\)e\\)\\)\\|f\\(?:ail\\|eatures\\|ile\\)\\|host\\|in\\(?:put\\|terval\\)\\|l\\(?:case\\|drag\\|e\\(?:tters\\|vel\\)\\|ine\\|press\\|release\\)\\|m\\(?:ain\\|drag\\|eta\\|press\\|release\\)\\|null\\|output\\|p\\(?:hi\\|i\\|os\\|rogname\\)\\|r\\(?:andom\\|drag\\|e\\(?:gions\\|size\\)\\|ow\\|press\\|release\\)\\|s\\(?:hift\\|ource\\|torage\\|ubject\\)\\|t\\(?:\\(?:im\\|rac\\)e\\)\\|ucase\\|version\\|window\\|[exy]\\)\\)" . font-lock-constant-face) ("^[ 	]*\\(global\\|l\\(?:ink\\|ocal\\)\\|static\\)\\(\\sw+\\>\\)*" (1 font-lock-builtin-face) (font-lock-match-c-style-declaration-item-and-skip-to-next (goto-char (or (match-beginning 2) (match-end 1))) nil (1 (if (match-beginning 2) font-lock-function-name-face font-lock-variable-name-face)))) ("^\\(\\$\\(?:define\\|\\(?:eli\\|\\(?:ifn?\\|un\\)de\\)f\\)\\)\\>[ 	]*\\([^ 	\n]+\\)?" (1 font-lock-builtin-face) (4 font-lock-variable-name-face nil t)) ("^\\(\\$\\(?:dump\\|e\\(?:lse\\|ndif\\)\\|include\\)\\)\\>" . font-lock-builtin-face) ("^\\(\\$\\(?:error\\|warning\\)\\)\\>[ 	]*\\(.+\\)?" (1 font-lock-builtin-face) (3 font-lock-warning-face nil t)))) (#$ . 14418))
#@50 Default expressions to highlight in `icon-mode'.
(defvar icon-font-lock-keywords icon-font-lock-keywords-1 (#$ . 16349))
#@12 

(fn ARG)
(defalias 'icon-forward-sexp-function #[257 "\211\300W\203	\301 \207\302 \210\303u\207" [0 beginning-of-icon-defun end-of-icon-defun -1] 3 (#$ . 16476)])
(provide 'icon)