;;; compiled by eric@geech.gnu.ai.mit.edu on Mon Mar 22 13:37:09 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/icon.el ;;; emacs version 19.0.506. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (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.") (fset '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]) (fset (quote icon-comment-indent) #[nil "!‡!n‚iT ])" [looking-at "^#" 0 skip-chars-backward " " comment-column] 2]) (fset 'electric-icon-brace #[(arg) "\nAlA!n) A c 3 `Z < Tb!) R b\n!!)W\n!!)" [nil insertpos arg skip-chars-backward " " 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"]) (fset (quote icon-indent-command) #[(&optional whole-exp) "5 ‰!`!` b!`) V3 $+G!n)G " [whole-exp icon-indent-line nil end beg shift-amt icon-tab-always-indent forward-line 0 forward-sexp 1 indent-code-rigidly "#" skip-chars-backward " " insert-tab] 5 nil "P"]) (fset 'icon-indent-line #[nil "!d`Z!`=# =1 !=!?*" [ch char-syntax ch-syntax 119 assoc buffer-substring forward-word -1 1 icon-resword-alist (0 59 125 123 41 93 34 39 10)] 6] icon-backward-to-noncomment #[(lim) " ?0 \"`!`\n\"8* `W*!̉*" [nil stop opoint skip-chars-backward " \n " lim forward-line 0 5 parse-partial-sexp search-backward "#" t] 5] icon-backward-to-start-of-continued-exp #[(lim) "h>\n!!!`XTb %ćg!=A`!`)\"\"AAć!!" [(41 93) forward-sexp -1 forward-line 0 skip-chars-forward " " lim icon-is-continued-line char-syntax 119 assoc buffer-substring forward-word 1 icon-resword-alist end-of-line icon-backward-to-start-of-continued-exp] 5] icon-is-continued-line #[nil "! )" [end-of-line 0 icon-is-continuation-line] 2]] 2) (fset 'icon-backward-to-start-of-if #[(&optional limit) " `) U?B!!' T!4 S`Wb*" [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."]) (fset 'mark-icon-function #[nil "`! `!! " [push-mark end-of-icon-defun forward-line -1 beginning-of-icon-defun] 2 "\ Put mark at end of Icon function, point at beginning." nil]) (fset '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]) (fset (quote end-of-icon-defun) #[nil "o!d#!!" [forward-char -1 re-search-forward "\\(\\s \\|^\\)end\\(\\s \\|$\\)" move forward-word forward-line 1] 4 nil nil]) (fset 'indent-icon-exp #[nil "C`C` \n   !) m? ?\nmVՉ \n ` `\n%\n@\nAA@\nAA@Y\nAA@ 8 \n8!FՉK\nX  5\nU\nVAAS\nWBBT@ \nA@!`)\"!!l5@z@Yz@fU4@!gU ! a@!&i Y'Z\\\\vq ! v@)@@[!++\")gU!.ZgU/\\iU`!`\"j1!51 `)#5 !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 end-of-line 4 icon-indent-line 3 forward-line setcar -1 skip-chars-forward " " 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 delete-region comment-start-skip re-search-forward indent-for-comment] 16 "\ Indent each line of the Icon grouping following point." nil])