Mercurial > emacs
annotate lisp/progmodes/scheme.el @ 96849:d049ef97c446
* print.c (print_object): Check print_depth before searching for
circularities.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Mon, 21 Jul 2008 05:02:31 +0000 |
parents | 52b7a8c22af5 |
children | a9dc0e7c3f2b |
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 | 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 | 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 | 10 ;; This file is part of GNU Emacs. |
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 | 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 | 16 |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
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 | 24 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
25 ;;; Commentary: |
65 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 113 |
26938 | 114 (defvar scheme-mode-abbrev-table nil) |
65 | 115 (define-abbrev-table 'scheme-mode-abbrev-table ()) |
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 | 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 | 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 | 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 | 126 (defun scheme-mode-variables () |
127 (set-syntax-table scheme-mode-syntax-table) | |
128 (setq local-abbrev-table scheme-mode-abbrev-table) | |
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 | 131 (make-local-variable 'paragraph-separate) |
132 (setq paragraph-separate paragraph-start) | |
133 (make-local-variable 'paragraph-ignore-fill-prefix) | |
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 | 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 | 148 (make-local-variable 'comment-start) |
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 | 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 | 156 (make-local-variable 'comment-column) |
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 | 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 | 179 |
180 (defvar scheme-mode-line-process "") | |
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 | 187 (define-key map [run-scheme] '("Run Inferior Scheme" . run-scheme)) |
188 (define-key map [uncomment-region] | |
189 '("Uncomment Out Region" . (lambda (beg end) | |
190 (interactive "r") | |
191 (comment-region beg end '(4))))) | |
192 (define-key map [comment-region] '("Comment Out Region" . comment-region)) | |
193 (define-key map [indent-region] '("Indent Region" . indent-region)) | |
194 (define-key map [indent-line] '("Indent Line" . lisp-indent-line)) | |
195 (put 'comment-region 'menu-enable 'mark-active) | |
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 | 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 | 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 | 207 |
266 | 208 ;;;###autoload |
65 | 209 (defun scheme-mode () |
210 "Major mode for editing Scheme code. | |
26938 | 211 Editing commands are similar to those of `lisp-mode'. |
65 | 212 |
213 In addition, if an inferior Scheme process is running, some additional | |
214 commands will be defined, for evaluating expressions and controlling | |
215 the interpreter, and the state of the process will be displayed in the | |
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 | 221 |
222 Commands: | |
223 Delete converts tabs to spaces as it moves back. | |
224 Blank lines separate paragraphs. Semicolons start comments. | |
225 \\{scheme-mode-map} | |
26938 | 226 Entry to this mode calls the value of `scheme-mode-hook' |
65 | 227 if that value is non-nil." |
228 (interactive) | |
229 (kill-all-local-variables) | |
230 (use-local-map scheme-mode-map) | |
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 | 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 | 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 | 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 | 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 | 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 | 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 | 269 |
33487 | 270 ;; This is shared by cmuscheme and xscheme. |
271 (defcustom scheme-program-name "scheme" | |
272 "*Program invoked by the `run-scheme' command." | |
273 :type 'string | |
274 :group 'scheme) | |
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 | 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 | 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 | 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 | 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 | 398 Editing commands are similar to those of `lisp-mode'. |
65 | 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 | 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 | 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 | 468 (defun scheme-indent-function (indent-point state) |
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 | 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 | 503 |
504 | |
505 ;;; Let is different in Scheme | |
506 | |
507 (defun would-be-symbol (string) | |
508 (not (string-equal (substring string 0 1) "("))) | |
509 | |
510 (defun next-sexp-as-string () | |
26938 | 511 ;; Assumes that it is protected by a save-excursion |
65 | 512 (forward-sexp 1) |
513 (let ((the-end (point))) | |
514 (backward-sexp 1) | |
515 (buffer-substring (point) the-end))) | |
516 | |
517 ;; This is correct but too slow. | |
518 ;; The one below works almost always. | |
519 ;;(defun scheme-let-indent (state indent-point) | |
520 ;; (if (would-be-symbol (next-sexp-as-string)) | |
521 ;; (scheme-indent-specform 2 state indent-point) | |
522 ;; (scheme-indent-specform 1 state indent-point))) | |
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 | 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 | 529 |
530 ;; (put 'begin 'scheme-indent-function 0), say, causes begin to be indented | |
531 ;; like defun if the first form is placed on the next line, otherwise | |
532 ;; it is indented like any other form (i.e. forms line up under first). | |
533 | |
534 (put 'begin 'scheme-indent-function 0) | |
535 (put 'case 'scheme-indent-function 1) | |
536 (put 'delay 'scheme-indent-function 0) | |
537 (put 'do 'scheme-indent-function 2) | |
538 (put 'lambda 'scheme-indent-function 1) | |
539 (put 'let 'scheme-indent-function 'scheme-let-indent) | |
540 (put 'let* 'scheme-indent-function 1) | |
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 | 548 (put 'syntax-case 'scheme-indent-function 2) ; not r5rs |
65 | 549 |
550 (put 'call-with-input-file 'scheme-indent-function 1) | |
551 (put 'with-input-from-file 'scheme-indent-function 1) | |
552 (put 'with-input-from-port 'scheme-indent-function 1) | |
553 (put 'call-with-output-file 'scheme-indent-function 1) | |
554 (put 'with-output-to-file 'scheme-indent-function 1) | |
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 | 558 |
559 ;;;; MIT Scheme specific indentation. | |
560 | |
561 (if scheme-mit-dialect | |
562 (progn | |
563 (put 'fluid-let 'scheme-indent-function 1) | |
564 (put 'in-package 'scheme-indent-function 1) | |
565 (put 'local-declare 'scheme-indent-function 1) | |
566 (put 'macro 'scheme-indent-function 1) | |
567 (put 'make-environment 'scheme-indent-function 0) | |
568 (put 'named-lambda 'scheme-indent-function 1) | |
569 (put 'using-syntax 'scheme-indent-function 1) | |
570 | |
571 (put 'with-input-from-string 'scheme-indent-function 1) | |
572 (put 'with-output-to-string 'scheme-indent-function 0) | |
573 (put 'with-values 'scheme-indent-function 1) | |
574 | |
575 (put 'syntax-table-define 'scheme-indent-function 2) | |
576 (put 'list-transform-positive 'scheme-indent-function 1) | |
577 (put 'list-transform-negative 'scheme-indent-function 1) | |
578 (put 'list-search-positive 'scheme-indent-function 1) | |
579 (put 'list-search-negative 'scheme-indent-function 1) | |
580 | |
581 (put 'access-components 'scheme-indent-function 1) | |
582 (put 'assignment-components 'scheme-indent-function 1) | |
583 (put 'combination-components 'scheme-indent-function 1) | |
584 (put 'comment-components 'scheme-indent-function 1) | |
585 (put 'conditional-components 'scheme-indent-function 1) | |
586 (put 'disjunction-components 'scheme-indent-function 1) | |
587 (put 'declaration-components 'scheme-indent-function 1) | |
588 (put 'definition-components 'scheme-indent-function 1) | |
589 (put 'delay-components 'scheme-indent-function 1) | |
590 (put 'in-package-components 'scheme-indent-function 1) | |
591 (put 'lambda-components 'scheme-indent-function 1) | |
592 (put 'lambda-components* 'scheme-indent-function 1) | |
593 (put 'lambda-components** 'scheme-indent-function 1) | |
594 (put 'open-block-components 'scheme-indent-function 1) | |
595 (put 'pathname-components 'scheme-indent-function 1) | |
596 (put 'procedure-components 'scheme-indent-function 1) | |
597 (put 'sequence-components 'scheme-indent-function 1) | |
598 (put 'unassigned\?-components 'scheme-indent-function 1) | |
599 (put 'unbound\?-components 'scheme-indent-function 1) | |
600 (put 'variable-components 'scheme-indent-function 1))) | |
584 | 601 |
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 |