;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Mon Aug 21 14:39:47 1995
;;; from file /home/fsf/rms/e19/lisp/icon.el
;;; emacs version 19.29.9.
;;; 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.29")))
    (error "`icon.el' was compiled for Emacs 19.29 or later"))


#@43 Abbrev table in use in Icon-mode buffers.
(defvar icon-mode-abbrev-table nil (#$ . 463))
(define-abbrev-table (quote icon-mode-abbrev-table) nil)
#@27 Keymap used in Icon mode.
(defvar icon-mode-map nil (#$ . 615))
(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)
#@43 Syntax table in use in Icon-mode buffers.
(defvar icon-mode-syntax-table nil (#$ . 988))
(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)
#@67 *Indentation of Icon statements with respect to containing block.
(defvar icon-indent-level 4 (#$ . -1330))
#@79 *Imagined indentation of a Icon open brace that actually follows a statement.
(defvar icon-brace-imaginary-offset 0 (#$ . -1444))
#@74 *Extra indentation for braces, compared with other text in same context.
(defvar icon-brace-offset 0 (#$ . -1580))
#@54 *Extra indent for lines not starting new statements.
(defvar icon-continued-statement-offset 4 (#$ . -1701))
#@118 *Extra indent for substatements that start with open-braces.
This is in addition to icon-continued-statement-offset.
(defvar icon-continued-brace-offset 0 (#$ . -1817))
#@85 *Non-nil means automatically newline before and after braces
inserted in Icon code.
(defvar icon-auto-newline nil (#$ . -1992))
#@145 *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.
(defvar icon-tab-always-indent t (#$ . -2127))
#@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 #[nil "А €Б\n!€ГЕЙ\n!€ЛМ!€НP\fЛП!€\fЛР!€СЛТ!€УЛФ!€ХЛЦ!€ЧЛШ!€ЩЛЪ!€ЫЛЬ!€ЭЮЯ!‡" [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 (#$ . 2326) nil])
(defalias 'icon-comment-indent #[nil "АБ!ѓ В‡ЉГДx€nѓ В‚ iT])‡" [looking-at "^#" 0 " 	" nil comment-column] 2])
#@50 Insert character and correct line's indentation.
(defalias 'electric-icon-brace #[(arg) "А\n„A lѓA ЉГАx€n)„ \fѓA Е €Ж €c€Е €\fѓ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 (#$ . 4433) "P"])
(defalias 'icon-indent-command #[(&optional whole-exp) "ѓ3 Б В‰Љѓ Зy€`ИЙ!€`\fb€Йy€`)\fV…1 К\fЛ$+‡„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"])
#@81 Indent current line as Icon code.
Return the amount the indentation changed by.
(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€\f-‡" [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 (#$ . 5064)])
#@185 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.
(defalias 'calculate-icon-indent #[(&optional parse-start) "ЉАy€`Б‰‰‰ѓ b€‚ И `Wѓ6 `Й`А#‰A@‚ К\f8„B Л\f8ѓH Л\f8‚ ѓ[ 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 (#$ . 5659)])
(byte-code "АБ\nBБ‡" [(("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 current-load-list] 2)
(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])
(defalias 'icon-backward-to-noncomment #[(lim) "А‰	?…. Г\fx€`Еy€ЖЗ`\n\"8ѓ( \f`Wѓ( ИЙ!€‚ К‰‚ *‡" [nil stop opoint " 	\n\f" lim 0 5 parse-partial-sexp search-backward "#" t] 5])
(defalias '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])
(defalias 'icon-is-continued-line #[nil "ЉА€Б )‡" [0 icon-is-continuation-line] 1])
#@48 Move to the start of the last "unbalanced" if.
(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 (#$ . 7642)])
#@55 Put mark at end of Icon function, point at beginning.
(defalias 'mark-icon-function #[nil "А`!€Б €А`!€Вy€Г ‡" [push-mark end-of-icon-defun -1 beginning-of-icon-defun] 2 (#$ . 7951) nil])
#@71 Go to the start of the enclosing procedure; return t if at top level.
(defalias 'beginning-of-icon-defun #[nil "АБeВ#ѓ\f ГД!‡Е‡" [re-search-backward "^procedure\\s \\|^end[ 	\n]" move looking-at "e" t] 4 (#$ . 8144) nil])
(defalias 'end-of-icon-defun #[nil "o„ Аu€БВdГ#€Аv€Дy‡" [-1 re-search-forward "\\(\\s \\|^\\)end\\(\\s \\|$\\)" move 1] 4 nil nil])
#@56 Indent each line of the Icon grouping following point.
(defalias 'indent-icon-exp #[nil "АC`CА‰‰‰‰‰‰‰‰‰‰`Б	\n\fЉСТ!€)ЉА\fm?…Я\f?…Я\nА„Ў mѓV Х‰\f„Ў \n	Ц`А€`А‰\n%‰\n@\nAA@ѓѓ \nAA@БYѓѓ \nAA@Ч	8ѓЌ Ш €Щ\n8ѓљ Тy€‚F Х‰ѓK \nБXѓЄ Х\f\f„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 (#$ . 8505) nil])