Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
progmodes /
[ HOME SHELL ]
Name
Size
Permission
Action
ada-mode.elc
107.46
KB
-rw-r--r--
ada-prj.elc
17.96
KB
-rw-r--r--
ada-stmt.elc
36.03
KB
-rw-r--r--
ada-xref.elc
54.99
KB
-rw-r--r--
antlr-mode.elc
77.63
KB
-rw-r--r--
asm-mode.elc
6.08
KB
-rw-r--r--
autoconf.elc
3.37
KB
-rw-r--r--
bug-reference.elc
5.83
KB
-rw-r--r--
cap-words.elc
3.54
KB
-rw-r--r--
cc-align.elc
35.43
KB
-rw-r--r--
cc-awk.elc
20.23
KB
-rw-r--r--
cc-bytecomp.elc
10.45
KB
-rw-r--r--
cc-cmds.elc
92.26
KB
-rw-r--r--
cc-compat.elc
2.97
KB
-rw-r--r--
cc-defs.elc
46.7
KB
-rw-r--r--
cc-engine.elc
143.05
KB
-rw-r--r--
cc-fonts.elc
140.72
KB
-rw-r--r--
cc-langs.elc
70.29
KB
-rw-r--r--
cc-menus.elc
7.32
KB
-rw-r--r--
cc-mode.elc
144.75
KB
-rw-r--r--
cc-styles.elc
16.11
KB
-rw-r--r--
cc-subword.elc
6.99
KB
-rw-r--r--
cc-vars.elc
71.07
KB
-rw-r--r--
cfengine.elc
8.09
KB
-rw-r--r--
cmacexp.elc
6.58
KB
-rw-r--r--
compile.elc
69.45
KB
-rw-r--r--
cperl-mode.elc
215.39
KB
-rw-r--r--
cpp.elc
21.52
KB
-rw-r--r--
cwarn.elc
12.8
KB
-rw-r--r--
dcl-mode.elc
49.31
KB
-rw-r--r--
delphi.elc
50.03
KB
-rw-r--r--
ebnf-abn.elc
7.39
KB
-rw-r--r--
ebnf-bnf.elc
7.99
KB
-rw-r--r--
ebnf-dtd.elc
13.82
KB
-rw-r--r--
ebnf-ebx.elc
8.77
KB
-rw-r--r--
ebnf-iso.elc
8.14
KB
-rw-r--r--
ebnf-otz.elc
8.51
KB
-rw-r--r--
ebnf-yac.elc
7.53
KB
-rw-r--r--
ebnf2ps.elc
121.25
KB
-rw-r--r--
ebrowse.elc
202.93
KB
-rw-r--r--
etags.elc
54.14
KB
-rw-r--r--
executable.elc
7.6
KB
-rw-r--r--
f90.elc
82.59
KB
-rw-r--r--
flymake.elc
61.25
KB
-rw-r--r--
fortran.elc
60.13
KB
-rw-r--r--
gdb-ui.elc
138.61
KB
-rw-r--r--
glasses.elc
10.15
KB
-rw-r--r--
grep.elc
27.75
KB
-rw-r--r--
gud.elc
93.94
KB
-rw-r--r--
hideif.elc
26.67
KB
-rw-r--r--
hideshow.elc
24.54
KB
-rw-r--r--
icon.elc
16.23
KB
-rw-r--r--
idlw-complete-structtag.elc
4.75
KB
-rw-r--r--
idlw-help.elc
35.31
KB
-rw-r--r--
idlw-shell.elc
134.39
KB
-rw-r--r--
idlw-toolbar.elc
28.34
KB
-rw-r--r--
idlwave.elc
254.7
KB
-rw-r--r--
inf-lisp.elc
18.43
KB
-rw-r--r--
ld-script.elc
4.91
KB
-rw-r--r--
m4-mode.elc
4.91
KB
-rw-r--r--
make-mode.elc
58.79
KB
-rw-r--r--
mantemp.elc
3.77
KB
-rw-r--r--
meta-mode.elc
27.42
KB
-rw-r--r--
mixal-mode.elc
35.32
KB
-rw-r--r--
modula2.elc
14.23
KB
-rw-r--r--
octave-inf.elc
11.87
KB
-rw-r--r--
octave-mod.elc
44.6
KB
-rw-r--r--
pascal.elc
40.31
KB
-rw-r--r--
perl-mode.elc
22.42
KB
-rw-r--r--
prolog.elc
12.7
KB
-rw-r--r--
ps-mode.elc
33.38
KB
-rw-r--r--
python.elc
86.23
KB
-rw-r--r--
ruby-mode.elc
34.59
KB
-rw-r--r--
scheme.elc
15.94
KB
-rw-r--r--
sh-script.elc
94.73
KB
-rw-r--r--
simula.elc
44.81
KB
-rw-r--r--
sql.elc
101.34
KB
-rw-r--r--
sym-comp.elc
7.15
KB
-rw-r--r--
tcl.elc
38.58
KB
-rw-r--r--
vera-mode.elc
44.5
KB
-rw-r--r--
verilog-mode.elc
331.76
KB
-rw-r--r--
vhdl-mode.elc
510.47
KB
-rw-r--r--
which-func.elc
9.72
KB
-rw-r--r--
xscheme.elc
37.76
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : tcl.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:12 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/progmodes/tcl.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`tcl.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require comint custom-declare-group tcl nil "Major mode for editing Tcl source in Emacs." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :group languages] 8) #@66 *Indentation of Tcl statements with respect to containing block. (custom-declare-variable 'tcl-indent-level '4 '(#$ . -855) :type 'integer :group 'tcl) (put 'tcl-indent-level 'safe-local-variable 'integerp) #@70 *Indentation of continuation line relative to first line of command. (custom-declare-variable 'tcl-continued-indent-level '4 '(#$ . -1068) :type 'integer :group 'tcl) (put 'tcl-continued-indent-level 'safe-local-variable 'integerp) #@74 *Non-nil means automatically newline before and after braces you insert. (custom-declare-variable 'tcl-auto-newline 'nil '(#$ . -1306) :type 'boolean :group 'tcl) #@561 *Control effect of TAB key. If t (the default), always indent current line. If nil and point is not in the indentation area at the beginning of the line, a TAB is inserted. Other values cause the first possible action from the following list to take place: 1. Move from beginning of line to correct indentation. 2. Delete an empty comment. 3. Move forward to start of comment, indenting if necessary. 4. Move forward to end of line, indenting if necessary. 5. Create an empty comment. 6. Move backward to start of comment, indenting if necessary. (custom-declare-variable 'tcl-tab-always-indent 'tab-always-indent '(#$ . -1476) :type '(choice (const :tag "Always" t) (const :tag "Beginning only" nil) (const :tag "Maybe move or make or delete comment" 'tcl)) :group 'tcl) #@421 *Style of electric hash insertion to use. Possible values are `backslash', meaning that `\' quoting should be done; `quote', meaning that `"' quoting should be done; `smart', meaning that the choice between `backslash' and `quote' should be made depending on the number of hashes inserted; or nil, meaning that no quoting should be done. Any other value for this variable is taken to mean `smart'. The default is nil. (custom-declare-variable 'tcl-electric-hash-style 'nil '(#$ . -2268) :type '(choice (const backslash) (const quote) (const smart) (const nil)) :group 'tcl) #@58 *List of topmost directories containing TclX help files. (custom-declare-variable 'tcl-help-directory-list 'nil '(#$ . -2850) :type '(repeat directory) :group 'tcl) #@72 *If not nil, use smart way to find current word, for Tcl help feature. (custom-declare-variable 'tcl-use-smart-word-finder 't '(#$ . -3021) :type 'boolean :group 'tcl) #@51 *Name of Tcl program to run in inferior Tcl mode. (custom-declare-variable 'tcl-application '"wish" '(#$ . -3195) :type 'string :group 'tcl) #@63 *List of switches to supply to the `tcl-application' program. (custom-declare-variable 'tcl-command-switches 'nil '(#$ . -3342) :type '(repeat string) :group 'tcl) #@252 *If not nil, a regexp that will match the prompt in the inferior process. If nil, the prompt is the name of the application with ">" appended. The default is "^\(% \|\)", which will match the default primary and secondary prompts for tclsh and wish. (custom-declare-variable 'tcl-prompt-regexp '"^\\(% \\|\\)" '(#$ . -3513) :type 'regexp :group 'tcl) #@264 *Format-string for building a Tcl command to load a file. This format string should use `%s' to substitute a file name and should result in a Tcl expression that will command the inferior Tcl to load that file. The filename will be appropriately quoted for Tcl. (custom-declare-variable 'inferior-tcl-source-command '"source %s\n" '(#$ . -3872) :type 'string :group 'tcl) (custom-declare-face 'tcl-escaped-newline '((t :inherit font-lock-string-face)) "Face used for (non-escaped) backslash at end of a line in Tcl mode." :group 'tcl :version "22.1") #@28 Keymap used in `tcl-mode'. (defvar tcl-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\304#\210\302\310\304#\210\302\311\304#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\302\324\325#\210\302\326\323#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210)\207" [map make-sparse-keymap define-key "{" tcl-electric-char "}" tcl-electric-brace "[" "]" ";" "#" tcl-electric-hash "" tcl-indent-exp "" backward-delete-char-untabify " " tcl-indent-command "\230" tcl-eval-defun " " tcl-help-on-word "" "" tcl-load-file "" inferior-tcl "" tcl-eval-region "" switch-to-tcl] 4) (#$ . 4430)) #@44 Syntax table in use in `tcl-mode' buffers. (defvar tcl-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\304#\210\302\310\304#\210\302\311\304#\210\302\312\304#\210\302\313\304#\210\302\314\304#\210\302\315\304#\210\302\316\304#\210\302\317\304#\210\302\320\304#\210\302\321\304#\210\302\322\304#\210\302\323\304#\210\302\324\325#\210\302\326\327#\210\302\330\331#\210\302\332\333#\210\302\334\335#\210)\207" [st make-syntax-table modify-syntax-entry 37 "_" 64 38 42 43 45 46 58 33 36 47 126 60 61 62 124 40 "()" 41 ")(" 59 "." 10 ">" 35 "<"] 4) (#$ . 5132)) #@37 Keymap used in `inferior-tcl-mode'. (defvar inferior-tcl-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\312#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\302\324\325#\210)\207" [map make-sparse-keymap define-key " " comint-dynamic-complete "\277" comint-dynamic-list-filename-completions "" backward-delete-char-untabify "\230" tcl-eval-defun " " tcl-help-on-word "" "" tcl-load-file "" inferior-tcl "" tcl-eval-region "" switch-to-tcl] 4) (#$ . 5765)) #@26 Menu used in `tcl-mode'. (defvar tcl-mode-menu nil (#$ . 6331)) (easy-menu-do-define 'tcl-mode-menu tcl-mode-map "Menu used in `tcl-mode'." '("Tcl" ["Beginning of function" beginning-of-defun t] ["End of function" end-of-defun t] ["Mark function" mark-defun t] ["Indent region" indent-region (mark t)] ["Comment region" comment-region (mark t)] ["Uncomment region" uncomment-region (mark t)] "----" ["Show Tcl process buffer" inferior-tcl t] ["Send function to Tcl process" tcl-eval-defun (and inferior-tcl-buffer (get-buffer inferior-tcl-buffer))] ["Send region to Tcl process" tcl-eval-region (and inferior-tcl-buffer (get-buffer inferior-tcl-buffer))] ["Send file to Tcl process" tcl-load-file (and inferior-tcl-buffer (get-buffer inferior-tcl-buffer))] ["Restart Tcl process with file" tcl-restart-with-file t] "----" ["Tcl help" tcl-help-on-word tcl-help-directory-list])) #@1642 *The current inferior-tcl process buffer. MULTIPLE PROCESS SUPPORT =========================================================================== To run multiple Tcl processes, you start the first up with \[inferior-tcl]. It will be in a buffer named `*inferior-tcl*'. Rename this buffer with \[rename-buffer]. You may now start up a new process with another \[inferior-tcl]. It will be in a new buffer, named `*inferior-tcl*'. You can switch between the different process buffers with \[switch-to-buffer]. Commands that send text from source buffers to Tcl processes -- like `tcl-eval-defun' or `tcl-load-file' -- have to choose a process to send to, when you have more than one Tcl process around. This is determined by the global variable `inferior-tcl-buffer'. Suppose you have three inferior Lisps running: Buffer Process foo inferior-tcl bar inferior-tcl<2> *inferior-tcl* inferior-tcl<3> If you do a \[tcl-eval-defun] command on some Lisp source code, what process do you send it to? - If you're in a process buffer (foo, bar, or *inferior-tcl*), you send it to that process. - If you're in some other buffer (e.g., a source file), you send it to the process attached to buffer `inferior-tcl-buffer'. This process selection is performed by function `inferior-tcl-proc'. Whenever \[inferior-tcl] fires up a new process, it resets `inferior-tcl-buffer' to be the new process's buffer. If you only run one process, this does the right thing. If you run multiple processes, you can change `inferior-tcl-buffer' to another process buffer with \[set-variable]. (defvar inferior-tcl-buffer nil (#$ . -7217)) #@623 Hook run on entry to Tcl mode. Several functions exist which are useful to run from your `tcl-mode-hook' (see each function's documentation for more information): `tcl-guess-application' Guesses a default setting for `tcl-application' based on any "#!" line at the top of the file. `tcl-hashify-buffer' Quotes all "#" characters that don't correspond to actual Tcl comments. (Useful when editing code not originally created with this mode). `tcl-auto-fill-mode' Auto-filling of Tcl comments. Add functions to the hook with `add-hook': (add-hook 'tcl-mode-hook 'tcl-guess-application) (defvar tcl-mode-hook nil (#$ . 8911)) #@205 List of commands whose first argument defines something. This exists because some people (eg, me) use `defvar' et al. Call `tcl-set-proc-regexp' and `tcl-set-font-lock-keywords' after changing this list. (defvar tcl-proc-list '("proc" "method" "itcl_class" "body" "configbody" "class") (#$ . 9579)) #@43 Regexp to use when matching proc headers. (defvar tcl-proc-regexp nil (#$ . 9884)) #@128 List of Tcl keywords denoting "type". Used only for highlighting. Call `tcl-set-font-lock-keywords' after changing this list. (defvar tcl-typeword-list '("global" "upvar" "inherit" "public" "protected" "private" "common" "itk_option" "variable") (#$ . 9974)) #@154 List of Tcl keywords. Used only for highlighting. Default list includes some TclX keywords. Call `tcl-set-font-lock-keywords' after changing this list. (defvar tcl-keyword-list '("if" "then" "else" "elseif" "for" "foreach" "break" "continue" "while" "eval" "case" "in" "switch" "default" "exit" "error" "proc" "return" "uplevel" "constructor" "destructor" "itcl_class" "loop" "for_array_keys" "for_recursive_glob" "for_file" "method" "body" "configbody" "class" "chain") (#$ . 10241)) #@203 List of Tcl commands. Used only for highlighting. Call `tcl-set-font-lock-keywords' after changing this list. This list excludes those commands already found in `tcl-proc-list' and `tcl-keyword-list'. (defvar tcl-builtin-list '("after" "append" "array" "bgerror" "binary" "catch" "cd" "clock" "close" "concat" "console" "dde" "encoding" "eof" "exec" "expr" "fblocked" "fconfigure" "fcopy" "file" "fileevent" "flush" "format" "gets" "glob" "history" "incr" "info" "interp" "join" "lappend" "lindex" "linsert" "list" "llength" "load" "lrange" "lreplace" "lsort" "namespace" "open" "package" "pid" "puts" "pwd" "read" "regexp" "registry" "regsub" "rename" "scan" "seek" "set" "socket" "source" "split" "string" "subst" "tell" "time" "trace" "unknown" "unset" "vwait") (#$ . 10734)) #@213 Keywords to highlight for Tcl. See variable `font-lock-keywords'. This variable is generally set from `tcl-proc-regexp', `tcl-typeword-list', and `tcl-keyword-list' by the function `tcl-set-font-lock-keywords'. (defvar tcl-font-lock-keywords nil (#$ . 11521)) #@36 Syntactic keywords for `tcl-mode'. (defvar tcl-font-lock-syntactic-keywords '(("[^;[{ \n][ ]*\\(#\\)" (1 "."))) (#$ . 11788)) #@791 Alist that controls indentation. (Actually, this really only controls what happens on continuation lines). Each entry looks like `(KEYWORD TYPE ...)'. Each type entry describes a sexp after the keyword, and can be one of: * nil, meaning that this sexp has no particular type. * tcl-expr, meaning that this sexp is an arithmetic expression. * tcl-commands, meaning that this sexp holds Tcl commands. * a string, which must exactly match the string at the corresponding position for a match to be made. For example, the entry for the "loop" command is: ("loop" nil tcl-expr tcl-commands) This means that the "loop" command has three arguments. The first argument is ignored (for indentation purposes). The second argument is a Tcl expression, and the last argument is Tcl commands. (defvar tcl-type-alist '(("proc" nil tcl-expr tcl-commands) ("method" nil tcl-expr tcl-commands) ("destructor" tcl-commands) ("constructor" tcl-commands) ("expr" tcl-expr) ("catch" tcl-commands) ("if" tcl-expr "then" tcl-commands) ("elseif" tcl-expr "then" tcl-commands) ("elseif" tcl-expr tcl-commands) ("if" tcl-expr tcl-commands) ("while" tcl-expr tcl-commands) ("for" tcl-commands tcl-expr tcl-commands tcl-commands) ("foreach" nil nil tcl-commands) ("for_file" nil nil tcl-commands) ("for_array_keys" nil nil tcl-commands) ("for_recursive_glob" nil nil nil tcl-commands) ("loop" nil tcl-expr tcl-expr tcl-commands) ("loop" nil tcl-expr tcl-commands)) (#$ . 11923)) #@67 If non-nil, debugging message will be printed during indentation. (defvar tcl-explain-indentation nil (#$ . 13389)) (byte-code "\301B\302\303!\207" [current-load-list tcl-omit-ws-regexp (lambda (#1=#:defconst-tmp-var) (defconst tcl-omit-ws-regexp #1#)) "^[^]\" \n#}][^\n\"#]+[ ]+"] 2) #@54 Set `tcl-proc-regexp' from variable `tcl-proc-list'. (defalias 'tcl-set-proc-regexp #[nil "\302\303\304\"\305Q\211\207" [tcl-proc-list tcl-proc-regexp "^\\s-*" regexp-opt t "[ ]+"] 4 (#$ . 13684)]) #@88 Set `tcl-font-lock-keywords'. Uses variables `tcl-proc-regexp' and `tcl-keyword-list'. (defalias 'tcl-set-font-lock-keywords #[nil "\305P\306\307E\310\311 \312\"\313Q\306\314E\315\311\n\312\"\316Q\317\320E\321\322\323\324\325\315\311 \312\"\316Q\317B\257 \211\207" [tcl-proc-regexp tcl-typeword-list tcl-builtin-list tcl-keyword-list tcl-font-lock-keywords "\\([^ \n]+\\)" 2 font-lock-function-name-face "\\(\\s-\\|^\\)" regexp-opt t "\\(\\s-\\|$\\)" font-lock-type-face "\\_<" "\\_>" 1 font-lock-builtin-face ("\\${\\([^}]+\\)}" 1 font-lock-variable-name-face) ("\\$\\(\\(?:::\\)?\\(?:[[:alnum:]_]+::\\)*[[:alnum:]_]+\\)" 1 font-lock-variable-name-face) ("\\(?:\\s-\\|^\\|\\[\\)set\\s-+{\\([^}]+\\)}" 1 font-lock-variable-name-face keep) ("\\(?:\\s-\\|^\\|\\[\\)set\\s-+\\(\\(?:::\\)?\\(?:[[:alnum:]_]+::\\)*[[:alnum:]_]+\\)" 1 font-lock-variable-name-face keep) ("\\(^\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\\\)$" 3 'tcl-escaped-newline)] 12 (#$ . 13891)]) (byte-code "\204 \302 \210 \204 \303 \210\302\207" [tcl-proc-regexp tcl-font-lock-keywords tcl-set-proc-regexp tcl-set-font-lock-keywords] 1) #@75 Imenu generic expression for `tcl-mode'. See `imenu-generic-expression'. (defvar tcl-imenu-generic-expression (byte-code "\301\302P\303BBC\207" [tcl-proc-regexp nil "\\([-A-Za-z0-9_:+*]+\\)" (2)] 3) (#$ . 14997)) (byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210 \"\210\304\311\321\320#\207" [current-load-list tcl-mode-abbrev-table tcl-mode-hook variable-documentation put "Hook run when entering Tcl mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp tcl-mode-map definition-name tcl-mode default-boundp set-default make-sparse-keymap tcl-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5) #@1049 Major mode for editing Tcl code. Expression and list commands understand all Tcl brackets. Tab indents for Tcl code. Paragraphs are separated by blank lines only. Delete converts tabs to spaces as it moves back. Variables controlling indentation style: `tcl-indent-level' Indentation of Tcl statements within surrounding block. `tcl-continued-indent-level' Indentation of continuation line relative to first line of command. Variables controlling user interaction with mode (see variable documentation for details): `tcl-tab-always-indent' Controls action of TAB key. `tcl-auto-newline' Non-nil means automatically newline before and after braces, brackets, and semicolons inserted in Tcl code. `tcl-use-smart-word-finder' If not nil, use a smarter, Tcl-specific way to find the current word when looking up help on a Tcl command. Turning on Tcl mode runs `tcl-mode-hook'. Read the documentation for `tcl-mode-hook' to see what kinds of interesting hook functions already exist. Commands: \{tcl-mode-map} (defalias 'tcl-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 1\315\316!\203# \204* \306\317!\210\307\306\320!\210\321\306\322!\210\323\306\324!\210\325\306\326!\210\327\306\330!\210\331\306\332!\210\333\306\334!\210\335 \306\336!\210\337 \306\340!\2102 \306\341!\210\342!\306\343!\210\342#\306\344!\210\345$\306\346!\210\347&\306\350!\210\307(\306\351!\2103)\306\352!\210\353*\3544!\210\315\355!\203\257 \n\356P4B-)\357\360!\207" [delay-mode-hooks major-mode mode-name tcl-mode-map tcl-mode-syntax-table tcl-mode-abbrev-table make-local-variable t kill-all-local-variables tcl-mode "Tcl" use-local-map set-syntax-table boundp filladapt-mode paragraph-ignore-fill-prefix indent-line-function tcl-indent-line comment-indent-function tcl-comment-indent comment-start "# " comment-start-skip "\\(\\(^\\|[;{[]\\)\\s-*\\)#+ *" comment-end "" outline-regexp "." outline-level tcl-outline-level font-lock-defaults (tcl-font-lock-keywords nil nil nil beginning-of-defun (font-lock-syntactic-keywords . tcl-font-lock-syntactic-keywords) (parse-sexp-lookup-properties . t)) imenu-generic-expression dabbrev-case-fold-search nil dabbrev-case-replace dabbrev-abbrev-skip-leading-regexp "[$!]" dabbrev-abbrev-char-regexp "\\sw\\|\\s_" parse-sexp-ignore-comments defun-prompt-regexp add-log-current-defun-function tcl-add-log-defun easy-menu-add mode-popup-menu " Mode Commands" run-mode-hooks tcl-mode-hook local-abbrev-table tcl-imenu-generic-expression tcl-omit-ws-regexp tcl-mode-menu] 2 (#$ . 15945) nil]) #@50 Insert character and correct line's indentation. (defalias 'tcl-electric-char #[(arg) "\303 \210\304!\210 \205 \n\305U\205 \306 \210\303 \207" [arg tcl-auto-newline last-command-event tcl-indent-line self-insert-command 59 newline] 2 (#$ . 18552) "p"]) #@50 Insert character and correct line's indentation. (defalias 'tcl-electric-brace #[(arg) "\203* \212\303\304x\210n)\204 \305 \210\306 \210 \307V\203. \nc\210\305 \210\306 \210 S\211\202 \310 !\210\305 \207" [tcl-auto-newline arg last-command-event " " nil tcl-indent-line newline 0 self-insert-command] 3 (#$ . 18814) "p"]) #@688 Indent current line as Tcl code, or in some cases insert a tab character. If `tcl-tab-always-indent' is t (the default), always indent current line. If `tcl-tab-always-indent' is nil and point is not in the indentation area at the beginning of the line, a TAB is inserted. Other values of `tcl-tab-always-indent' cause the first possible action from the following list to take place: 1. Move from beginning of line to correct indentation. 2. Delete an empty comment. 3. Move forward to start of comment, indenting if necessary. 4. Move forward to end of line, indenting if necessary. 5. Create an empty comment. 6. Move backward to start of comment, indenting if necessary. (defalias 'tcl-indent-command #[(&optional arg) "\305>\203 \306\307!)\207`\310\210`\311 \n\312 U\2035 \313 \210\314 \210`\312 U\2030 \310\202} \315 \202} \f\203L \316\317!\203L \320u\210\321\310x\210` |\202} \f\203^ \n`W\203^ \314 \210\322 \202} \n U\204l b\210\314 \202} \f\204x \314 \210\323 \202} \314 \210\322 +\207" [tcl-tab-always-indent tab-always-indent ipoint eolpoint comment-p (nil t) call-interactively indent-for-tab-command nil tcl-in-comment line-beginning-position beginning-of-line tcl-indent-line back-to-indentation looking-at "[ ]*$" -1 " ;" indent-for-comment comment-indent] 2 (#$ . 19148) "p"]) #@80 Indent current line as Tcl code. Return the amount the indentation changed by. (defalias 'tcl-indent-line #[nil "\306\307!\307\211\211d`Z\211 \204 \310\202p \311 \210`\312\307w\210\f<\203' \f@g\313U\2034 \f Z\202= g\314U\203= \fS\312\307w\210\fiZ\315\n!\203[ dZ`V\203o dZb\210\202o `|\210\fj\210dZ`V\203o dZb\210\n-\207" [pos case-fold-search shift-amt beg indent tcl-indent-level tcl-calculate-indent nil noindent beginning-of-line " " 125 93 zerop] 7 (#$ . 20471)]) #@207 Determine type of sexp at point. This is either `tcl-expr', `tcl-commands', or nil. Puts point at start of sexp that indicates types. See documentation for variable `tcl-type-alist' for more information. (defalias 'tcl-figure-type #[nil "\304\305\211\211\306W\203 \204 \305\307\310\217\210\nT\211\202 \203% \311\312 \"\210 +\207" [word-stack result count tcl-explain-indentation 0 nil 5 (byte-code "\306 \210\307\310!\203_ \311\312 B\n\203[ \f\204[ \n@\nA\313 \203G \fX\203G @;\203> @ 8\230\204> \311 A T\202\" \fV\203W @;\204W @)\202 *\202c \311 B\311\207" [tcl-type-alist entry list word-stack result index backward-sexp looking-at "[a-zA-Z_]+" nil tcl-word-no-props 0 count] 3) ((error)) message "Indentation type %s"] 4 (#$ . 20962)]) #@184 Return appropriate indentation for current line as Tcl 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 'tcl-calculate-indent #[(&optional parse-start) "\212\306 \210`\307\212o?\205 \310u\210h\311U)\211\203 \202 \312 \307\211 \307 \2034 b\210\2027 \313 \210`W\203N `\314`\312#\211A@\2027 \315 8\204Z \316 8\203` \316 8\202\373 \204i \f\202\373 b\210\317 \211 \320= \321= ` b\210\307u\210`W\203\252 \322\323!\203\252 \307y\210`W\203\252 \322\323!\203\252 \324\307y\210\202\225 \n\204\273 f\325U\203\273 \203\325 `Y\203\313 b\210\307u\210\202\317 \326\307w\210i\f\\\202\372 `W\203\345 \203\345 \327 \202\372 \203\361 b\210\202\365 b\210\327 \\,.\207" [indent-point case-fold-search continued-line tcl-continued-indent-level continued-indent-value state beginning-of-line nil -1 92 0 beginning-of-defun parse-partial-sexp 3 4 tcl-figure-type tcl-expr tcl-commands looking-at "[ ]*\\(#.*\\)?$" t 123 " " current-indentation containing-sexp found-next-line parse-start sexpr-type expr-p commands-p expr-start tcl-indent-level] 5 (#$ . 21742)]) #@55 Indent each line of the Tcl grouping following point. (defalias 'tcl-indent-exp #[nil "\306C`C\306\211\211\211\211\211\211\307\306 \212\310\311!\210)\212\306m?\205U?\205U \306\204s m\203G \312\211\204s \313`\306\210`\306\211 %\211@\314\f8\203` \315 \210\316 8\203l \311y\210\2027 \312\211\203< \307X\203| \312\204' \317 8V\203\232 AAS\211\202\202 W\203\263 \306B\306BT\211\202\233 @\204\312 A@\206\310 \212\310\320!\210`)\240\210\311y\210\212\320u\210h\321U)\322\306w\210l\204' @\203\363 @\307Y\203\363 @\202\f\323@\205\376 @[! \211\240\210\306) \247\203(g\324U\203 Z\202(g\325U\203( S \203' i\n\2038 \\\2029 U\204' `\326 \210`|\210\n\203O \\\202P j\210\202' .\f\207" [last-depth next-depth continued-line this-indent ostate state nil 0 forward-sexp 1 t parse-partial-sexp 4 tcl-indent-line 3 6 -1 92 " " tcl-calculate-indent 125 93 beginning-of-line inner-loop-done outer-loop-done case-fold-search contain-stack indent-stack val tcl-indent-level] 12 (#$ . 22934) nil]) #@50 Return name of Tcl function point is in, or nil. (defalias 'tcl-add-log-defun #[nil "\212\301\210\302\303P\301\304#\205 \305\306!)\207" [tcl-proc-regexp nil re-search-backward "\\([^ \n{]+\\)" t match-string 2] 4 (#$ . 24017)]) (defalias 'tcl-outline-level #[nil "\212\300\301w\210i)\207" [" " nil] 2]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list inferior-tcl-delete-prompt-marker default-boundp set-default nil] 3) (defalias 'tcl-filter #[(proc string) "\304r\305 !q\210\306\n!\203 \307 !\n|\210\n\310\211\223\210*\311 \"\207" [inhibit-quit proc inferior-tcl-delete-prompt-marker string t process-buffer marker-buffer process-mark nil comint-output-filter] 3]) (defalias 'tcl-send-string #[(proc string) "r\304!q\210\305!b\210\306y\210\307 !\203 \n`\310\223\210)\311 \"\207" [proc comint-prompt-regexp inferior-tcl-delete-prompt-marker string process-buffer process-mark 0 looking-at nil comint-send-string] 3]) (defalias 'tcl-send-region #[(proc start end) "r\305!q\210\306!b\210\307y\210\310 !\203 \n`\311\223\210)\312 \f#\207" [proc comint-prompt-regexp inferior-tcl-delete-prompt-marker start end process-buffer process-mark 0 looking-at nil comint-send-region] 4]) #@90 Switch to inferior Tcl process buffer. With argument, positions cursor at end of buffer. (defalias 'switch-to-tcl #[(eob-p) "\302!\203 \303!\210\202 \304\305!\210 \205 \306 \210db\207" [inferior-tcl-buffer eob-p get-buffer pop-to-buffer error "No current inferior Tcl buffer" push-mark] 2 (#$ . 25247) "P"]) #@74 Return current inferior Tcl process. See variable `inferior-tcl-buffer'. (defalias 'inferior-tcl-proc #[nil "\303\304=\203 p\202\f !\211\206 \305\306!)\207" [major-mode inferior-tcl-buffer proc get-buffer-process inferior-tcl-mode error "No Tcl process; see variable `inferior-tcl-buffer'"] 4 (#$ . 25566)]) #@113 Send the current region to the inferior Tcl process. Prefix argument means switch to the Tcl buffer afterwards. (defalias 'tcl-eval-region #[(start end &optional and-go) "\304 \305\212 b\210\306\307w\210`)\212\nb\210\306\307x\210`)#\210\310\311\"\210 \205' \312\313!)\207" [proc start end and-go inferior-tcl-proc tcl-send-region " \n" nil tcl-send-string "\n" switch-to-tcl t] 5 (#$ . 25886) "r\nP"]) #@112 Send the current defun to the inferior Tcl process. Prefix argument means switch to the Tcl buffer afterwards. (defalias 'tcl-eval-defun #[(&optional and-go) "\212\302 \210`\303 \210\304`\"\210* \205 \305\306!\207" [end and-go end-of-defun beginning-of-defun tcl-eval-region switch-to-tcl t] 3 (#$ . 26299) "P"]) (byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210 \"\210\304\311\321\322#\207" [current-load-list inferior-tcl-mode-abbrev-table inferior-tcl-mode-hook variable-documentation put "Hook run when entering Inferior Tcl mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp inferior-tcl-mode-map definition-name inferior-tcl-mode default-boundp set-default make-sparse-keymap inferior-tcl-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent comint-mode] 5) #@800 Major mode for interacting with Tcl interpreter. You can start a Tcl process with \[inferior-tcl]. Entry to this mode runs the normal hooks `comint-mode-hook' and `inferior-tcl-mode-hook', in that order. You can send text to the inferior Tcl process from other buffers containing Tcl source. Variables controlling Inferior Tcl mode: `tcl-application' Name of program to run. `tcl-command-switches' Command line arguments to `tcl-application'. `tcl-prompt-regexp' Matches prompt. `inferior-tcl-source-command' Command to use to read Tcl file in running application. `inferior-tcl-buffer' The current inferior Tcl process buffer. See variable documentation for details on multiple-process support. The following commands are available: \{inferior-tcl-mode-map} (defalias 'inferior-tcl-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 !\210\325\f!\210#$\306\326!\210%\206Y \327\330&!\331Q\332'($\325)!\210\306\333!\210*\306\334!\210\335 \336\337p!\340\"\210)\341\342!\207" [delay-mode-hooks major-mode mode-name inferior-tcl-mode-map inferior-tcl-mode-syntax-table parent make-local-variable t comint-mode inferior-tcl-mode "Inferior Tcl" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table comint-prompt-regexp "^" regexp-quote ">" (": %s") defun-prompt-regexp inferior-tcl-delete-prompt-marker make-marker set-process-filter get-buffer-process tcl-filter run-mode-hooks inferior-tcl-mode-hook inferior-tcl-mode-abbrev-table local-abbrev-table tcl-prompt-regexp tcl-application mode-line-process tcl-mode-abbrev-table tcl-mode-syntax-table tcl-omit-ws-regexp] 6 (#$ . 27413) nil]) #@151 Run inferior Tcl process. Prefix arg means enter program name interactively. See documentation for function `inferior-tcl-mode' for more information. (defalias 'inferior-tcl #[(cmd) "\304\305!\204 \306\307\310\311 %q\210\312 \210\313\314 !\204 \315\314 \316\"\210\317\302!\210\305\320\305!\207" [cmd tcl-command-switches tcl-application inferior-tcl-buffer comint-check-proc "*inferior-tcl*" apply make-comint "inferior-tcl" nil inferior-tcl-mode process-tty-name inferior-tcl-proc tcl-send-string "set ::tcl_interactive 1; concat\n" make-local-variable pop-to-buffer] 6 (#$ . 29296) (list (if current-prefix-arg (read-string "Run Tcl: " tcl-application) tcl-application))]) (defalias 'run-tcl 'inferior-tcl) #@191 Return nil if point is not at the beginning of a command. A command is the first word on an otherwise empty line, or the first word following a semicolon, opening brace, or opening bracket. (defalias 'tcl-real-command-p #[nil "\212\300\301x\210o\203 \302\202 n\203 \303u\210h\304=?\202 h\305>)\207" [" " nil t -1 92 (59 123 91)] 2 (#$ . 30018)]) #@303 Return t if point is just after the `#' beginning a real comment. Does not check to see if previous char is actually `#'. A real comment is either at the beginning of the buffer, preceded only by whitespace on the line, or has a preceding semicolon, opening brace, or opening bracket on the same line. (defalias 'tcl-real-comment-p #[nil "\212\300u\210\301 )\207" [-1 tcl-real-command-p] 1 (#$ . 30376)]) #@376 Determine if point is in a comment. Returns a list of the form `(FLAG . STATE)'. STATE can be used as input to future invocations. FLAG is nil if not in comment, t otherwise. If in comment, leaves point at beginning of comment. This function does not work in Emacs 18. See also `tcl-simple-scan-for-comment', a simpler version that is often right, and works in Emacs 18. (defalias 'tcl-hairy-scan-for-comment #[(state end always-stop) "\212b\210\306 \210`)\307\211 \204L `W\203L \307\310`\307\211\f\311&\312\f8\203 \2030 `\313 \211\203C ` V\203? `\306\314!\210\312\f\233\307\240\210\202 \203S b\210\n\f+B\207" [end last-cstart real-comment bol state always-stop beginning-of-line nil parse-partial-sexp t 4 tcl-real-comment-p 2] 8 (#$ . 30788)]) #@77 Return t if point is in a comment, and leave point at beginning of comment. (defalias 'tcl-in-comment #[nil "`\301 \210\302\303\303#@)\207" [save beginning-of-defun tcl-hairy-scan-for-comment nil] 4 (#$ . 31561)]) #@115 Saved help directories. If `tcl-help-directory-list' changes, this allows `tcl-help-on-word' to update the alist. (defvar tcl-help-saved-dirs nil (#$ . 31784)) #@59 Alist with command names as keys and filenames as values. (defvar tcl-help-alist nil (#$ . 31950)) #@61 Recursively add all pairs (FILE . PATH) under DIR to ALIST. (defalias 'tcl-files-alist #[(dir &optional alist) "\304\305\"\306\211\2033 \n@\307 !\204 \310 ! B B\202, \310 !\311\235\204, \312 \"\nA\211\204 \306 *\207" [dir file --dolist-tail-- alist directory-files t nil file-directory-p file-name-nondirectory ("." "..") tcl-files-alist] 4 (#$ . 32055)]) #@41 Return alist of commands and filenames. (defalias 'tcl-help-snarf-commands #[(dirlist) "\304 \304\211\203 @\305\n!\203 \306\n\" A\211\204\n \304+\207" [alist dirlist dir --dolist-tail-- nil file-directory-p tcl-files-alist] 4 (#$ . 32428)]) #@42 Set up to re-read files, and then do it. (defalias 'tcl-reread-help-files #[nil "\303\304!\210\305!\303\306!\207" [tcl-help-directory-list tcl-help-saved-dirs tcl-help-alist message "Building Tcl help file index..." tcl-help-snarf-commands "Building Tcl help file index...done"] 2 (#$ . 32687) nil]) #@45 Like `current-word', but strips properties. (defalias 'tcl-word-no-props #[nil "\301 \302\303G\304$\210)\207" [word current-word set-text-properties 0 nil] 5 (#$ . 32997)]) #@139 Return current command word, or nil. If FLAG is nil, just uses `current-word'. Otherwise scans backward for most likely Tcl command word. (defalias 'tcl-current-word #[(flag) "\203 \302>\203 \303\304\305\217\207\306 \207" [flag major-mode (tcl-mode inferior-tcl-mode) nil (byte-code "\212o\204 o\204 \301 \204 \302 \210\202 \303\304 \"\205 \304 )\207" [tcl-help-alist tcl-real-command-p backward-sexp assoc tcl-word-no-props] 3) ((error)) tcl-word-no-props] 3 (#$ . 33181)]) #@120 Get help on Tcl command. Default is word at point. Prefix argument means invert sense of `tcl-use-smart-word-finder'. (defalias 'tcl-help-on-word #[(command &optional arg) " \232\204 \306 \210\n\307\230\203 \310 \203 \f?\202 \f!\311\312! \313\n\"\211 \205. A q\210ed|\210\203J \314\n\315\261\210\316!\210\202\\ \n\307\230\203V \317c\210\202\\ \320\n\321\261\210\322\323!\210eb\210\324 !+\207" [tcl-help-directory-list tcl-help-saved-dirs command arg tcl-use-smart-word-finder help tcl-reread-help-files "" tcl-current-word get-buffer-create "*Tcl help*" assoc "*** " "\n\n" insert-file-contents "Magical Pig!" "Tcl command " " not in help\n" set-buffer-modified-p nil display-buffer tcl-help-alist cell file] 4 (#$ . 33673) (list (progn (if (not (equal tcl-help-directory-list tcl-help-saved-dirs)) (tcl-reread-help-files)) (let ((word (tcl-current-word (if current-prefix-arg (not tcl-use-smart-word-finder) tcl-use-smart-word-finder)))) (completing-read (if (or (null word) (string= word "")) "Help on Tcl command: " (format "Help on Tcl command (default %s): " word)) tcl-help-alist nil t nil nil word))) current-prefix-arg)]) #@150 Record last directory and file used in loading. This holds a cons cell of the form `(DIRECTORY . FILE)' describing the last `tcl-load-file' command. (defvar tcl-previous-dir/file nil (#$ . 34830)) #@107 Load a Tcl file into the inferior Tcl process. Prefix argument means switch to the Tcl buffer afterwards. (defalias 'tcl-load-file #[(file &optional and-go) "\304!\210\305!\306!B\307\310 \311\n\312!\"\"\210 \205 \313\314!\207" [file tcl-previous-dir/file inferior-tcl-source-command and-go comint-check-source file-name-directory file-name-nondirectory tcl-send-string inferior-tcl-proc format tcl-quote switch-to-tcl t] 6 (#$ . 35034) (list (car (comint-get-source "Load Tcl file: " (or (and (eq major-mode 'tcl-mode) (buffer-file-name)) tcl-previous-dir/file) '(tcl-mode) t)) current-prefix-arg)]) #@147 Restart inferior Tcl with file. If an inferior Tcl process exists, it is killed first. Prefix argument means switch to the Tcl buffer afterwards. (defalias 'tcl-restart-with-file #[(file &optional and-go) "\306=\203\n p\202 \211\205 \307\n!\n\203 \310\n!\204* \311\f!\210\312 \"\202b \313\n!\2036 \314\315!\205b \212\316 !\210\317 !\320 !B\321\322\n! \203R \323 !\202S \324\f %\210\205a \325\326!)*\207" [major-mode inferior-tcl-buffer buf proc tcl-application file inferior-tcl-mode get-process get-buffer inferior-tcl tcl-load-file comint-check-proc yes-or-no-p "A Tcl process is running, are you sure you want to reset it? " comint-check-source file-name-directory file-name-nondirectory comint-exec get-buffer-create process-name "inferior-tcl" switch-to-tcl t and-go tcl-previous-dir/file tcl-command-switches] 7 (#$ . 35647) (list (car (comint-get-source "Restart with Tcl file: " (or (and (eq major-mode 'tcl-mode) (buffer-file-name)) tcl-previous-dir/file) '(tcl-mode) t)) current-prefix-arg)]) #@68 Like `auto-fill-mode', but sets `comment-auto-fill-only-comments'. (defalias 'tcl-auto-fill-mode #[(&optional arg) "\303!\210 \203 \304\302!\210\305\211\207\306\302!\207" [arg auto-fill-function comment-auto-fill-only-comments auto-fill-mode make-local-variable t kill-local-variable] 2 (#$ . 36671) "P"]) #@175 Insert a `#' and quote if it does not start a real comment. Prefix arg is number of `#'s to insert. See variable `tcl-electric-hash-style' for description of quoting styles. (defalias 'tcl-electric-hash #[(&optional count) "\204 \305\306V\205l \307=\203 \310V\203 \311\202! \312\202! \313\211\203g \212\314c\210\315 )\316\305!\210\f\203= \317\320\n\"\210 \311=\203M \n\204g \321c\210\202g \312=\203g \n\204g \306V\203g \322c\210S\211\202X \323\324\"*\207" [count tcl-electric-hash-style comment type tcl-explain-indentation 1 0 smart 3 quote backslash nil "#" tcl-in-comment delete-char message "comment: %s" "\"" "\\#" insert-char 35] 4 (#$ . 36987) "p"]) #@60 Quote all `#'s in current buffer that aren't Tcl comments. (defalias 'tcl-hashify-buffer #[nil "\212eb\210\302\211`dW\2055 \303 d\304#\211@\203 \305\306!\210\202/ \307u\210g\310=\203, \311c\210\302u\210A\202 +\207" [result state nil tcl-hairy-scan-for-comment t beginning-of-line 2 -1 35 "\\"] 5 (#$ . 37667) nil]) #@72 Return the desired indentation, but be careful to add a `;' if needed. (defalias 'tcl-comment-indent #[nil "\212\300\301x\210n\204 \302 \204 \303c\210\301f\304>\203 \305\306!\210)\307\310! \207" [" " nil tcl-real-command-p ";" (9 32) delete-char 1 default-value comment-indent-function] 2 (#$ . 37995)]) #@120 Attempt to guess Tcl application by looking at first line. The first line is assumed to look like "#!.../program ...". (defalias 'tcl-guess-application #[nil "\212eb\210\301\302!\205 \303\300!\210\304\305!\211)\207" [tcl-application looking-at "#![^ ]*/\\([^ \n/]+\\)\\([ ]\\|$\\)" make-local-variable match-string 1] 2 (#$ . 38310)]) (defalias 'tcl-popup-menu #[(e) "\301!\207" [tcl-mode-menu popup-menu] 2 nil "@e"]) #@38 Quote STRING according to Tcl rules. (defalias 'tcl-quote #[(string) "\301\302\303#\207" [string mapconcat #[(char) "\301>\203\f \302\303!P\207\303!\207" [char (91 93 123 125 92 34 36 32 59) "\\" char-to-string] 3] ""] 4 (#$ . 38741)]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\300\315\316\"\210\300\317\320\"\207" [defalias tcl-uncomment-region uncomment-region tcl-indent-for-comment comment-indent add-log-tcl-defun tcl-add-log-defun indent-tcl-exp tcl-indent-exp calculate-tcl-indent tcl-calculate-indent tcl-beginning-of-defun beginning-of-defun tcl-end-of-defun end-of-defun tcl-mark-defun mark-defun] 3) (defalias 'tcl-mark #[nil "\300\301!\207" [mark t] 2]) (provide 'tcl)
Close
