WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/progmodes
Viewing File: /usr/share/emacs/24.3/lisp/progmodes/scheme.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:53:43 2025
;;; 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	#\210T\211\202\307\211\310W\203-\305\306	#\210T\211\202\311\211\312W\203B\305\306	#\210T\211\2020\313\211\314W\203W\305\306	#\210T\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)) (#$ . 1517))
(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\304B#\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) (#$ . 3507))
(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 (#$ . 5796) 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)) (#$ . 8616))
#@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))) (#$ . 8977))
#@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))) (#$ . 9405))
#@51 Default expressions to highlight in Scheme modes.
(defvar scheme-font-lock-keywords scheme-font-lock-keywords-1 (#$ . 10021))
(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) "\3048\204;\3058f\306=\203;\3058Tf\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 (#$ . 12318) 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)) (#$ . 14117))
#@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 (#$ . 14805)])
(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)
F1l3 Manager
