;ELC   
;;; compiled by jwz@thalidomide on Wed Dec  1 01:01:55 1993
;;; from file /th/jwz/emacs19/lisp/modes/tcl-mode.el
;;; emacs version 19.9 Lucid.
;;; bytecomp version 2.20; 20-oct-93.
;;; 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."))

(require 'comint)
(defvar tcl-default-application "wish" "\
Default tcl/tk application to run in tcl-start-process")
(defvar tcl-default-command-switches nil "\
Command switches sfor tcl-default-application.
Should be a list of strings.")
(defvar tcl-process nil "\
Holds the current active tcl-process corresponding to current buffer.")
(defvar tcl-process-buffer nil "\
Buffer that holds tcl process associated with current buffer.")
(defvar tcl-always-show t "\
Make sure tcl-process-buffer is displayed after sending somethimg.")
(defvar tcl-mode-map nil "\
Keymap used with tcl-mode.")
(defvar tcl-prefix-key "t" "\
Prefix for all tcl-commands.")
(defvar tcl-mode-hook nil "\
Hooks called when tcl-mode fires up.")
(defvar tcl-region-start (make-marker) "\
Start of special region for communication.")
(defvar tcl-region-end (make-marker) "\
End of special region for communication.")
(defvar tcl-indent-level 4 "\
Amount by which tcl subexpressions are indented.")
(fset 'tcl-mode #[nil "А €БГЕЖ!ЗL€ЕИ!ЗL€ЕЙ!€ЕК!ЛL€ЕМ!НL€ЕО!ПL€¬ѓС €Т!€УФХ\"€УЦЧ\"€Љeb€ШЩ!«ЉЕЪ!Ы”Ы•{L€)ЬЭ!‡" [kill-all-local-variables tcl-mode major-mode "TCL" mode-name make-local-variable tcl-process nil tcl-process-buffer tcl-default-command-switches indent-line-function tcl-indent-line comment-start "#" comment-start-skip "\\(\\(^\\|;\\)[ 	]*\\)#" tcl-mode-map tcl-setup-keymap use-local-map modify-syntax-entry 35 "<" 10 ">" looking-at "#![ 	]*\\([^ 	]*\\)[ 	]+-f" tcl-default-application 1 run-hooks tcl-mode-hook] 3 "\
Major mode for editing tcl-scripts.
The following keys are bound:
\\{tcl-mode-map}
" nil])
(fset 'tcl-setup-keymap #[nil "А \n«„А ЄЃ	Д	ЕЖ#€Д	ЗИ#€ДЙК#€ДЛМ#€ДНО#€ДПР#€ДСТ#€ДУФ#€ДХЦ#€ДЧШ#€ДЩЪ#€ДЫЬ#€ДЭЮ#€ДЯа#€Дбв#€Дгд#€\n­…Д	\n#)‡" [make-sparse-keymap tcl-mode-map tcl-prefix-key map define-key [delete] backward-delete-char-untabify [125] tcl-electric-brace "е" tcl-send-current-line "т" tcl-send-region "ч" tcl-send-proc "б" tcl-send-buffer "с" tcl-kill-process "х" tcl-restart-with-whole-file "у" tcl-show-process-buffer "и" tcl-hide-process-buffer "й" tcl-get-error-info "Ы" tcl-beginning-of-proc "Э" tcl-end-of-proc "“" tcl-set-tcl-region-start "…" tcl-set-tcl-region-end "’" tcl-send-tcl-region] 4 "\
Setup keymap for `tcl-mode'.
If the variable `tcl-prefix-key' is nil, the bindings go directly
to `tcl-mode-map', otherwise they are prefixed with `tcl-prefix-key'."])
(fset 'tcl-indent-line #[nil "АБ!Б‰‰d`ZЗy€`ИБw€ЉgЙ=« \nZЗ]Лu€МН!«jЛ”Л•|€ОП\nS\"€Є[)iZ‰ЗU«Ћd\nZ`V«›d\nZb€Є”`|€j€d\nZ`V«…d\nZb€-‡" [tcl-calculate-indentation nil pos case-fold-search shift-amt beg indent 0 " 	" 125 tcl-indent-level 1 looking-at "\\([ 	]*\\)}" insert-char 32] 7 "\
Indent current line as tcl code.
Return the amount the indentation changed by."])
(fset 'tcl-calculate-indentation #[(&optional parse-start) "`Љ	«ѓ	bВy€o«„Г ЄеДu€hЕ=« Г Вy€o«†‰\\ЄЏДu€hЕ=¬†‰\\ЄЃВ\\ЄЅЗu€ИЙКЛ#«ЁГ ЉВy€o?­†Дu€hЕ=)«†‰\\ЄЃВZgМ=«„ЄЃВ\\Є‹b€Вy€Дy€Г *‡" [pos parse-start 0 current-indentation -1 92 tcl-indent-level 1 re-search-backward "\\(^[^ 	\n]\\)\\|\\({\\s *\n\\)\\|\\(}\\s *\n\\)" nil t 123] 4 "\
Return appropriate indentation for current line as tcl code.
In usual case returns an integer: the column to indent to."])
(fset 'tcl-electric-brace #[(arg) "АБВ!\"€Д €Е ‡" [insert-char 125 prefix-numeric-value arg tcl-indent-line blink-matching-open] 4 "\
Insert `}' and indent line." "P"])
(fset 'tcl-beginning-of-proc #[(&optional arg) "¬‚БВГЖW«€ЗИ!«ѓБu€ЖW«•ЙИВГ#«‡TГЄmВЖ‰Єg«ѓЖy€ЖV«”КИВГ#«†S‰ЄoВЖ‰Єh*‡" [arg 1 nil t ret found 0 looking-at "^[^ 	\n#][^\n]*{[ 	]*$" re-search-forward re-search-backward] 5 "\
Move backward to the beginning of a proc (or similar).
With argument, do it that many times.  Negative arg -N
means move forward to Nth following beginning of proc.
Returns t unless search stops due to beginning or end of buffer." "P"])
(fset 'tcl-end-of-proc #[(&optional arg) "¬‚БВГЖW«ђn¬ЌЉЖy€g)З=«ѓИu€ЖV«•ЙКВГ#«‡SГЄmВЖ‰ЄgЖW«•ЛКВГ#«‡TГЄmВЖ‰Єg«ѓВ€*‡" [arg 1 nil t ret found 0 125 -1 re-search-forward "^}" re-search-backward] 5 "\
Move forward to next end of proc (or similar).  With argument,
do it that many times. Negative argument -N means move back to Nth
preceding end of proc.

This function just searches for a `}' at the beginning of a line." "P"])
(fset 'tcl-start-process #[(name program &optional startfile &rest switches) "¬‚	ВГ%И!	Љq€К‰)‡" [switches tcl-default-command-switches apply make-comint name program startfile tcl-process-buffer get-buffer-process tcl-process "^[^% ]*%\\( %\\)* *" comint-prompt-regexp] 6 "\
Start a tcl process named NAME, running PROGRAM."])
(fset 'tcl-kill-process #[nil "­ѓБ!‡" [tcl-process-buffer kill-buffer] 2 "\
Kill tcl-process and tcl-process-buffer." nil])
(fset 'tcl-set-tcl-region-start #[(&optional arg) "	®Ѓ`В“‡" [tcl-region-start arg nil] 3 "\
Set start of region for use with `tcl-send-tcl-region'." nil])
(fset 'tcl-set-tcl-region-end #[(&optional arg) "	®Ѓ`В“‡" [tcl-region-end arg nil] 3 "\
Set end of region for use with `tcl-send-tcl-region'." nil])
(fset 'tcl-send-current-line #[nil "ЉАy€`)ЉБ€`)«‡Е!Ж=¬†З‰\"€Й\n{\"€Кy€­„М!*‡" [0 nil end start tcl-process process-status run tcl-start-process tcl-default-application comint-simple-send 1 tcl-always-show display-buffer tcl-process-buffer] 4 "\
Send current line to `tcl-process'.
If `tcl-process' is nil or dead, start a new process first." nil])
(fset 'tcl-send-region #[(start end) "«…Б\n!¬…Г‰\"€ЕЖ{ЙQ\"€\n­ѓЛ\n!‡" [tcl-process comint-check-proc tcl-process-buffer tcl-start-process tcl-default-application comint-simple-send "eval {\n" start end "\n}" tcl-always-show display-buffer] 5 "\
Send region to tcl `process' wrapped in eval { <region-data> }." "r"])
(fset 'tcl-send-tcl-region #[nil "«ѓ	¬„ВГ!€«†Е!¬†З‰\"€ЙК	{ЛQ\"€­„Н!‡" [tcl-region-start tcl-region-end error "tcl-region not set" tcl-process comint-check-proc tcl-process-buffer tcl-start-process tcl-default-application comint-simple-send "eval {\n" "\n}" tcl-always-show display-buffer] 5 "\
Send tcl-region to tcl `process' wrapped in eval { <region-data> }." nil])
(fset 'tcl-send-proc #[nil "А‰ЉГ €`Д €`)«†Ж!¬†И	‰\"€КЛ\n	{МQ\"€­„О!*‡" [nil end beg tcl-beginning-of-proc tcl-end-of-proc tcl-process comint-check-proc tcl-process-buffer tcl-start-process tcl-default-application comint-simple-send "eval {\n" "\n}" tcl-always-show display-buffer] 5 "\
Send proc around point to tcl `process' wrapped in
`eval { <proc> }'." nil])
(fset 'tcl-send-buffer #[nil "«…Б\n!¬…Г‰\"€Е «ЊЖЗed{ИQ\"€Є‰ЖЙК ЛQ\"€­ѓН\n!‡" [tcl-process comint-check-proc tcl-process-buffer tcl-start-process tcl-default-application buffer-modified-p comint-simple-send "eval {\n" "\n}" "source " buffer-file-name "\n" tcl-always-show display-buffer] 5 "\
Send region to tcl `process' wrapped in eval { <region-data> }." nil])
(fset 'tcl-get-error-info #[nil "«…Б\n!¬…Г‰\"€ЕЖ\"€З\n!‡" [tcl-process comint-check-proc tcl-process-buffer tcl-start-process tcl-default-application comint-simple-send "set errorInfo\n" display-buffer] 3 "\
Send string \"set errorInfo\" to tcl-process and display
tcl-process-buffer." nil])
(fset 'tcl-restart-with-whole-file #[nil "А €Б\n‰\"€Г ‡" [tcl-kill-process tcl-start-process tcl-default-application tcl-send-buffer] 3 "\
Restart tcl-process and send whole file as input." nil])
(fset 'tcl-show-process-buffer #[nil "А	!‡" [display-buffer tcl-process-buffer] 2 "\
Make sure tcl-process-buffer is being displayed." nil])
(fset 'tcl-hide-process-buffer #[nil "А	!‡" [delete-windows-on tcl-process-buffer] 2 "\
Delete all windows that display tcl-process-buffer." nil])