˝$+ÁV ?ÄLÊ˛ˇ!Èn?)ÂT— ÁV˙ Ç" [whole-exp shift-amt beg end icon-tab-always-indent nil "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." icon-indent-line beginning-of-line forward-sexp 1 forward-line indent-code-rigidly "#" skip-chars-backward " " insert-tab] 9))
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 "Ê˝ È`´´´´ ÂbÁ ˛ ÉÈ`WÄ:`ÉÈˇ`—#ÉÈ A@ÉÈÁ ȱ 8ÅD¼ 8ÂM¼ 8Á ÄV½ f¾\"Âa TbÈiÁÂwàe!Èá ÂsÁt—Á ?ÄÁ˛ È`ÉÈbÈà !Èá ®â !ÈãiÊbÈäå!Èg¾=)« Á‹—#Á bÈÊçè!¹é±!Áˆêë!Èäì!ÈçÆ!Äàíë!ÈÁ˜È`WÄéi)ÅãnÄŒª
Move to the start of the last ``unbalanced'' if." (byte-code "Šʘ È`)Éȯˆ˘ !?ÄF˙¯!Ȩ²!Â) TÉÁB¨˚!Â6 SÉÁB`WÄB¸ÉÈbÈÁ*Ç" [limit if-level case-fold-search nil beginning-of-icon-defun 1 zerop backward-sexp looking-at "else\\b" "if\\b" 0] 8))
(defun mark-icon-function nil "\
Put mark at end of Icon function, point at beginning." (interactive) (byte-code "¹Èˋ`!È´ Èˋ`!Ȉ˜!ȯ Ç" [nil push-mark end-of-icon-defun beginning-of-line 0 beginning-of-icon-defun] 6))
(defun beginning-of-icon-defun nil "\
Go to the start of the enclosing procedure; return t if at top level." (interactive) (byte-code "ˋÈ´ˆe˜#¯˘!Á¹Ç" [t nil re-search-backward "^procedure\\s \\|^end[
