Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
progmodes /
Delete
Unzip
Name
Size
Permission
Date
Action
ada-mode.elc
107.31
KB
-rw-r--r--
2023-06-07 04:14
ada-prj.elc
17.96
KB
-rw-r--r--
2023-06-07 04:14
ada-stmt.elc
35.97
KB
-rw-r--r--
2023-06-07 04:14
ada-xref.elc
55.09
KB
-rw-r--r--
2023-06-07 04:14
antlr-mode.elc
79.34
KB
-rw-r--r--
2023-06-07 04:14
asm-mode.elc
7.69
KB
-rw-r--r--
2023-06-07 04:14
autoconf.elc
5.1
KB
-rw-r--r--
2023-06-07 04:14
bug-reference.elc
6.43
KB
-rw-r--r--
2023-06-07 04:14
cap-words.elc
3.59
KB
-rw-r--r--
2023-06-07 04:14
cc-align.elc
35.39
KB
-rw-r--r--
2023-06-07 04:14
cc-awk.elc
17.81
KB
-rw-r--r--
2023-06-07 04:14
cc-bytecomp.elc
9.35
KB
-rw-r--r--
2023-06-07 04:14
cc-cmds.elc
96.69
KB
-rw-r--r--
2023-06-07 04:14
cc-compat.elc
2.92
KB
-rw-r--r--
2023-06-07 04:14
cc-defs.elc
49.04
KB
-rw-r--r--
2023-06-07 04:14
cc-engine.elc
173.3
KB
-rw-r--r--
2023-06-07 04:14
cc-fonts.elc
153.89
KB
-rw-r--r--
2023-06-07 04:14
cc-guess.elc
13.77
KB
-rw-r--r--
2023-06-07 04:14
cc-langs.elc
75.55
KB
-rw-r--r--
2023-06-07 04:14
cc-menus.elc
7.28
KB
-rw-r--r--
2023-06-07 04:14
cc-mode.elc
191.85
KB
-rw-r--r--
2023-06-07 04:14
cc-styles.elc
16.38
KB
-rw-r--r--
2023-06-07 04:14
cc-vars.elc
69.17
KB
-rw-r--r--
2023-06-07 04:14
cfengine.elc
15.58
KB
-rw-r--r--
2023-06-07 04:14
cmacexp.elc
6.3
KB
-rw-r--r--
2023-06-07 04:14
compile.elc
83.66
KB
-rw-r--r--
2023-06-07 04:14
cperl-mode.elc
215.31
KB
-rw-r--r--
2023-06-07 04:14
cpp.elc
22.18
KB
-rw-r--r--
2023-06-07 04:14
cwarn.elc
11.09
KB
-rw-r--r--
2023-06-07 04:14
dcl-mode.elc
50.23
KB
-rw-r--r--
2023-06-07 04:14
delphi.elc
50.8
KB
-rw-r--r--
2023-06-07 04:14
ebnf-abn.elc
6.88
KB
-rw-r--r--
2023-06-07 04:14
ebnf-bnf.elc
7.67
KB
-rw-r--r--
2023-06-07 04:14
ebnf-dtd.elc
13.03
KB
-rw-r--r--
2023-06-07 04:15
ebnf-ebx.elc
7.99
KB
-rw-r--r--
2023-06-07 04:15
ebnf-iso.elc
7.83
KB
-rw-r--r--
2023-06-07 04:15
ebnf-otz.elc
8.46
KB
-rw-r--r--
2023-06-07 04:15
ebnf-yac.elc
7.22
KB
-rw-r--r--
2023-06-07 04:15
ebnf2ps.elc
117.22
KB
-rw-r--r--
2023-06-07 04:15
ebrowse.elc
206.22
KB
-rw-r--r--
2023-06-07 04:15
etags.elc
55.93
KB
-rw-r--r--
2023-06-07 04:15
executable.elc
7.49
KB
-rw-r--r--
2023-06-07 04:15
f90.elc
92.25
KB
-rw-r--r--
2023-06-07 04:15
flymake.elc
61.63
KB
-rw-r--r--
2023-06-07 04:15
fortran.elc
60.04
KB
-rw-r--r--
2023-06-07 04:15
gdb-mi.elc
169.74
KB
-rw-r--r--
2023-06-07 04:15
glasses.elc
10.17
KB
-rw-r--r--
2023-06-07 04:15
grep.elc
32.61
KB
-rw-r--r--
2023-06-07 04:15
gud.elc
93.14
KB
-rw-r--r--
2023-06-07 04:15
hideif.elc
26.37
KB
-rw-r--r--
2023-06-07 04:15
hideshow.elc
25.32
KB
-rw-r--r--
2023-06-07 04:15
icon.elc
16.85
KB
-rw-r--r--
2023-06-07 04:15
idlw-complete-structtag.elc
4.5
KB
-rw-r--r--
2023-06-07 04:15
idlw-help.elc
36.32
KB
-rw-r--r--
2023-06-07 04:15
idlw-shell.elc
130.41
KB
-rw-r--r--
2023-06-07 04:15
idlw-toolbar.elc
27.61
KB
-rw-r--r--
2023-06-07 04:15
idlwave.elc
251.77
KB
-rw-r--r--
2023-06-07 04:15
inf-lisp.elc
20.29
KB
-rw-r--r--
2023-06-07 04:15
js.elc
95.5
KB
-rw-r--r--
2023-06-07 04:15
ld-script.elc
5.68
KB
-rw-r--r--
2023-06-07 04:15
m4-mode.elc
6.12
KB
-rw-r--r--
2023-06-07 04:15
make-mode.elc
63.81
KB
-rw-r--r--
2023-06-07 04:15
mantemp.elc
3.71
KB
-rw-r--r--
2023-06-07 04:15
meta-mode.elc
32.62
KB
-rw-r--r--
2023-06-07 04:15
mixal-mode.elc
36.42
KB
-rw-r--r--
2023-06-07 04:15
modula2.elc
29.79
KB
-rw-r--r--
2023-06-07 04:15
octave-inf.elc
13.56
KB
-rw-r--r--
2023-06-07 04:15
octave-mod.elc
33.98
KB
-rw-r--r--
2023-06-07 04:15
pascal.elc
39.33
KB
-rw-r--r--
2023-06-07 04:15
perl-mode.elc
24.86
KB
-rw-r--r--
2023-06-07 04:15
prolog.elc
95.73
KB
-rw-r--r--
2023-06-07 04:15
ps-mode.elc
34.13
KB
-rw-r--r--
2023-06-07 04:15
python.elc
99.85
KB
-rw-r--r--
2023-06-07 04:15
ruby-mode.elc
36.94
KB
-rw-r--r--
2023-06-07 04:15
scheme.elc
18.28
KB
-rw-r--r--
2023-06-07 04:15
sh-script.elc
103.89
KB
-rw-r--r--
2023-06-07 04:15
simula.elc
45.68
KB
-rw-r--r--
2023-06-07 04:15
sql.elc
158.59
KB
-rw-r--r--
2023-06-07 04:15
subword.elc
10.31
KB
-rw-r--r--
2023-06-07 04:15
tcl.elc
39.55
KB
-rw-r--r--
2023-06-07 04:15
vera-mode.elc
45.89
KB
-rw-r--r--
2023-06-07 04:15
verilog-mode.elc
419.97
KB
-rw-r--r--
2023-06-07 04:15
vhdl-mode.elc
528.67
KB
-rw-r--r--
2023-06-07 04:15
which-func.elc
9.72
KB
-rw-r--r--
2023-06-07 04:11
xscheme.elc
37.06
KB
-rw-r--r--
2023-06-07 04:15
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:15:19 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/scheme.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'lisp-mode) (defvar scheme-mode-syntax-table (byte-code "\302 \303\304W\203 \305\306 #\210T\211\202 \307\211\310W\203- \305\306 #\210T\211\202 \311\211\312W\203B \305\306 #\210T\211\2020 \313\211\314W\203W \305\306 #\210T\211\202E \305\315\316 #\210\305\317\320 #\210\305\321\316 #\210\305\322\316 #\210\305\323\316 #\210\305\311\324 #\210\305\325\326 #\210\305\313\327 #\210\305\330\331 #\210\305\332\333 #\210\305\334\335 #\210\305\336\337 #\210\305\340\341 #\210\305\342\343 #\210\305\344\345 #\210\305\346\345 #\210\305\347\345 #\210\305\350\345 #\210\305\351\352 #\210\305\353\354 #\210 *\207" [i st make-syntax-table 0 48 modify-syntax-entry "_ " 58 65 91 97 123 128 9 " " 10 "> " 12 13 32 "(] " 93 ")[ " "(} " 125 "){ " 124 "\" 23bn" 40 "() " 41 ")( " 59 "< 2 " 34 "\" " 39 "' " 96 44 64 35 "' 14" 92 "\\ "] 5)) (defvar scheme-mode-abbrev-table nil) (define-abbrev-table 'scheme-mode-abbrev-table nil) #@76 Imenu generic expression for Scheme mode. See `imenu-generic-expression'. (defvar scheme-imenu-generic-expression '((nil "^(define\\(\\|-\\(generic\\(\\|-procedure\\)\\|method\\)\\)*\\s-+(?\\(\\sw+\\)" 4) ("Types" "^(define-class\\s-+(?\\(\\sw+\\)" 1) ("Macros" "^(\\(defmacro\\|define-macro\\|define-syntax\\)\\s-+(?\\(\\sw+\\)" 2)) (#$ . 1513)) (defalias 'scheme-mode-variables #[nil "\306!\210 \307\304!\210\310 P\307\305!\210\f\307\311!\210\312 \307\313!\210\314 \307\315!\210\316 \307\317!\210\320\307\321!\210\312\307\322!\210\323\307\324!\210\325\307\326!\210\327\307\330!\210\331\307\332!\210\333\307\334!\210\335 \307\321!\210\312\307\336!\210\337 \340(\307\341!\210\312!)*\307\342!\210\343\"\307\344!\210\345$\307\346!\210\347\211&\207" [scheme-mode-syntax-table scheme-mode-abbrev-table local-abbrev-table page-delimiter paragraph-start paragraph-separate set-syntax-table make-local-variable "$\\|" paragraph-ignore-fill-prefix t fill-paragraph-function lisp-fill-paragraph adaptive-fill-mode nil indent-line-function lisp-indent-line parse-sexp-ignore-comments outline-regexp ";;; \\|(...." comment-start ";" comment-add 1 comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+[ ]*" font-lock-comment-start-skip ";+ *" comment-column 40 lisp-indent-function scheme-indent-function ("" scheme-mode-line-process) imenu-case-fold-search imenu-syntax-alist (("+-*/.<>=?!$%_&~^:" . "w")) font-lock-defaults ((scheme-font-lock-keywords scheme-font-lock-keywords-1 scheme-font-lock-keywords-2) nil t (("+-*/.<>=!?$%_&~^:" . "w") (35 . "w 14")) beginning-of-defun (font-lock-mark-block-function . mark-defun) (font-lock-syntactic-face-function . scheme-font-lock-syntactic-face-function) (parse-sexp-lookup-properties . t) (font-lock-extra-managed-props syntax-table)) lisp-doc-string-elt-property scheme-doc-string-elt mode-line-process scheme-imenu-generic-expression imenu-generic-expression] 2]) (defvar scheme-mode-line-process "") #@91 Keymap for Scheme mode. All commands in `lisp-mode-shared-map' are inherited by this map. (defvar scheme-mode-map (byte-code "\303 \303\304!\305 \n\"\210\306 \307\304B#\210\306\310\311#\210\306\312\313#\210\306\314\315#\210\306\316\317#\210\306\320\321#\210\322\323\324\325#\210\322\326\324\325#\210\322\327\324\325#\210 *\207" [map smap lisp-mode-shared-map make-sparse-keymap "Scheme" set-keymap-parent define-key [menu-bar scheme] [run-scheme] ("Run Inferior Scheme" . run-scheme) [uncomment-region] ("Uncomment Out Region" lambda (beg end) (interactive "r") (comment-region beg end '(4))) [comment-region] ("Comment Out Region" . comment-region) [indent-region] ("Indent Region" . indent-region) [indent-line] ("Indent Line" . lisp-indent-line) put comment-region menu-enable mark-active uncomment-region indent-region] 5) (#$ . 3503)) (defalias 'scheme-mode-commands #[(map) "\301\302\303#\210\301\304\305#\207" [map define-key "" backward-delete-char-untabify "" indent-sexp] 4]) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [scheme-mode-hook variable-documentation put purecopy "Hook run when entering Scheme mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp scheme-mode-map definition-name scheme-mode] 5) (defvar scheme-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [scheme-mode-map variable-documentation put purecopy "Keymap for `scheme-mode'." boundp scheme-mode-syntax-table definition-name scheme-mode] 5) (defvar scheme-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [scheme-mode-syntax-table variable-documentation put purecopy "Syntax table for `scheme-mode'." scheme-mode-abbrev-table definition-name scheme-mode] 5) (defvar scheme-mode-abbrev-table (progn (define-abbrev-table 'scheme-mode-abbrev-table nil) scheme-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [scheme-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `scheme-mode'." scheme-mode derived-mode-parent prog-mode] 5) #@862 Major mode for editing Scheme code. Editing commands are similar to those of `lisp-mode'. In addition, if an inferior Scheme process is running, some additional commands will be defined, for evaluating expressions and controlling the interpreter, and the state of the process will be displayed in the mode line of all Scheme buffers. The names of commands that interact with the Scheme process start with "xscheme-" if you use the MIT Scheme-specific `xscheme' package; for more information see the documentation for `xscheme-interaction-mode'. Use \[run-scheme] to start an inferior Scheme using the more general `cmuscheme' package. Commands: Delete converts tabs to spaces as it moves back. Blank lines separate paragraphs. Semicolons start comments. \{scheme-mode-map} Entry to this mode calls the value of `scheme-mode-hook' if that value is non-nil. (defalias 'scheme-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 \325\"\204V =\204V \326 \325 C#\210\327 !\210\330\f!\210 \331 \210)\332\333!\207" [delay-mode-hooks major-mode mode-name scheme-mode-map scheme-mode-syntax-table parent make-local-variable t prog-mode scheme-mode "Scheme" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table scheme-mode-variables run-mode-hooks scheme-mode-hook scheme-mode-abbrev-table local-abbrev-table] 6 (#$ . 5792) nil]) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314\315\306\301&\210\310\316\317\320\314\321\306\301&\210\310\322\302\323\314\324\306\301&\210\310\325\302\326\314\324\306\301&\210\310\327\330\331\314\332\306\301&\207" [custom-declare-group scheme nil "Editing Scheme code." :link (custom-group-link :tag "Font Lock Faces group" font-lock-faces) :group lisp custom-declare-variable scheme-mit-dialect t "If non-nil, scheme mode is specialized for MIT Scheme.\nSet this to nil if you normally use another dialect." :type boolean dsssl-sgml-declaration "<!DOCTYPE style-sheet PUBLIC \"-//James Clark//DTD DSSSL Style Sheet//EN\">\n" "An SGML declaration for the DSSSL file.\nIf it is defined as a string this will be inserted into an empty buffer\nwhich is in `dsssl-mode'. It is typically James Clark's style-sheet\ndoctype, as required for Jade." (choice (string :tag "Specified string") (const :tag "None" :value nil)) scheme-mode-hook "Normal hook run when entering `scheme-mode'.\nSee `run-hooks'." hook dsssl-mode-hook "Normal hook run when entering `dsssl-mode'.\nSee `run-hooks'." scheme-program-name "scheme" "Program invoked by the `run-scheme' command." string] 8) #@75 Imenu generic expression for DSSSL mode. See `imenu-generic-expression'. (defvar dsssl-imenu-generic-expression '(("Defines" "^(define\\s-+(?\\(\\sw+\\)" 1) ("Modes" "^\\s-*(mode\\s-+\\(\\(\\sw\\|\\s-\\)+\\)" 1) ("Elements" "^\\s-*(element\\s-+(?\\(\\(\\sw\\|\\s-\\)+\\))?" 1) ("Declarations" "^(declare\\(-\\sw+\\)+\\>\\s-+\\(\\sw+\\)" 2)) (#$ . 8612)) #@51 Subdued expressions to highlight in Scheme modes. (defconst scheme-font-lock-keywords-1 '(("(\\(define\\*?\\(\\(\\|-public\\|-method\\|-generic\\(-procedure\\)?\\)\\|\\(-syntax\\|-macro\\)\\|-class\\|-module\\)\\)\\>[ ]*(?\\(\\sw+\\)?" (1 font-lock-keyword-face) (6 (cond ((match-beginning 3) font-lock-function-name-face) ((match-beginning 5) font-lock-variable-name-face) (t font-lock-type-face)) nil t))) (#$ . 8973)) #@49 Gaudy expressions to highlight in Scheme modes. (defconst scheme-font-lock-keywords-2 (append scheme-font-lock-keywords-1 '(("(\\(and\\|begin\\|c\\(?:a\\(?:ll\\(?:-with-\\(?:current-continuation\\|\\(?:in\\|out\\)put-file\\)\\|/cc\\)\\|se\\)\\|ond\\)\\|d\\(?:elay\\|o\\)\\|else\\|for\\(?:-each\\|ce\\)\\|if\\|l\\(?:ambda\\|et\\(?:\\*\\(?:-values\\)?\\|-\\(?:syntax\\|values\\)\\|rec\\(?:-syntax\\)?\\)?\\)\\|map\\|or\\|syntax\\(?:-rules\\)?\\)\\>" . 1) ("(let\\s-+\\(\\sw+\\)" (1 font-lock-function-name-face)) ("\\<<\\sw+>\\>" . font-lock-type-face) ("\\<#?:\\sw+\\>" . font-lock-builtin-face))) (#$ . 9401)) #@51 Default expressions to highlight in Scheme modes. (defvar scheme-font-lock-keywords scheme-font-lock-keywords-1 (#$ . 10017)) (defconst scheme-sexp-comment-syntax-table (byte-code "\302!\303\304\305 #\210\303\306\307 #\210\303\310\311 #\210 )\207" [scheme-mode-syntax-table st make-syntax-table modify-syntax-entry 59 "." 10 " " 35 "'"] 4)) (byte-code "\300\301\302\303#\210\300\304\302\305#\207" [put lambda scheme-doc-string-elt 2 define #[nil "\300d!\210\301f\302=\203 \303\207\304\207" [forward-comment nil 40 2 0] 2]] 4) (defalias 'scheme-font-lock-syntactic-face-function #[(state) "\3048\204; \3058f\306=\203; \3058Tf\307=\203; \212`\310\311\312\217\211 \313ZW\2032 \314\n \313Z\315 $\210\314 S \315\316$\210+\317!\207" [state end pos scheme-sexp-comment-syntax-table 3 8 35 59 err (byte-code "\302\303\304 8\\b\210\305\306!\210`)\207" [parse-sexp-lookup-properties state nil 2 8 forward-sexp 1] 3) ((scan-error (nth 2 err))) 2 put-text-property syntax-table (12) lisp-font-lock-syntactic-face-function] 6]) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [dsssl-mode-hook variable-documentation put purecopy "Hook run when entering DSSSL mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp dsssl-mode-map definition-name dsssl-mode] 5) (defvar dsssl-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [dsssl-mode-map variable-documentation put purecopy "Keymap for `dsssl-mode'." boundp dsssl-mode-syntax-table definition-name dsssl-mode] 5) (defvar dsssl-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [dsssl-mode-syntax-table variable-documentation put purecopy "Syntax table for `dsssl-mode'." dsssl-mode-abbrev-table definition-name dsssl-mode] 5) (defvar dsssl-mode-abbrev-table (progn (define-abbrev-table 'dsssl-mode-abbrev-table nil) dsssl-mode-abbrev-table)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [dsssl-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `dsssl-mode'." dsssl-mode derived-mode-parent scheme-mode] 5) #@398 Major mode for editing DSSSL code. Editing commands are similar to those of `lisp-mode'. Commands: Delete converts tabs to spaces as it moves back. Blank lines separate paragraphs. Semicolons start comments. \{scheme-mode-map} Entering this mode runs the hooks `scheme-mode-hook' and then `dsssl-mode-hook' and inserts the value of `dsssl-sgml-declaration' if that variable's value is a string. (defalias 'dsssl-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$\325\"\204V $%=\204V \326$\325%C#\210\327 !\210\330\f!\210$%\306\331!\210\332\333\334 !\203 &;\203 '\204 &c\210\335(\306\336!\210\337 )*\306\340!\210\341 )\342\343!\207" [delay-mode-hooks major-mode mode-name dsssl-mode-map dsssl-mode-syntax-table parent make-local-variable t scheme-mode dsssl-mode "DSSSL" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table page-delimiter "^;;;" zerop buffer-size (dsssl-font-lock-keywords nil t (("+-*/.<>=?$%_&~^:" . "w")) beginning-of-defun (font-lock-mark-block-function . mark-defun)) imenu-case-fold-search nil imenu-syntax-alist (("+-*/.<>=?$%_&~^:" . "w")) run-mode-hooks dsssl-mode-hook dsssl-mode-abbrev-table local-abbrev-table dsssl-sgml-declaration buffer-read-only font-lock-defaults dsssl-imenu-generic-expression imenu-generic-expression] 6 (#$ . 12314) nil]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\207" [put element scheme-indent-function 1 mode with-mode make style root] 4) #@49 Default expressions to highlight in DSSSL mode. (defvar dsssl-font-lock-keywords '(("(\\(define\\(-\\w+\\)?\\)\\>[ ]*\\((?\\)\\(\\sw+\\)\\>" (1 font-lock-keyword-face) (4 font-lock-function-name-face)) ("(\\(and\\|c\\(ase\\|ond\\)\\|else\\|if\\|l\\(ambda\\|et\\(\\|*\\|rec\\)\\)\\|map\\|or\\|with-mode\\)\\>" . 1) ("(\\(element\\|mode\\|declare-\\w+\\)\\>[ ]*\\(\\sw+\\)" (1 font-lock-keyword-face) (2 font-lock-type-face)) ("(\\(element\\)\\>[ ]*(\\(\\S)+\\))" (1 font-lock-keyword-face) (2 font-lock-type-face)) ("\\<\\sw+:\\>" . font-lock-constant-face) ("<\\([!?][-a-z0-9]+\\)" 1 font-lock-keyword-face) ("<\\(/?[-a-z0-9]+\\)" 1 font-lock-function-name-face)) (#$ . 14113)) #@452 Scheme mode function for the value of the variable `lisp-indent-function'. This behaves like the function `lisp-indent-function', except that: i) it checks for a non-nil value of the property `scheme-indent-function' (or the deprecated `scheme-indent-hook'), rather than `lisp-indent-function'. ii) if that property specifies a function, it is called with three arguments (not two), the third argument being the default (i.e., current) indentation. (defalias 'scheme-indent-function #[(indent-point state) "i \306\234Tb\210\307`\n\310\311$\210 \312\234\203: \313\314!\204: \212\306y\210`)\nV\2043 \nb\210\315 \210\307`\n\310\311$\210\316 \210i\202\211 `\317\306!\210`{\320 \321\f!\322N\206Q \321\f!\323N\211\324=\204j \204q \fG\325V\203q \326\327\f\"\203q \330 \"\202\210 \250\203 \331 $\202\210 \205\210 #*)\207" [normal-indent state calculate-lisp-indent-last-sexp method function indent-point 1 parse-partial-sexp 0 t 2 looking-at "\\sw\\|\\s_" beginning-of-line backward-prefix-chars forward-sexp nil intern-soft scheme-indent-function scheme-indent-hook defun 3 string-match "\\`def" lisp-indent-defform lisp-indent-specform] 6 (#$ . 14801)]) (defalias 'would-be-symbol #[(string) "\301\302O\303\230?\207" [string 0 1 "("] 3]) (defalias 'next-sexp-as-string #[nil "\301\302!\210`\303\302!\210`{)\207" [the-end forward-sexp 1 backward-sexp] 2]) (defalias 'scheme-let-indent #[(state indent-point normal-indent) "\303\304w\210\305\306!\203 \307\310 \n$\207\307\311 \n$\207" [state indent-point normal-indent " " nil looking-at "[-a-zA-Z0-9+*/?!@$%^&_:~]" lisp-indent-specform 2 1] 5]) (byte-code "\301\302\303\304#\210\301\305\303\306#\210\301\307\303\304#\210\301\310\303\311#\210\301\312\303\306#\210\301\313\303\314#\210\301\315\303\306#\210\301\316\303\306#\210\301\317\303\306#\210\301\320\303\306#\210\301\321\303\304#\210\301\322\303\306#\210\301\323\303\306#\210\301\324\303\306#\210\301\325\303\311#\210\301\326\303\306#\210\301\327\303\306#\210\301\330\303\306#\210\301\331\303\306#\210\301\332\303\306#\210\301\333\303\306#\210\301\334\303\306#\210\301\335\303\336#\210\203d\301\337\303\306#\210\301\340\303\306#\210\301\341\303\306#\210\301\342\303\306#\210\301\343\303\304#\210\301\344\303\306#\210\301\345\303\306#\210\301\346\303\306#\210\301\347\303\304#\210\301\350\303\306#\210\301\351\303\311#\210\301\352\303\306#\210\301\353\303\306#\210\301\354\303\306#\210\301\355\303\306#\210\301\356\303\306#\210\301\357\303\306#\210\301\360\303\306#\210\301\361\303\306#\210\301\362\303\306#\210\301\363\303\306#\210\301\364\303\306#\210\301\365\303\306#\210\301\366\303\306#\210\301\367\303\306#\210\301\370\303\306#\210\301\371\303\306#\210\301\372\303\306#\210\301\373\303\306#\210\301\374\303\306#\210\301\375\303\306#\210\301\376\303\306#\210\301\377\303\306#\210\301\201@ \303\306#\210\301\201A \303\306#\210\201B \201C !\207" [scheme-mit-dialect put begin scheme-indent-function 0 case 1 delay do 2 lambda let scheme-let-indent let* letrec let-values let*-values sequence let-syntax letrec-syntax syntax-rules syntax-case call-with-input-file with-input-from-file with-input-from-port call-with-output-file with-output-to-file with-output-to-port call-with-values dynamic-wind 3 fluid-let in-package local-declare macro make-environment named-lambda using-syntax with-input-from-string with-output-to-string with-values syntax-table-define list-transform-positive list-transform-negative list-search-positive list-search-negative access-components assignment-components combination-components comment-components conditional-components disjunction-components declaration-components definition-components delay-components in-package-components lambda-components lambda-components* lambda-components** open-block-components pathname-components procedure-components sequence-components unassigned\?-components unbound\?-components variable-components provide scheme] 4)