annotate lisp/progmodes/scheme.el @ 95119:f4fdf58a1cea

files.el (project-find-settings-file): Change concat to expand-file-name.
author Michael Olson <mwolson@gnu.org>
date Tue, 20 May 2008 03:15:16 +0000
parents 52b7a8c22af5
children a9dc0e7c3f2b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 33487
diff changeset
1 ;;; scheme.el --- Scheme (and DSSSL) editing mode
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
2
68773
dc49655f57ae Update copyright for 2006.
Nick Roberts <nickrob@snap.net.nz>
parents: 66963
diff changeset
3 ;; Copyright (C) 1986, 1987, 1988, 1997, 1998, 2001, 2002, 2003, 2004, 2005,
79717
a1342e6e097a Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78591
diff changeset
4 ;; 2006, 2007, 2008 Free Software Foundation, Inc.
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
5
17976
852464ce5d6a Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17578
diff changeset
6 ;; Author: Bill Rozas <jinx@martigny.ai.mit.edu>
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
7 ;; Adapted-by: Dave Love <d.love@dl.ac.uk>
814
38b2499cb3e9 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 807
diff changeset
8 ;; Keywords: languages, lisp
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
9
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11
94673
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94187
diff changeset
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
94673
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94187
diff changeset
14 ;; the Free Software Foundation, either version 3 of the License, or
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94187
diff changeset
15 ;; (at your option) any later version.
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
94673
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94187
diff changeset
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
25 ;;; Commentary:
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
27 ;; The major mode for editing Scheme-type Lisp code, very similar to
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
28 ;; the Lisp mode documented in the Emacs manual. `dsssl-mode' is a
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
29 ;; variant of scheme-mode for editing DSSSL specifications for SGML
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
30 ;; documents. [As of Apr 1997, some pointers for DSSSL may be found,
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
31 ;; for instance, at <URL:http://www.sil.org/sgml/related.html#dsssl>.]
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
32 ;; All these Lisp-ish modes vary basically in details of the language
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
33 ;; syntax they highlight/indent/index, but dsssl-mode uses "^;;;" as
80045
6e1ffbecad0b *** empty log message ***
Juanma Barranquero <lekktu@gmail.com>
parents: 79717
diff changeset
34 ;; the page-delimiter since ^L isn't normally a valid SGML character.
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
35 ;;
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
36 ;; For interacting with a Scheme interpreter See also `run-scheme' in
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
37 ;; the `cmuscheme' package and also the implementation-specific
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
38 ;; `xscheme' package.
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39
20461
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
40 ;; Here's a recipe to generate a TAGS file for DSSSL, by the way:
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
41 ;; etags --lang=scheme --regex='/[ \t]*(\(mode\|element\)[ \t
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
42 ;; ]+\([^ \t(
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
43 ;; ]+\)/\2/' --regex='/[ \t]*(element[ \t
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
44 ;; ]*([^)]+[ \t
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
45 ;; ]+\([^)]+\)[ \t
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
46 ;; ]*)/\1/' --regex='/(declare[^ \t
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
47 ;; ]*[ \t
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
48 ;; ]+\([^ \t
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
49 ;; ]+\)/\1/' "$@"
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
50
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
51 ;;; Code:
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
53 (require 'lisp-mode)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
54
49732
ada6655eb465 (scheme-mode-syntax-table): Don't switch the current buffer's syntax-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48074
diff changeset
55 (defvar scheme-mode-syntax-table
ada6655eb465 (scheme-mode-syntax-table): Don't switch the current buffer's syntax-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48074
diff changeset
56 (let ((st (make-syntax-table))
ada6655eb465 (scheme-mode-syntax-table): Don't switch the current buffer's syntax-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48074
diff changeset
57 (i 0))
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58
50070
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
59 ;; Default is atom-constituent.
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
60 (while (< i 256)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
61 (modify-syntax-entry i "_ " st)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
62 (setq i (1+ i)))
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63
50070
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
64 ;; Word components.
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
65 (setq i ?0)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
66 (while (<= i ?9)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
67 (modify-syntax-entry i "w " st)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
68 (setq i (1+ i)))
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
69 (setq i ?A)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
70 (while (<= i ?Z)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
71 (modify-syntax-entry i "w " st)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
72 (setq i (1+ i)))
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
73 (setq i ?a)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
74 (while (<= i ?z)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
75 (modify-syntax-entry i "w " st)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
76 (setq i (1+ i)))
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77
50070
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
78 ;; Whitespace
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
79 (modify-syntax-entry ?\t " " st)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
80 (modify-syntax-entry ?\n "> " st)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
81 (modify-syntax-entry ?\f " " st)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
82 (modify-syntax-entry ?\r " " st)
64050
a81b0edd5034 (scheme): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents: 61173
diff changeset
83 (modify-syntax-entry ?\s " " st)
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84
50070
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
85 ;; These characters are delimiters but otherwise undefined.
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
86 ;; Brackets and braces balance for editing convenience.
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
87 (modify-syntax-entry ?\[ "(] " st)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
88 (modify-syntax-entry ?\] ")[ " st)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
89 (modify-syntax-entry ?{ "(} " st)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
90 (modify-syntax-entry ?} "){ " st)
65850
125c8f7cc7d2 (scheme-mode-syntax-table): Move the nesting bit from # to |.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65566
diff changeset
91 (modify-syntax-entry ?\| "\" 23bn" st)
125c8f7cc7d2 (scheme-mode-syntax-table): Move the nesting bit from # to |.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65566
diff changeset
92 ;; Guile allows #! ... !# comments.
125c8f7cc7d2 (scheme-mode-syntax-table): Move the nesting bit from # to |.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65566
diff changeset
93 ;; But SRFI-22 defines the comment as #!...\n instead.
125c8f7cc7d2 (scheme-mode-syntax-table): Move the nesting bit from # to |.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65566
diff changeset
94 ;; Also Guile says that the !# should be on a line of its own.
125c8f7cc7d2 (scheme-mode-syntax-table): Move the nesting bit from # to |.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65566
diff changeset
95 ;; It's too difficult to get it right, for too little benefit.
125c8f7cc7d2 (scheme-mode-syntax-table): Move the nesting bit from # to |.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65566
diff changeset
96 ;; (modify-syntax-entry ?! "_ 2" st)
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97
50070
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
98 ;; Other atom delimiters
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
99 (modify-syntax-entry ?\( "() " st)
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
100 (modify-syntax-entry ?\) ")( " st)
65853
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
101 ;; It's used for single-line comments as well as for #;(...) sexp-comments.
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
102 (modify-syntax-entry ?\; "< 2 " st)
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
103 (modify-syntax-entry ?\" "\" " st)
50678
106688eb08d8 (scheme-mode-syntax-table): Use prefix syntax for ', `, comma, @ and #.
Richard M. Stallman <rms@gnu.org>
parents: 50070
diff changeset
104 (modify-syntax-entry ?' "' " st)
106688eb08d8 (scheme-mode-syntax-table): Use prefix syntax for ', `, comma, @ and #.
Richard M. Stallman <rms@gnu.org>
parents: 50070
diff changeset
105 (modify-syntax-entry ?` "' " st)
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106
50070
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
107 ;; Special characters
50678
106688eb08d8 (scheme-mode-syntax-table): Use prefix syntax for ', `, comma, @ and #.
Richard M. Stallman <rms@gnu.org>
parents: 50070
diff changeset
108 (modify-syntax-entry ?, "' " st)
106688eb08d8 (scheme-mode-syntax-table): Use prefix syntax for ', `, comma, @ and #.
Richard M. Stallman <rms@gnu.org>
parents: 50070
diff changeset
109 (modify-syntax-entry ?@ "' " st)
65850
125c8f7cc7d2 (scheme-mode-syntax-table): Move the nesting bit from # to |.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65566
diff changeset
110 (modify-syntax-entry ?# "' 14b" st)
50070
25c2d7555a11 (scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 49732
diff changeset
111 (modify-syntax-entry ?\\ "\\ " st)
49732
ada6655eb465 (scheme-mode-syntax-table): Don't switch the current buffer's syntax-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48074
diff changeset
112 st))
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
114 (defvar scheme-mode-abbrev-table nil)
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 (define-abbrev-table 'scheme-mode-abbrev-table ())
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
117 (defvar scheme-imenu-generic-expression
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
118 '((nil
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
119 "^(define\\(\\|-\\(generic\\(\\|-procedure\\)\\|method\\)\\)*\\s-+(?\\(\\sw+\\)" 4)
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
120 ("Types"
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
121 "^(define-class\\s-+(?\\(\\sw+\\)" 1)
21632
1f3afd785962 (scheme-imenu-generic-expression,
Dave Love <fx@gnu.org>
parents: 21133
diff changeset
122 ("Macros"
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
123 "^(\\(defmacro\\|define-macro\\|define-syntax\\)\\s-+(?\\(\\sw+\\)" 2))
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
124 "Imenu generic expression for Scheme mode. See `imenu-generic-expression'.")
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
125
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 (defun scheme-mode-variables ()
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 (set-syntax-table scheme-mode-syntax-table)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 (setq local-abbrev-table scheme-mode-abbrev-table)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 (make-local-variable 'paragraph-start)
10892
0e6ae3605c92 (scheme-mode-variables): Remove ^ from paragraph-start & paragraph-separate.
Boris Goldowsky <boris@gnu.org>
parents: 9912
diff changeset
130 (setq paragraph-start (concat "$\\|" page-delimiter))
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 (make-local-variable 'paragraph-separate)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 (setq paragraph-separate paragraph-start)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 (make-local-variable 'paragraph-ignore-fill-prefix)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 (setq paragraph-ignore-fill-prefix t)
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
135 (make-local-variable 'fill-paragraph-function)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
136 (setq fill-paragraph-function 'lisp-fill-paragraph)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
137 ;; Adaptive fill mode gets in the way of auto-fill,
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
138 ;; and should make no difference for explicit fill
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
139 ;; because lisp-fill-paragraph should do the job.
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
140 (make-local-variable 'adaptive-fill-mode)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
141 (setq adaptive-fill-mode nil)
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 (make-local-variable 'indent-line-function)
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
143 (setq indent-line-function 'lisp-indent-line)
9912
08d268f33d66 (scheme-mode-variables): Set parse-sexp-ignore-comments to t.
Karl Heuer <kwzh@gnu.org>
parents: 9179
diff changeset
144 (make-local-variable 'parse-sexp-ignore-comments)
08d268f33d66 (scheme-mode-variables): Set parse-sexp-ignore-comments to t.
Karl Heuer <kwzh@gnu.org>
parents: 9179
diff changeset
145 (setq parse-sexp-ignore-comments t)
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
146 (make-local-variable 'outline-regexp)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
147 (setq outline-regexp ";;; \\|(....")
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 (make-local-variable 'comment-start)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 (setq comment-start ";")
59761
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
150 (set (make-local-variable 'comment-add) 1)
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 (make-local-variable 'comment-start-skip)
15598
c5f04e0724ec (scheme-mode-variables): Set comment-start-skip to ignore backslash-quoted
Miles Bader <miles@gnu.org>
parents: 14169
diff changeset
152 ;; Look within the line for a ; following an even number of backslashes
c5f04e0724ec (scheme-mode-variables): Set comment-start-skip to ignore backslash-quoted
Miles Bader <miles@gnu.org>
parents: 14169
diff changeset
153 ;; after either a non-backslash or the line beginning.
c5f04e0724ec (scheme-mode-variables): Set comment-start-skip to ignore backslash-quoted
Miles Bader <miles@gnu.org>
parents: 14169
diff changeset
154 (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+[ \t]*")
78591
b9750e17698c (scheme-mode-variables): Set font-lock-comment-start-skip.
Glenn Morris <rgm@gnu.org>
parents: 78234
diff changeset
155 (set (make-local-variable 'font-lock-comment-start-skip) ";+ *")
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 (make-local-variable 'comment-column)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 (setq comment-column 40)
9179
c8ef8dc59108 (scheme-mode-variables): Make parse-sexp-ignore-comments t.
Richard M. Stallman <rms@gnu.org>
parents: 6310
diff changeset
158 (make-local-variable 'parse-sexp-ignore-comments)
c8ef8dc59108 (scheme-mode-variables): Make parse-sexp-ignore-comments t.
Richard M. Stallman <rms@gnu.org>
parents: 6310
diff changeset
159 (setq parse-sexp-ignore-comments t)
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
160 (make-local-variable 'lisp-indent-function)
65566
c31bc37303c0 (scheme-mode-variables): Use setq to assign buffer-local value
Eli Zaretskii <eliz@gnu.org>
parents: 64699
diff changeset
161 (setq lisp-indent-function 'scheme-indent-function)
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
162 (setq mode-line-process '("" scheme-mode-line-process))
32375
b9b7ecbf8925 (scheme-mode-variables, dsssl-mode): Avoid
Dave Love <fx@gnu.org>
parents: 32367
diff changeset
163 (set (make-local-variable 'imenu-case-fold-search) t)
20459
90f306f86f5d Use imenu-case-fold-search.
Dave Love <fx@gnu.org>
parents: 20334
diff changeset
164 (setq imenu-generic-expression scheme-imenu-generic-expression)
32375
b9b7ecbf8925 (scheme-mode-variables, dsssl-mode): Avoid
Dave Love <fx@gnu.org>
parents: 32367
diff changeset
165 (set (make-local-variable 'imenu-syntax-alist)
b9b7ecbf8925 (scheme-mode-variables, dsssl-mode): Avoid
Dave Love <fx@gnu.org>
parents: 32367
diff changeset
166 '(("+-*/.<>=?!$%_&~^:" . "w")))
65853
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
167 (set (make-local-variable 'font-lock-defaults)
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
168 '((scheme-font-lock-keywords
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
169 scheme-font-lock-keywords-1 scheme-font-lock-keywords-2)
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
170 nil t (("+-*/.<>=!?$%_&~^:" . "w") (?#. "w 14"))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
171 beginning-of-defun
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
172 (font-lock-mark-block-function . mark-defun)
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
173 (font-lock-syntactic-face-function
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
174 . scheme-font-lock-syntactic-face-function)
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
175 (parse-sexp-lookup-properties . t)
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
176 (font-lock-extra-managed-props syntax-table)))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
177 (set (make-local-variable 'lisp-doc-string-elt-property)
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
178 'scheme-doc-string-elt))
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180 (defvar scheme-mode-line-process "")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181
59761
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
182 (defvar scheme-mode-map
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
183 (let ((smap (make-sparse-keymap))
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
184 (map (make-sparse-keymap "Scheme")))
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
185 (set-keymap-parent smap lisp-mode-shared-map)
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
186 (define-key smap [menu-bar scheme] (cons "Scheme" map))
33483
ed634043ad08 Fix bogus last checkin.
Dave Love <fx@gnu.org>
parents: 33480
diff changeset
187 (define-key map [run-scheme] '("Run Inferior Scheme" . run-scheme))
ed634043ad08 Fix bogus last checkin.
Dave Love <fx@gnu.org>
parents: 33480
diff changeset
188 (define-key map [uncomment-region]
ed634043ad08 Fix bogus last checkin.
Dave Love <fx@gnu.org>
parents: 33480
diff changeset
189 '("Uncomment Out Region" . (lambda (beg end)
ed634043ad08 Fix bogus last checkin.
Dave Love <fx@gnu.org>
parents: 33480
diff changeset
190 (interactive "r")
ed634043ad08 Fix bogus last checkin.
Dave Love <fx@gnu.org>
parents: 33480
diff changeset
191 (comment-region beg end '(4)))))
ed634043ad08 Fix bogus last checkin.
Dave Love <fx@gnu.org>
parents: 33480
diff changeset
192 (define-key map [comment-region] '("Comment Out Region" . comment-region))
ed634043ad08 Fix bogus last checkin.
Dave Love <fx@gnu.org>
parents: 33480
diff changeset
193 (define-key map [indent-region] '("Indent Region" . indent-region))
ed634043ad08 Fix bogus last checkin.
Dave Love <fx@gnu.org>
parents: 33480
diff changeset
194 (define-key map [indent-line] '("Indent Line" . lisp-indent-line))
ed634043ad08 Fix bogus last checkin.
Dave Love <fx@gnu.org>
parents: 33480
diff changeset
195 (put 'comment-region 'menu-enable 'mark-active)
ed634043ad08 Fix bogus last checkin.
Dave Love <fx@gnu.org>
parents: 33480
diff changeset
196 (put 'uncomment-region 'menu-enable 'mark-active)
59761
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
197 (put 'indent-region 'menu-enable 'mark-active)
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
198 smap)
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
199 "Keymap for Scheme mode.
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
200 All commands in `lisp-mode-shared-map' are inherited by this map.")
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
201
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
202 ;; Used by cmuscheme
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203 (defun scheme-mode-commands (map)
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
204 ;;(define-key map "\t" 'indent-for-tab-command) ; default
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205 (define-key map "\177" 'backward-delete-char-untabify)
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
206 (define-key map "\e\C-q" 'indent-sexp))
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207
266
e0142855e083 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 65
diff changeset
208 ;;;###autoload
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 (defun scheme-mode ()
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 "Major mode for editing Scheme code.
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
211 Editing commands are similar to those of `lisp-mode'.
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 In addition, if an inferior Scheme process is running, some additional
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 commands will be defined, for evaluating expressions and controlling
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215 the interpreter, and the state of the process will be displayed in the
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216 modeline of all Scheme buffers. The names of commands that interact
32375
b9b7ecbf8925 (scheme-mode-variables, dsssl-mode): Avoid
Dave Love <fx@gnu.org>
parents: 32367
diff changeset
217 with the Scheme process start with \"xscheme-\" if you use the MIT
b9b7ecbf8925 (scheme-mode-variables, dsssl-mode): Avoid
Dave Love <fx@gnu.org>
parents: 32367
diff changeset
218 Scheme-specific `xscheme' package; for more information see the
b9b7ecbf8925 (scheme-mode-variables, dsssl-mode): Avoid
Dave Love <fx@gnu.org>
parents: 32367
diff changeset
219 documentation for `xscheme-interaction-mode'. Use \\[run-scheme] to
b9b7ecbf8925 (scheme-mode-variables, dsssl-mode): Avoid
Dave Love <fx@gnu.org>
parents: 32367
diff changeset
220 start an inferior Scheme using the more general `cmuscheme' package.
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
221
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 Commands:
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223 Delete converts tabs to spaces as it moves back.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224 Blank lines separate paragraphs. Semicolons start comments.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225 \\{scheme-mode-map}
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
226 Entry to this mode calls the value of `scheme-mode-hook'
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227 if that value is non-nil."
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228 (interactive)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 (kill-all-local-variables)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230 (use-local-map scheme-mode-map)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 (setq major-mode 'scheme-mode)
59761
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
232 (setq mode-name "Scheme")
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
233 (scheme-mode-variables)
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
234 (run-mode-hooks 'scheme-mode-hook))
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
236 (defgroup scheme nil
64050
a81b0edd5034 (scheme): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents: 61173
diff changeset
237 "Editing Scheme code."
66963
a11fdee52c05 Add :link (custom-group-link font-lock-faces) to defgroup.
Juri Linkov <juri@jurta.org>
parents: 66597
diff changeset
238 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
239 :group 'lisp)
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
240
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
241 (defcustom scheme-mit-dialect t
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242 "If non-nil, scheme mode is specialized for MIT Scheme.
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
243 Set this to nil if you normally use another dialect."
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
244 :type 'boolean
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
245 :group 'scheme)
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
246
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
247 (defcustom dsssl-sgml-declaration
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
248 "<!DOCTYPE style-sheet PUBLIC \"-//James Clark//DTD DSSSL Style Sheet//EN\">
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
249 "
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
250 "*An SGML declaration for the DSSSL file.
20461
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
251 If it is defined as a string this will be inserted into an empty buffer
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
252 which is in `dsssl-mode'. It is typically James Clark's style-sheet
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
253 doctype, as required for Jade."
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
254 :type '(choice (string :tag "Specified string")
20461
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
255 (const :tag "None" :value nil))
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
256 :group 'scheme)
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
257
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
258 (defcustom scheme-mode-hook nil
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
259 "Normal hook run when entering `scheme-mode'.
20461
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
260 See `run-hooks'."
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
261 :type 'hook
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
262 :group 'scheme)
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
263
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
264 (defcustom dsssl-mode-hook nil
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
265 "Normal hook run when entering `dsssl-mode'.
20461
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
266 See `run-hooks'."
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
267 :type 'hook
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
268 :group 'scheme)
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269
33487
71de6ba64af7 Fix again.
Dave Love <fx@gnu.org>
parents: 33483
diff changeset
270 ;; This is shared by cmuscheme and xscheme.
71de6ba64af7 Fix again.
Dave Love <fx@gnu.org>
parents: 33483
diff changeset
271 (defcustom scheme-program-name "scheme"
71de6ba64af7 Fix again.
Dave Love <fx@gnu.org>
parents: 33483
diff changeset
272 "*Program invoked by the `run-scheme' command."
71de6ba64af7 Fix again.
Dave Love <fx@gnu.org>
parents: 33483
diff changeset
273 :type 'string
71de6ba64af7 Fix again.
Dave Love <fx@gnu.org>
parents: 33483
diff changeset
274 :group 'scheme)
71de6ba64af7 Fix again.
Dave Love <fx@gnu.org>
parents: 33483
diff changeset
275
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
276 (defvar dsssl-imenu-generic-expression
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
277 ;; Perhaps this should also look for the style-sheet DTD tags. I'm
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
278 ;; not sure it's the best way to organize it; perhaps one type
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
279 ;; should be at the first level, though you don't see this anyhow if
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
280 ;; it gets split up.
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
281 '(("Defines"
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
282 "^(define\\s-+(?\\(\\sw+\\)" 1)
21632
1f3afd785962 (scheme-imenu-generic-expression,
Dave Love <fx@gnu.org>
parents: 21133
diff changeset
283 ("Modes"
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
284 "^\\s-*(mode\\s-+\\(\\(\\sw\\|\\s-\\)+\\)" 1)
21632
1f3afd785962 (scheme-imenu-generic-expression,
Dave Love <fx@gnu.org>
parents: 21133
diff changeset
285 ("Elements"
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
286 ;; (element foo ...) or (element (foo bar ...) ...)
17578
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
287 ;; Fixme: Perhaps it should do `root'.
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
288 "^\\s-*(element\\s-+(?\\(\\(\\sw\\|\\s-\\)+\\))?" 1)
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
289 ("Declarations"
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
290 "^(declare\\(-\\sw+\\)+\\>\\s-+\\(\\sw+\\)" 2))
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
291 "Imenu generic expression for DSSSL mode. See `imenu-generic-expression'.")
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
292
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
293 (defconst scheme-font-lock-keywords-1
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
294 (eval-when-compile
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
295 (list
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
296 ;;
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
297 ;; Declarations. Hannes Haug <hannes.haug@student.uni-tuebingen.de> says
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
298 ;; this works for SOS, STklos, SCOOPS, Meroon and Tiny CLOS.
22709
5fc9fd384c5c (scheme-font-lock-keywords-1): Fontify SCWM/Guile
Richard M. Stallman <rms@gnu.org>
parents: 21632
diff changeset
299 (list (concat "(\\(define\\*?\\("
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
300 ;; Function names.
22709
5fc9fd384c5c (scheme-font-lock-keywords-1): Fontify SCWM/Guile
Richard M. Stallman <rms@gnu.org>
parents: 21632
diff changeset
301 "\\(\\|-public\\|-method\\|-generic\\(-procedure\\)?\\)\\|"
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
302 ;; Macro names, as variable names. A bit dubious, this.
32375
b9b7ecbf8925 (scheme-mode-variables, dsssl-mode): Avoid
Dave Love <fx@gnu.org>
parents: 32367
diff changeset
303 "\\(-syntax\\|-macro\\)\\|"
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
304 ;; Class names.
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
305 "-class"
22709
5fc9fd384c5c (scheme-font-lock-keywords-1): Fontify SCWM/Guile
Richard M. Stallman <rms@gnu.org>
parents: 21632
diff changeset
306 ;; Guile modules.
5fc9fd384c5c (scheme-font-lock-keywords-1): Fontify SCWM/Guile
Richard M. Stallman <rms@gnu.org>
parents: 21632
diff changeset
307 "\\|-module"
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
308 "\\)\\)\\>"
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
309 ;; Any whitespace and declared object.
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
310 "[ \t]*(?"
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
311 "\\(\\sw+\\)?")
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
312 '(1 font-lock-keyword-face)
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
313 '(6 (cond ((match-beginning 3) font-lock-function-name-face)
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
314 ((match-beginning 5) font-lock-variable-name-face)
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
315 (t font-lock-type-face))
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
316 nil t))
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
317 ))
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
318 "Subdued expressions to highlight in Scheme modes.")
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
319
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
320 (defconst scheme-font-lock-keywords-2
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
321 (append scheme-font-lock-keywords-1
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
322 (eval-when-compile
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
323 (list
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
324 ;;
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
325 ;; Control structures.
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
326 (cons
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
327 (concat
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
328 "(" (regexp-opt
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
329 '("begin" "call-with-current-continuation" "call/cc"
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
330 "call-with-input-file" "call-with-output-file" "case" "cond"
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
331 "do" "else" "for-each" "if" "lambda"
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
332 "let" "let*" "let-syntax" "letrec" "letrec-syntax"
92103
51d024394524 (scheme-font-lock-keywords-2): Add SRFI 11 support.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 79717
diff changeset
333 ;; SRFI 11 usage comes up often enough.
51d024394524 (scheme-font-lock-keywords-2): Add SRFI 11 support.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 79717
diff changeset
334 "let-values" "let*-values"
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
335 ;; Hannes Haug <hannes.haug@student.uni-tuebingen.de> wants:
53589
5e2f11c3b2a9 (scheme-font-lock-keywords-2): Add "force".
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52677
diff changeset
336 "and" "or" "delay" "force"
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
337 ;; Stefan Monnier <stefan.monnier@epfl.ch> says don't bother:
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
338 ;;"quasiquote" "quote" "unquote" "unquote-splicing"
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
339 "map" "syntax" "syntax-rules") t)
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
340 "\\>") 1)
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
341 ;;
60180
d5618f820425 (scheme-font-lock-keywords-2): Handle named-let.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 59761
diff changeset
342 ;; It wouldn't be Scheme w/o named-let.
d5618f820425 (scheme-font-lock-keywords-2): Handle named-let.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 59761
diff changeset
343 '("(let\\s-+\\(\\sw+\\)"
d5618f820425 (scheme-font-lock-keywords-2): Handle named-let.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 59761
diff changeset
344 (1 font-lock-function-name-face))
d5618f820425 (scheme-font-lock-keywords-2): Handle named-let.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 59761
diff changeset
345 ;;
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
346 ;; David Fox <fox@graphics.cs.nyu.edu> for SOS/STklos class specifiers.
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
347 '("\\<<\\sw+>\\>" . font-lock-type-face)
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
348 ;;
52677
a4cf4569e557 (scheme-mode-variables): When setting
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
349 ;; Scheme `:' and `#:' keywords as builtins.
a4cf4569e557 (scheme-mode-variables): When setting
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
350 '("\\<#?:\\sw+\\>" . font-lock-builtin-face)
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
351 )))
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
352 "Gaudy expressions to highlight in Scheme modes.")
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
353
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
354 (defvar scheme-font-lock-keywords scheme-font-lock-keywords-1
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
355 "Default expressions to highlight in Scheme modes.")
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
356
65853
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
357 (defconst scheme-sexp-comment-syntax-table
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
358 (let ((st (make-syntax-table scheme-mode-syntax-table)))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
359 (modify-syntax-entry ?\; "." st)
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
360 (modify-syntax-entry ?\n " " st)
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
361 (modify-syntax-entry ?# "'" st)
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
362 st))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
363
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
364 (put 'lambda 'scheme-doc-string-elt 2)
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
365 ;; Docstring's pos in a `define' depends on whether it's a var or fun def.
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
366 (put 'define 'scheme-doc-string-elt
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
367 (lambda ()
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
368 ;; The function is called with point right after "define".
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
369 (forward-comment (point-max))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
370 (if (eq (char-after) ?\() 2 0)))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
371
65850
125c8f7cc7d2 (scheme-mode-syntax-table): Move the nesting bit from # to |.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65566
diff changeset
372 (defun scheme-font-lock-syntactic-face-function (state)
65853
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
373 (when (and (null (nth 3 state))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
374 (eq (char-after (nth 8 state)) ?#)
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
375 (eq (char-after (1+ (nth 8 state))) ?\;))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
376 ;; It's a sexp-comment. Tell parse-partial-sexp where it ends.
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
377 (save-excursion
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
378 (let ((pos (point))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
379 (end
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
380 (condition-case err
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
381 (let ((parse-sexp-lookup-properties nil))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
382 (goto-char (+ 2 (nth 8 state)))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
383 ;; FIXME: this doesn't handle the case where the sexp
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
384 ;; itself contains a #; comment.
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
385 (forward-sexp 1)
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
386 (point))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
387 (scan-error (nth 2 err)))))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
388 (when (< pos (- end 2))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
389 (put-text-property pos (- end 2)
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
390 'syntax-table scheme-sexp-comment-syntax-table))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
391 (put-text-property (- end 1) end 'syntax-table '(12)))))
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
392 ;; Choose the face to use.
78fc6b412d17 (scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65850
diff changeset
393 (lisp-font-lock-syntactic-face-function state))
65850
125c8f7cc7d2 (scheme-mode-syntax-table): Move the nesting bit from # to |.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 65566
diff changeset
394
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
395 ;;;###autoload
59761
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
396 (define-derived-mode dsssl-mode scheme-mode "DSSSL"
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
397 "Major mode for editing DSSSL code.
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
398 Editing commands are similar to those of `lisp-mode'.
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
400 Commands:
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
401 Delete converts tabs to spaces as it moves back.
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
402 Blank lines separate paragraphs. Semicolons start comments.
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
403 \\{scheme-mode-map}
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
404 Entering this mode runs the hooks `scheme-mode-hook' and then
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
405 `dsssl-mode-hook' and inserts the value of `dsssl-sgml-declaration' if
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
406 that variable's value is a string."
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
407 (make-local-variable 'page-delimiter)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
408 (setq page-delimiter "^;;;" ; ^L not valid SGML char
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
409 major-mode 'dsssl-mode
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
410 mode-name "DSSSL")
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
411 ;; Insert a suitable SGML declaration into an empty buffer.
59761
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
412 ;; FIXME: This should use `auto-insert-alist' instead.
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
413 (and (zerop (buffer-size))
17578
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
414 (stringp dsssl-sgml-declaration)
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
415 (not buffer-read-only)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
416 (insert dsssl-sgml-declaration))
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
417 (setq font-lock-defaults '(dsssl-font-lock-keywords
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
418 nil t (("+-*/.<>=?$%_&~^:" . "w"))
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
419 beginning-of-defun
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
420 (font-lock-mark-block-function . mark-defun)))
32375
b9b7ecbf8925 (scheme-mode-variables, dsssl-mode): Avoid
Dave Love <fx@gnu.org>
parents: 32367
diff changeset
421 (set (make-local-variable 'imenu-case-fold-search) nil)
20459
90f306f86f5d Use imenu-case-fold-search.
Dave Love <fx@gnu.org>
parents: 20334
diff changeset
422 (setq imenu-generic-expression dsssl-imenu-generic-expression)
32375
b9b7ecbf8925 (scheme-mode-variables, dsssl-mode): Avoid
Dave Love <fx@gnu.org>
parents: 32367
diff changeset
423 (set (make-local-variable 'imenu-syntax-alist)
59761
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
424 '(("+-*/.<>=?$%_&~^:" . "w"))))
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
425
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
426 ;; Extra syntax for DSSSL. This isn't separated from Scheme, but
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
427 ;; shouldn't cause much trouble in scheme-mode.
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
428 (put 'element 'scheme-indent-function 1)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
429 (put 'mode 'scheme-indent-function 1)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
430 (put 'with-mode 'scheme-indent-function 1)
17402
1c01c986afc9 (make): Add scheme-indent-function property.
Richard M. Stallman <rms@gnu.org>
parents: 17359
diff changeset
431 (put 'make 'scheme-indent-function 1)
17578
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
432 (put 'style 'scheme-indent-function 1)
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
433 (put 'root 'scheme-indent-function 1)
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
434
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
435 (defvar dsssl-font-lock-keywords
17578
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
436 (eval-when-compile
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
437 (list
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
438 ;; Similar to Scheme
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
439 (list "(\\(define\\(-\\w+\\)?\\)\\>[ ]*\\\((?\\)\\(\\sw+\\)\\>"
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
440 '(1 font-lock-keyword-face)
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
441 '(4 font-lock-function-name-face))
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
442 (cons
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
443 (concat "(\\("
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
444 ;; (make-regexp '("case" "cond" "else" "if" "lambda"
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
445 ;; "let" "let*" "letrec" "and" "or" "map" "with-mode"))
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
446 "and\\|c\\(ase\\|ond\\)\\|else\\|if\\|"
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
447 "l\\(ambda\\|et\\(\\|*\\|rec\\)\\)\\|map\\|or\\|with-mode"
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
448 "\\)\\>")
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
449 1)
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
450 ;; DSSSL syntax
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
451 '("(\\(element\\|mode\\|declare-\\w+\\)\\>[ ]*\\(\\sw+\\)"
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
452 (1 font-lock-keyword-face)
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
453 (2 font-lock-type-face))
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
454 '("(\\(element\\)\\>[ ]*(\\(\\S)+\\))"
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
455 (1 font-lock-keyword-face)
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
456 (2 font-lock-type-face))
20953
f3f9df46d008 Changed font-lock-reference-face to font-lock-constant-face.
Simon Marshall <simon@gnu.org>
parents: 20891
diff changeset
457 '("\\<\\sw+:\\>" . font-lock-constant-face) ; trailing `:' c.f. scheme
17578
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
458 ;; SGML markup (from sgml-mode) :
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
459 '("<\\([!?][-a-z0-9]+\\)" 1 font-lock-keyword-face)
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
460 '("<\\(/?[-a-z0-9]+\\)" 1 font-lock-function-name-face)))
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
461 "Default expressions to highlight in DSSSL mode.")
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
462
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
463
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
464 (defvar calculate-lisp-indent-last-sexp)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
465
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
466 ;; Copied from lisp-indent-function, but with gets of
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
467 ;; scheme-indent-{function,hook}.
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468 (defun scheme-indent-function (indent-point state)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 (let ((normal-indent (current-column)))
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
470 (goto-char (1+ (elt state 1)))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
471 (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
472 (if (and (elt state 2)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
473 (not (looking-at "\\sw\\|\\s_")))
46159
bd315b9fa3f0 Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 38436
diff changeset
474 ;; car of form doesn't seem to be a symbol
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
475 (progn
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
476 (if (not (> (save-excursion (forward-line 1) (point))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
477 calculate-lisp-indent-last-sexp))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
478 (progn (goto-char calculate-lisp-indent-last-sexp)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
479 (beginning-of-line)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
480 (parse-partial-sexp (point)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
481 calculate-lisp-indent-last-sexp 0 t)))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
482 ;; Indent under the list or under the first sexp on the same
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
483 ;; line as calculate-lisp-indent-last-sexp. Note that first
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
484 ;; thing on that line has to be complete sexp since we are
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
485 ;; inside the innermost containing sexp.
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
486 (backward-prefix-chars)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
487 (current-column))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
488 (let ((function (buffer-substring (point)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
489 (progn (forward-sexp 1) (point))))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
490 method)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
491 (setq method (or (get (intern-soft function) 'scheme-indent-function)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
492 (get (intern-soft function) 'scheme-indent-hook)))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
493 (cond ((or (eq method 'defun)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
494 (and (null method)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
495 (> (length function) 3)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
496 (string-match "\\`def" function)))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
497 (lisp-indent-defform state indent-point))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
498 ((integerp method)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
499 (lisp-indent-specform method state
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
500 indent-point normal-indent))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
501 (method
20067
694a165b5b0d (scheme-let-indent): New arg NORMAL-INDENT.
Karl Heuer <kwzh@gnu.org>
parents: 18285
diff changeset
502 (funcall method state indent-point normal-indent)))))))
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 ;;; Let is different in Scheme
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 (defun would-be-symbol (string)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 (not (string-equal (substring string 0 1) "(")))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 (defun next-sexp-as-string ()
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
511 ;; Assumes that it is protected by a save-excursion
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512 (forward-sexp 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 (let ((the-end (point)))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 (backward-sexp 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 (buffer-substring (point) the-end)))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 ;; This is correct but too slow.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 ;; The one below works almost always.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 ;;(defun scheme-let-indent (state indent-point)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 ;; (if (would-be-symbol (next-sexp-as-string))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 ;; (scheme-indent-specform 2 state indent-point)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 ;; (scheme-indent-specform 1 state indent-point)))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523
20067
694a165b5b0d (scheme-let-indent): New arg NORMAL-INDENT.
Karl Heuer <kwzh@gnu.org>
parents: 18285
diff changeset
524 (defun scheme-let-indent (state indent-point normal-indent)
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 (skip-chars-forward " \t")
6310
c40e283c262b Put hyphen in a safer place in the character class.
Karl Heuer <kwzh@gnu.org>
parents: 3591
diff changeset
526 (if (looking-at "[-a-zA-Z0-9+*/?!@$%^&_:~]")
20067
694a165b5b0d (scheme-let-indent): New arg NORMAL-INDENT.
Karl Heuer <kwzh@gnu.org>
parents: 18285
diff changeset
527 (lisp-indent-specform 2 state indent-point normal-indent)
694a165b5b0d (scheme-let-indent): New arg NORMAL-INDENT.
Karl Heuer <kwzh@gnu.org>
parents: 18285
diff changeset
528 (lisp-indent-specform 1 state indent-point normal-indent)))
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 ;; (put 'begin 'scheme-indent-function 0), say, causes begin to be indented
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 ;; like defun if the first form is placed on the next line, otherwise
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 ;; it is indented like any other form (i.e. forms line up under first).
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534 (put 'begin 'scheme-indent-function 0)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535 (put 'case 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
536 (put 'delay 'scheme-indent-function 0)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 (put 'do 'scheme-indent-function 2)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 (put 'lambda 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 (put 'let 'scheme-indent-function 'scheme-let-indent)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
540 (put 'let* 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
541 (put 'letrec 'scheme-indent-function 1)
92103
51d024394524 (scheme-font-lock-keywords-2): Add SRFI 11 support.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 79717
diff changeset
542 (put 'let-values 'scheme-indent-function 1) ; SRFI 11
51d024394524 (scheme-font-lock-keywords-2): Add SRFI 11 support.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 79717
diff changeset
543 (put 'let*-values 'scheme-indent-function 1) ; SRFI 11
20461
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
544 (put 'sequence 'scheme-indent-function 0) ; SICP, not r4rs
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
545 (put 'let-syntax 'scheme-indent-function 1)
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
546 (put 'letrec-syntax 'scheme-indent-function 1)
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
547 (put 'syntax-rules 'scheme-indent-function 1)
48074
a3d1322abc88 (syntax-case): Define
Dave Love <fx@gnu.org>
parents: 46159
diff changeset
548 (put 'syntax-case 'scheme-indent-function 2) ; not r5rs
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550 (put 'call-with-input-file 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
551 (put 'with-input-from-file 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 (put 'with-input-from-port 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
553 (put 'call-with-output-file 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
554 (put 'with-output-to-file 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
555 (put 'with-output-to-port 'scheme-indent-function 1)
20461
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
556 (put 'call-with-values 'scheme-indent-function 1) ; r5rs?
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
557 (put 'dynamic-wind 'scheme-indent-function 3) ; r5rs?
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
558
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
559 ;;;; MIT Scheme specific indentation.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
560
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561 (if scheme-mit-dialect
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562 (progn
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
563 (put 'fluid-let 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
564 (put 'in-package 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
565 (put 'local-declare 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566 (put 'macro 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567 (put 'make-environment 'scheme-indent-function 0)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 (put 'named-lambda 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569 (put 'using-syntax 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571 (put 'with-input-from-string 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572 (put 'with-output-to-string 'scheme-indent-function 0)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
573 (put 'with-values 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
574
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575 (put 'syntax-table-define 'scheme-indent-function 2)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576 (put 'list-transform-positive 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577 (put 'list-transform-negative 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578 (put 'list-search-positive 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
579 (put 'list-search-negative 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581 (put 'access-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 (put 'assignment-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 (put 'combination-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 (put 'comment-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 (put 'conditional-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 (put 'disjunction-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587 (put 'declaration-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 (put 'definition-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589 (put 'delay-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 (put 'in-package-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591 (put 'lambda-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
592 (put 'lambda-components* 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593 (put 'lambda-components** 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594 (put 'open-block-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
595 (put 'pathname-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596 (put 'procedure-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
597 (put 'sequence-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598 (put 'unassigned\?-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 (put 'unbound\?-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 (put 'variable-components 'scheme-indent-function 1)))
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 266
diff changeset
601
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 266
diff changeset
602 (provide 'scheme)
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
603
59761
6803187d322e (scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53589
diff changeset
604 ;; arch-tag: a8f06bc1-ad11-42d2-9e36-ce651df37a90
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
605 ;;; scheme.el ends here