;ELC   
;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul  5 23:20:52 1993
;;; from file /gd/gnu/emacs/19.0/lisp/icon.el
;;; emacs version 19.15.16.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19"))

(defvar icon-mode-abbrev-table nil "\
Abbrev table in use in Icon-mode buffers.")
(define-abbrev-table (quote icon-mode-abbrev-table) nil)
(defvar icon-mode-map nil "\
Keymap used in Icon mode.")
(byte-code "„7 Б ВГД#€ВЕД#€ВЖЗ#€ВИЙ#€ВКЛ#€ВМН#€ВОП#€ВРС#€Б‡" [icon-mode-map make-sparse-keymap define-key "{" electric-icon-brace "}" "" mark-icon-function "" beginning-of-icon-defun "" end-of-icon-defun "" indent-icon-exp "" backward-delete-char-untabify "	" icon-indent-command] 4)
(defvar icon-mode-syntax-table nil "\
Syntax table in use in Icon-mode buffers.")
(byte-code "„a Б ВГД#€ВЕЖ#€ВЗИ#€ВЙК#€ВЛК#€ВМК#€ВНК#€ВОК#€ВПК#€ВРК#€ВСК#€ВТК#€ВУК#€ВФК#€ВХЦ#€Б‡" [icon-mode-syntax-table make-syntax-table modify-syntax-entry 92 "\\" 35 "<" 10 ">" 36 "." 47 42 43 45 61 37 60 62 38 124 39 "\""] 4)
(defconst icon-indent-level 4 "\
*Indentation of Icon statements with respect to containing block.")
(defconst icon-brace-imaginary-offset 0 "\
*Imagined indentation of a Icon open brace that actually follows a statement.")
(defconst icon-brace-offset 0 "\
*Extra indentation for braces, compared with other text in same context.")
(defconst icon-continued-statement-offset 4 "\
*Extra indent for lines not starting new statements.")
(defconst icon-continued-brace-offset 0 "\
*Extra indent for substatements that start with open-braces.
This is in addition to icon-continued-statement-offset.")
(defconst icon-auto-newline nil "\
*Non-nil means automatically newline before and after braces
inserted in Icon code.")
(defconst icon-tab-always-indent t "\
*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.")
(defalias 'icon-mode #[nil "А €Б\n!€ГЕЙ\n!€ЛМ!€НPЛП!€ЛР!€СЛТ!€УЛФ!€ХЛЦ!€ЧЛШ!€ЩЛЪ!€ЫЛЬ!€ЭЮЯ!‡" [kill-all-local-variables use-local-map icon-mode-map icon-mode major-mode "Icon" mode-name icon-mode-abbrev-table local-abbrev-table set-syntax-table icon-mode-syntax-table make-local-variable paragraph-start "^$\\|" page-delimiter paragraph-separate indent-line-function icon-indent-line require-final-newline t comment-start "# " comment-end "" comment-column 32 comment-start-skip "# *" comment-indent-function icon-comment-indent run-hooks icon-mode-hook] 2 "\
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." nil])
(defalias (quote icon-comment-indent) #[nil "АБ!ѓ В‡ЉГДx€nѓ В‚ iT])‡" [looking-at "^#" 0 " 	" nil comment-column] 2])
(defalias 'electric-icon-brace #[(arg) "А\n„A lѓA ЉГАx€n)„ ѓA Е €Ж €c€Е €ѓ3 Ж €`ИZЕ €Љ	ѓ< 	Tb€ЙК!€)	ѓR Љ	b€ЛМ\n!!)‚W ЛМ\n!!)‡" [nil insertpos arg " 	" icon-auto-newline icon-indent-line newline last-command-char 2 delete-char -1 self-insert-command prefix-numeric-value] 3 "\
Insert character and correct line's indentation." "P"])
(defalias (quote icon-indent-command) #[(&optional whole-exp) "ѓ3 Б В‰Љѓ Зy€`ИЙ!€`b€Йy€`)V…1 КЛ$+‡„E ЉМВx€n)„E Н ‡Б ‡" [whole-exp icon-indent-line nil end beg shift-amt icon-tab-always-indent 0 forward-sexp 1 indent-code-rigidly "#" " 	" insert-tab] 5 nil "P"])
(defalias 'icon-indent-line #[nil "АБ!Б‰‰d`ZЗy€`Б=ѓ\" И ‚† Й=ѓ0 К ‚† ЛМ!ѓ< З‚† НБw€<ѓK @ЛО!ѓc ЛП!„c ЉР €И )‚† gСU„o ЛТ!ѓy Z‚† gФUѓ† \\НБw€iZ‰ЗUѓҐ d\nZ`Vѓє d\nZb€‚є `|€j€d\nZ`Vѓє d\nZb€-‡" [calculate-icon-indent nil pos case-fold-search shift-amt beg indent 0 current-indentation t calculate-icon-indent-within-comment looking-at "[ 	]*#" " 	" "else\\b" "else\\s_" icon-backward-to-start-of-if 125 "end\\b" icon-indent-level 123 icon-brace-offset] 7 "\
Indent current line as Icon code.
Return the amount the indentation changed by."])
(defalias 'calculate-icon-indent #[(&optional parse-start) "ЉАy€`Б‰‰‰ѓ b€‚ И `Wѓ6 `Й`А#‰A@‚ К8„B Л8ѓH Л8‚ ѓ[ fМU„[ Tb€i‚ \nѓq Нe!€О ѓm ‚ А‚ „z И €`b€Н!€О ѓ© Р!€iЉb€СБw€g)М=ѓЈ ‚¤ А\\\\‚ b€ЉУФ!ѓє ХК!€‚Ѕ Цu€ЧБw€УШ!ѓН Цy€‚Ѕ `W…Х i)† nѓм АUѓм \\‚о СБx€nѓъ А‚ь Ь \\\\.‡" [0 nil toplevel containing-sexp state case-fold-search indent-point parse-start beginning-of-icon-defun parse-partial-sexp 3 4 123 icon-backward-to-noncomment icon-is-continuation-line icon-continued-statement-offset icon-backward-to-start-of-continued-exp " 	" icon-continued-brace-offset looking-at "procedure\\s " forward-sexp 1 " 	\n" "#" icon-indent-level icon-brace-offset icon-brace-imaginary-offset current-indentation] 6 "\
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."])
(byte-code "АВГД\"€ВЕЖ\"€ВЗИ\"€ВЙК\"‡" [(("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)) icon-resword-alist defalias icon-is-continuation-line #[nil "h‰z‰В=ѓ ГДv€`Еv€`{\"‚ З>?*‡" [ch ch-syntax 119 assoc -1 1 icon-resword-alist (0 59 125 123 41 93 34 39 10)] 4] icon-backward-to-noncomment #[(lim) "А‰	?…. Гx€`Еy€ЖЗ`\n\"8ѓ( `Wѓ( ИЙ!€‚ К‰‚ *‡" [nil stop opoint " 	\n" lim 0 5 parse-partial-sexp search-backward "#" t] 5] icon-backward-to-start-of-continued-exp #[(lim) "hА>ѓ\n БВ!€Гy€ДЕw€`Xѓ Tb‡З „$ Г‡gzИ=ѓ= Й`ЉКv€`){\"Aѓ= Г‡Г€М!‡" [(41 93) forward-sexp -1 0 " 	" nil lim icon-is-continued-line 119 assoc 1 icon-resword-alist icon-backward-to-start-of-continued-exp] 3] icon-is-continued-line #[nil "ЉА€Б )‡" [0 icon-is-continuation-line] 1]] 3)
(defalias 'icon-backward-to-start-of-if #[(&optional limit) "„ ЉБ €`)ВГЖU?…B ЗВ!€ИЙ!ѓ' T‰‚ ИК!ѓ4 S‰‚ `Wѓ Жb€‚ *‡" [limit beginning-of-icon-defun 1 nil case-fold-search if-level 0 backward-sexp looking-at "else\\b" "if\\b"] 3 "\
Move to the start of the last \"unbalanced\" if."])
(defalias 'mark-icon-function #[nil "А`!€Б €А`!€Вy€Г ‡" [push-mark end-of-icon-defun -1 beginning-of-icon-defun] 2 "\
Put mark at end of Icon function, point at beginning." nil])
(defalias 'beginning-of-icon-defun #[nil "АБeВ#ѓ ГД!‡Е‡" [re-search-backward "^procedure\\s \\|^end[ 	\n]" move looking-at "e" t] 4 "\
Go to the start of the enclosing procedure; return t if at top level." nil])
(defalias (quote end-of-icon-defun) #[nil "o„ Аu€БВdГ#€Аv€Дy‡" [-1 re-search-forward "\\(\\s \\|^\\)end\\(\\s \\|$\\)" move 1] 4 nil nil])
(defalias 'indent-icon-exp #[nil "АC`CА‰‰‰‰‰‰‰‰‰‰`Б	\nЉСТ!€)ЉАm?…Я?…Я\nА„Ў mѓV Х‰„Ў \n	Ц`А€`А‰\n%‰\n@\nAA@ѓѓ \nAA@БYѓѓ \nAA@Ч	8ѓЌ Ш €Щ\n8ѓљ Тy€‚F Х‰ѓK \nБXѓЄ Х„5 \nU„№ А\nVѓУ AAS‰‚» \nWѓп АBАBT‰‚Х @„\nA@†ЉСЪ!€`) €Тy€ЫАw€l„5 @ѓw@БYѓw@fЬU„1@‚ЏЉЭЮ!gЬUЯ!€а ѓ^б@!€\"iѓV#‚WБ\\\\‚sѓnд!€е ‚s@)‚Џж@…‚@[!''‰ €)gиU„›Эй!ѓў*ZgЬUѓЇ+\\iU„Б`Бy€`|€j€Э,!„5 н,ЉА€`)Х#ѓ5 о €Бy€‚5 .‡" [nil 0 next-depth opoint at-do at-brace at-else last-sexp this-indent ostate state inner-loop-done outer-loop-done restart case-fold-search contain-stack indent-stack forward-sexp 1 last-depth innerloop-done 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-continued-statement-offset icon-continued-brace-offset icon-backward-to-start-of-if current-indentation calculate-icon-indent val 125 "end\\b" icon-indent-level icon-brace-offset comment-start-skip re-search-forward indent-for-comment] 16 "\
Indent each line of the Icon grouping following point." nil])