Mercurial > emacs
annotate lisp/progmodes/scheme.el @ 78258:6aba169c4b1f
Switch license to GPLv3 or later.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 25 Jul 2007 05:07:12 +0000 |
parents | c1ec1c8a8d2e |
children | b9750e17698c f55f9811f5d7 |
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, |
75347 | 4 ;; 2006, 2007 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 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
78234
c1ec1c8a8d2e
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75347
diff
changeset
|
14 ;; the Free Software Foundation; either version 3, or (at your option) |
65 | 15 ;; any later version. |
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 | |
14169 | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 ;; Boston, MA 02110-1301, USA. | |
65 | 26 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
27 ;;; Commentary: |
65 | 28 |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
29 ;; 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
|
30 ;; 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
|
31 ;; 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
|
32 ;; 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
|
33 ;; 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
|
34 ;; 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
|
35 ;; syntax they highlight/indent/index, but dsssl-mode uses "^;;;" as |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
36 ;; the page-delimiter since ^L isn't normally a legal SGML character. |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
37 ;; |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
38 ;; 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
|
39 ;; 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
|
40 ;; `xscheme' package. |
65 | 41 |
20461
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
42 ;; 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
|
43 ;; 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
|
44 ;; ]+\([^ \t( |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
45 ;; ]+\)/\2/' --regex='/[ \t]*(element[ \t |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
46 ;; ]*([^)]+[ \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 ;; ]*)/\1/' --regex='/(declare[^ \t |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
49 ;; ]*[ \t |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
50 ;; ]+\([^ \t |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
51 ;; ]+\)/\1/' "$@" |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
52 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
53 ;;; Code: |
65 | 54 |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
55 (require 'lisp-mode) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
56 |
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
|
57 (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
|
58 (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
|
59 (i 0)) |
65 | 60 |
50070
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
61 ;; Default is atom-constituent. |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
62 (while (< i 256) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
63 (modify-syntax-entry i "_ " st) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
64 (setq i (1+ i))) |
65 | 65 |
50070
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
66 ;; Word components. |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
67 (setq i ?0) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
68 (while (<= i ?9) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
69 (modify-syntax-entry i "w " st) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
70 (setq i (1+ i))) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
71 (setq i ?A) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
72 (while (<= i ?Z) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
73 (modify-syntax-entry i "w " st) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
74 (setq i (1+ i))) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
75 (setq i ?a) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
76 (while (<= i ?z) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
77 (modify-syntax-entry i "w " st) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
78 (setq i (1+ i))) |
65 | 79 |
50070
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
80 ;; Whitespace |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
81 (modify-syntax-entry ?\t " " st) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
82 (modify-syntax-entry ?\n "> " st) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
83 (modify-syntax-entry ?\f " " st) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
84 (modify-syntax-entry ?\r " " st) |
64050
a81b0edd5034
(scheme): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
61173
diff
changeset
|
85 (modify-syntax-entry ?\s " " st) |
65 | 86 |
50070
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
87 ;; These characters are delimiters but otherwise undefined. |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
88 ;; Brackets and braces balance for editing convenience. |
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) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
91 (modify-syntax-entry ?{ "(} " st) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
92 (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
|
93 (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
|
94 ;; Guile allows #! ... !# comments. |
125c8f7cc7d2
(scheme-mode-syntax-table): Move the nesting bit from # to |.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65566
diff
changeset
|
95 ;; 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
|
96 ;; 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
|
97 ;; 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
|
98 ;; (modify-syntax-entry ?! "_ 2" st) |
65 | 99 |
50070
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
100 ;; Other atom delimiters |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
101 (modify-syntax-entry ?\( "() " st) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
102 (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
|
103 ;; 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
|
104 (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
|
105 (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
|
106 (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
|
107 (modify-syntax-entry ?` "' " st) |
65 | 108 |
50070
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
109 ;; Special characters |
50678
106688eb08d8
(scheme-mode-syntax-table): Use prefix syntax for ', `, comma, @ and #.
Richard M. Stallman <rms@gnu.org>
parents:
50070
diff
changeset
|
110 (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
|
111 (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
|
112 (modify-syntax-entry ?# "' 14b" st) |
50070
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
113 (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
|
114 st)) |
65 | 115 |
26938 | 116 (defvar scheme-mode-abbrev-table nil) |
65 | 117 (define-abbrev-table 'scheme-mode-abbrev-table ()) |
118 | |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
119 (defvar scheme-imenu-generic-expression |
26938 | 120 '((nil |
20891
0b58035a48ca
(scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents:
20461
diff
changeset
|
121 "^(define\\(\\|-\\(generic\\(\\|-procedure\\)\\|method\\)\\)*\\s-+(?\\(\\sw+\\)" 4) |
26938 | 122 ("Types" |
20891
0b58035a48ca
(scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents:
20461
diff
changeset
|
123 "^(define-class\\s-+(?\\(\\sw+\\)" 1) |
21632 | 124 ("Macros" |
20891
0b58035a48ca
(scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents:
20461
diff
changeset
|
125 "^(\\(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
|
126 "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
|
127 |
65 | 128 (defun scheme-mode-variables () |
129 (set-syntax-table scheme-mode-syntax-table) | |
130 (setq local-abbrev-table scheme-mode-abbrev-table) | |
131 (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
|
132 (setq paragraph-start (concat "$\\|" page-delimiter)) |
65 | 133 (make-local-variable 'paragraph-separate) |
134 (setq paragraph-separate paragraph-start) | |
135 (make-local-variable 'paragraph-ignore-fill-prefix) | |
136 (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
|
137 (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
|
138 (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
|
139 ;; 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
|
140 ;; 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
|
141 ;; 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
|
142 (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
|
143 (setq adaptive-fill-mode nil) |
20334
98744f3de8ed
(scheme-mode-variables): Bind normal-auto-fill-function.
Richard M. Stallman <rms@gnu.org>
parents:
20067
diff
changeset
|
144 (make-local-variable 'normal-auto-fill-function) |
98744f3de8ed
(scheme-mode-variables): Bind normal-auto-fill-function.
Richard M. Stallman <rms@gnu.org>
parents:
20067
diff
changeset
|
145 (setq normal-auto-fill-function 'lisp-mode-auto-fill) |
65 | 146 (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
|
147 (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
|
148 (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
|
149 (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
|
150 (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
|
151 (setq outline-regexp ";;; \\|(....") |
65 | 152 (make-local-variable 'comment-start) |
153 (setq comment-start ";") | |
59761
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
154 (set (make-local-variable 'comment-add) 1) |
65 | 155 (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
|
156 ;; 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
|
157 ;; 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
|
158 (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+[ \t]*") |
65 | 159 (make-local-variable 'comment-column) |
160 (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
|
161 (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
|
162 (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
|
163 (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
|
164 (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
|
165 (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
|
166 (set (make-local-variable 'imenu-case-fold-search) t) |
20459 | 167 (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
|
168 (set (make-local-variable 'imenu-syntax-alist) |
b9b7ecbf8925
(scheme-mode-variables, dsssl-mode): Avoid
Dave Love <fx@gnu.org>
parents:
32367
diff
changeset
|
169 '(("+-*/.<>=?!$%_&~^:" . "w"))) |
65853
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
170 (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
|
171 '((scheme-font-lock-keywords |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
172 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
|
173 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
|
174 beginning-of-defun |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
175 (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
|
176 (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
|
177 . 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
|
178 (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
|
179 (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
|
180 (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
|
181 'scheme-doc-string-elt)) |
65 | 182 |
183 (defvar scheme-mode-line-process "") | |
184 | |
59761
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
185 (defvar scheme-mode-map |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
186 (let ((smap (make-sparse-keymap)) |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
187 (map (make-sparse-keymap "Scheme"))) |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
188 (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
|
189 (define-key smap [menu-bar scheme] (cons "Scheme" map)) |
33483 | 190 (define-key map [run-scheme] '("Run Inferior Scheme" . run-scheme)) |
191 (define-key map [uncomment-region] | |
192 '("Uncomment Out Region" . (lambda (beg end) | |
193 (interactive "r") | |
194 (comment-region beg end '(4))))) | |
195 (define-key map [comment-region] '("Comment Out Region" . comment-region)) | |
196 (define-key map [indent-region] '("Indent Region" . indent-region)) | |
197 (define-key map [indent-line] '("Indent Line" . lisp-indent-line)) | |
198 (put 'comment-region 'menu-enable 'mark-active) | |
199 (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
|
200 (put 'indent-region 'menu-enable 'mark-active) |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
201 smap) |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
202 "Keymap for Scheme mode. |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
203 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
|
204 |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
205 ;; Used by cmuscheme |
65 | 206 (defun scheme-mode-commands (map) |
18285
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
207 ;;(define-key map "\t" 'indent-for-tab-command) ; default |
65 | 208 (define-key map "\177" 'backward-delete-char-untabify) |
18285
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
209 (define-key map "\e\C-q" 'indent-sexp)) |
65 | 210 |
266 | 211 ;;;###autoload |
65 | 212 (defun scheme-mode () |
213 "Major mode for editing Scheme code. | |
26938 | 214 Editing commands are similar to those of `lisp-mode'. |
65 | 215 |
216 In addition, if an inferior Scheme process is running, some additional | |
217 commands will be defined, for evaluating expressions and controlling | |
218 the interpreter, and the state of the process will be displayed in the | |
219 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
|
220 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
|
221 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
|
222 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
|
223 start an inferior Scheme using the more general `cmuscheme' package. |
65 | 224 |
225 Commands: | |
226 Delete converts tabs to spaces as it moves back. | |
227 Blank lines separate paragraphs. Semicolons start comments. | |
228 \\{scheme-mode-map} | |
26938 | 229 Entry to this mode calls the value of `scheme-mode-hook' |
65 | 230 if that value is non-nil." |
231 (interactive) | |
232 (kill-all-local-variables) | |
233 (use-local-map scheme-mode-map) | |
234 (setq major-mode 'scheme-mode) | |
59761
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
235 (setq mode-name "Scheme") |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
236 (scheme-mode-variables) |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
237 (run-mode-hooks 'scheme-mode-hook)) |
65 | 238 |
18285
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
239 (defgroup scheme nil |
64050
a81b0edd5034
(scheme): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
61173
diff
changeset
|
240 "Editing Scheme code." |
66963
a11fdee52c05
Add :link (custom-group-link font-lock-faces) to defgroup.
Juri Linkov <juri@jurta.org>
parents:
66597
diff
changeset
|
241 :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
|
242 :group 'lisp) |
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
243 |
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
244 (defcustom scheme-mit-dialect t |
65 | 245 "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
|
246 Set this to nil if you normally use another dialect." |
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
247 :type 'boolean |
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
248 :group 'scheme) |
17359
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 (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
|
251 "<!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
|
252 " |
18285
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
253 "*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
|
254 If it is defined as a string this will be inserted into an empty buffer |
26938 | 255 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
|
256 doctype, as required for Jade." |
26938 | 257 :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
|
258 (const :tag "None" :value nil)) |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
259 :group 'scheme) |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
260 |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
261 (defcustom scheme-mode-hook nil |
26938 | 262 "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
|
263 See `run-hooks'." |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
264 :type 'hook |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
265 :group 'scheme) |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
266 |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
267 (defcustom dsssl-mode-hook nil |
26938 | 268 "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
|
269 See `run-hooks'." |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
270 :type 'hook |
18285
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
271 :group 'scheme) |
65 | 272 |
33487 | 273 ;; This is shared by cmuscheme and xscheme. |
274 (defcustom scheme-program-name "scheme" | |
275 "*Program invoked by the `run-scheme' command." | |
276 :type 'string | |
277 :group 'scheme) | |
278 | |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
279 (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
|
280 ;; 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
|
281 ;; 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
|
282 ;; 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
|
283 ;; it gets split up. |
26938 | 284 '(("Defines" |
20891
0b58035a48ca
(scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents:
20461
diff
changeset
|
285 "^(define\\s-+(?\\(\\sw+\\)" 1) |
21632 | 286 ("Modes" |
20891
0b58035a48ca
(scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents:
20461
diff
changeset
|
287 "^\\s-*(mode\\s-+\\(\\(\\sw\\|\\s-\\)+\\)" 1) |
21632 | 288 ("Elements" |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
289 ;; (element foo ...) or (element (foo bar ...) ...) |
17578
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
290 ;; Fixme: Perhaps it should do `root'. |
20891
0b58035a48ca
(scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents:
20461
diff
changeset
|
291 "^\\s-*(element\\s-+(?\\(\\(\\sw\\|\\s-\\)+\\))?" 1) |
26938 | 292 ("Declarations" |
20891
0b58035a48ca
(scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents:
20461
diff
changeset
|
293 "^(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
|
294 "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
|
295 |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
296 (defconst scheme-font-lock-keywords-1 |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
297 (eval-when-compile |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
298 (list |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
299 ;; |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
300 ;; 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
|
301 ;; 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
|
302 (list (concat "(\\(define\\*?\\(" |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
303 ;; Function names. |
22709
5fc9fd384c5c
(scheme-font-lock-keywords-1): Fontify SCWM/Guile
Richard M. Stallman <rms@gnu.org>
parents:
21632
diff
changeset
|
304 "\\(\\|-public\\|-method\\|-generic\\(-procedure\\)?\\)\\|" |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
305 ;; 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
|
306 "\\(-syntax\\|-macro\\)\\|" |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
307 ;; Class names. |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
308 "-class" |
22709
5fc9fd384c5c
(scheme-font-lock-keywords-1): Fontify SCWM/Guile
Richard M. Stallman <rms@gnu.org>
parents:
21632
diff
changeset
|
309 ;; Guile modules. |
5fc9fd384c5c
(scheme-font-lock-keywords-1): Fontify SCWM/Guile
Richard M. Stallman <rms@gnu.org>
parents:
21632
diff
changeset
|
310 "\\|-module" |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
311 "\\)\\)\\>" |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
312 ;; Any whitespace and declared object. |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
313 "[ \t]*(?" |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
314 "\\(\\sw+\\)?") |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
315 '(1 font-lock-keyword-face) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
316 '(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
|
317 ((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
|
318 (t font-lock-type-face)) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
319 nil t)) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
320 )) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
321 "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
|
322 |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
323 (defconst scheme-font-lock-keywords-2 |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
324 (append scheme-font-lock-keywords-1 |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
325 (eval-when-compile |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
326 (list |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
327 ;; |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
328 ;; Control structures. |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
329 (cons |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
330 (concat |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
331 "(" (regexp-opt |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
332 '("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
|
333 "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
|
334 "do" "else" "for-each" "if" "lambda" |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
335 "let" "let*" "let-syntax" "letrec" "letrec-syntax" |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
336 ;; 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
|
337 "and" "or" "delay" "force" |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
338 ;; 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
|
339 ;;"quasiquote" "quote" "unquote" "unquote-splicing" |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
340 "map" "syntax" "syntax-rules") t) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
341 "\\>") 1) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
342 ;; |
60180
d5618f820425
(scheme-font-lock-keywords-2): Handle named-let.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
59761
diff
changeset
|
343 ;; 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
|
344 '("(let\\s-+\\(\\sw+\\)" |
d5618f820425
(scheme-font-lock-keywords-2): Handle named-let.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
59761
diff
changeset
|
345 (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
|
346 ;; |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
347 ;; 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
|
348 '("\\<<\\sw+>\\>" . font-lock-type-face) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
349 ;; |
52677
a4cf4569e557
(scheme-mode-variables): When setting
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52401
diff
changeset
|
350 ;; Scheme `:' and `#:' keywords as builtins. |
a4cf4569e557
(scheme-mode-variables): When setting
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52401
diff
changeset
|
351 '("\\<#?:\\sw+\\>" . font-lock-builtin-face) |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
352 ))) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
353 "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
|
354 |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
355 (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
|
356 "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
|
357 |
65853
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
358 (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
|
359 (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
|
360 (modify-syntax-entry ?\; "." 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 ?\n " " st) |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
362 (modify-syntax-entry ?# "'" st) |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
363 st)) |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
364 |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
365 (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
|
366 ;; 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
|
367 (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
|
368 (lambda () |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
369 ;; 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
|
370 (forward-comment (point-max)) |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
371 (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
|
372 |
65850
125c8f7cc7d2
(scheme-mode-syntax-table): Move the nesting bit from # to |.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65566
diff
changeset
|
373 (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
|
374 (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
|
375 (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
|
376 (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
|
377 ;; 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
|
378 (save-excursion |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
379 (let ((pos (point)) |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
380 (end |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
381 (condition-case err |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
382 (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
|
383 (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
|
384 ;; 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
|
385 ;; itself contains a #; comment. |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
386 (forward-sexp 1) |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
387 (point)) |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
388 (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
|
389 (when (< pos (- end 2)) |
78fc6b412d17
(scheme-mode-syntax-table): Mark ; as being also the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65850
diff
changeset
|
390 (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
|
391 '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
|
392 (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
|
393 ;; 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
|
394 (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
|
395 |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
396 ;;;###autoload |
59761
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
397 (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
|
398 "Major mode for editing DSSSL code. |
26938 | 399 Editing commands are similar to those of `lisp-mode'. |
65 | 400 |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
401 Commands: |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
402 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
|
403 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
|
404 \\{scheme-mode-map} |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
405 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
|
406 `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
|
407 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
|
408 (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
|
409 (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
|
410 major-mode 'dsssl-mode |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
411 mode-name "DSSSL") |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
412 ;; 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
|
413 ;; 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
|
414 (and (zerop (buffer-size)) |
17578
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
415 (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
|
416 (not buffer-read-only) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
417 (insert dsssl-sgml-declaration)) |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
418 (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
|
419 nil t (("+-*/.<>=?$%_&~^:" . "w")) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
420 beginning-of-defun |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
421 (font-lock-mark-block-function . mark-defun))) |
32375
b9b7ecbf8925
(scheme-mode-variables, dsssl-mode): Avoid
Dave Love <fx@gnu.org>
parents:
32367
diff
changeset
|
422 (set (make-local-variable 'imenu-case-fold-search) nil) |
20459 | 423 (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
|
424 (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
|
425 '(("+-*/.<>=?$%_&~^:" . "w")))) |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
426 |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
427 ;; 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
|
428 ;; 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
|
429 (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
|
430 (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
|
431 (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
|
432 (put 'make 'scheme-indent-function 1) |
17578
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
433 (put 'style 'scheme-indent-function 1) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
434 (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
|
435 |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
436 (defvar dsssl-font-lock-keywords |
17578
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
437 (eval-when-compile |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
438 (list |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
439 ;; Similar to Scheme |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
440 (list "(\\(define\\(-\\w+\\)?\\)\\>[ ]*\\\((?\\)\\(\\sw+\\)\\>" |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
441 '(1 font-lock-keyword-face) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
442 '(4 font-lock-function-name-face)) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
443 (cons |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
444 (concat "(\\(" |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
445 ;; (make-regexp '("case" "cond" "else" "if" "lambda" |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
446 ;; "let" "let*" "letrec" "and" "or" "map" "with-mode")) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
447 "and\\|c\\(ase\\|ond\\)\\|else\\|if\\|" |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
448 "l\\(ambda\\|et\\(\\|*\\|rec\\)\\)\\|map\\|or\\|with-mode" |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
449 "\\)\\>") |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
450 1) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
451 ;; DSSSL syntax |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
452 '("(\\(element\\|mode\\|declare-\\w+\\)\\>[ ]*\\(\\sw+\\)" |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
453 (1 font-lock-keyword-face) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
454 (2 font-lock-type-face)) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
455 '("(\\(element\\)\\>[ ]*(\\(\\S)+\\))" |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
456 (1 font-lock-keyword-face) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
457 (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
|
458 '("\\<\\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
|
459 ;; SGML markup (from sgml-mode) : |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
460 '("<\\([!?][-a-z0-9]+\\)" 1 font-lock-keyword-face) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
461 '("<\\(/?[-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
|
462 "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
|
463 |
65 | 464 |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
465 (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
|
466 |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
467 ;; 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
|
468 ;; scheme-indent-{function,hook}. |
65 | 469 (defun scheme-indent-function (indent-point state) |
470 (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
|
471 (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
|
472 (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
|
473 (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
|
474 (not (looking-at "\\sw\\|\\s_"))) |
46159 | 475 ;; 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
|
476 (progn |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
477 (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
|
478 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 (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
|
480 (beginning-of-line) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
481 (parse-partial-sexp (point) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
482 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
|
483 ;; 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
|
484 ;; 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
|
485 ;; 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
|
486 ;; 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
|
487 (backward-prefix-chars) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
488 (current-column)) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
489 (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
|
490 (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
|
491 method) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
492 (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
|
493 (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
|
494 (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
|
495 (and (null method) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
496 (> (length function) 3) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
497 (string-match "\\`def" function))) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
498 (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
|
499 ((integerp method) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
500 (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
|
501 indent-point normal-indent)) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
502 (method |
20067
694a165b5b0d
(scheme-let-indent): New arg NORMAL-INDENT.
Karl Heuer <kwzh@gnu.org>
parents:
18285
diff
changeset
|
503 (funcall method state indent-point normal-indent))))))) |
65 | 504 |
505 | |
506 ;;; Let is different in Scheme | |
507 | |
508 (defun would-be-symbol (string) | |
509 (not (string-equal (substring string 0 1) "("))) | |
510 | |
511 (defun next-sexp-as-string () | |
26938 | 512 ;; Assumes that it is protected by a save-excursion |
65 | 513 (forward-sexp 1) |
514 (let ((the-end (point))) | |
515 (backward-sexp 1) | |
516 (buffer-substring (point) the-end))) | |
517 | |
518 ;; This is correct but too slow. | |
519 ;; The one below works almost always. | |
520 ;;(defun scheme-let-indent (state indent-point) | |
521 ;; (if (would-be-symbol (next-sexp-as-string)) | |
522 ;; (scheme-indent-specform 2 state indent-point) | |
523 ;; (scheme-indent-specform 1 state indent-point))) | |
524 | |
20067
694a165b5b0d
(scheme-let-indent): New arg NORMAL-INDENT.
Karl Heuer <kwzh@gnu.org>
parents:
18285
diff
changeset
|
525 (defun scheme-let-indent (state indent-point normal-indent) |
65 | 526 (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
|
527 (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
|
528 (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
|
529 (lisp-indent-specform 1 state indent-point normal-indent))) |
65 | 530 |
531 ;; (put 'begin 'scheme-indent-function 0), say, causes begin to be indented | |
532 ;; like defun if the first form is placed on the next line, otherwise | |
533 ;; it is indented like any other form (i.e. forms line up under first). | |
534 | |
535 (put 'begin 'scheme-indent-function 0) | |
536 (put 'case 'scheme-indent-function 1) | |
537 (put 'delay 'scheme-indent-function 0) | |
538 (put 'do 'scheme-indent-function 2) | |
539 (put 'lambda 'scheme-indent-function 1) | |
540 (put 'let 'scheme-indent-function 'scheme-let-indent) | |
541 (put 'let* 'scheme-indent-function 1) | |
542 (put 'letrec 'scheme-indent-function 1) | |
20461
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
543 (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
|
544 (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
|
545 (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
|
546 (put 'syntax-rules 'scheme-indent-function 1) |
48074 | 547 (put 'syntax-case 'scheme-indent-function 2) ; not r5rs |
65 | 548 |
549 (put 'call-with-input-file 'scheme-indent-function 1) | |
550 (put 'with-input-from-file 'scheme-indent-function 1) | |
551 (put 'with-input-from-port 'scheme-indent-function 1) | |
552 (put 'call-with-output-file 'scheme-indent-function 1) | |
553 (put 'with-output-to-file 'scheme-indent-function 1) | |
554 (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
|
555 (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
|
556 (put 'dynamic-wind 'scheme-indent-function 3) ; r5rs? |
65 | 557 |
558 ;;;; MIT Scheme specific indentation. | |
559 | |
560 (if scheme-mit-dialect | |
561 (progn | |
562 (put 'fluid-let 'scheme-indent-function 1) | |
563 (put 'in-package 'scheme-indent-function 1) | |
564 (put 'local-declare 'scheme-indent-function 1) | |
565 (put 'macro 'scheme-indent-function 1) | |
566 (put 'make-environment 'scheme-indent-function 0) | |
567 (put 'named-lambda 'scheme-indent-function 1) | |
568 (put 'using-syntax 'scheme-indent-function 1) | |
569 | |
570 (put 'with-input-from-string 'scheme-indent-function 1) | |
571 (put 'with-output-to-string 'scheme-indent-function 0) | |
572 (put 'with-values 'scheme-indent-function 1) | |
573 | |
574 (put 'syntax-table-define 'scheme-indent-function 2) | |
575 (put 'list-transform-positive 'scheme-indent-function 1) | |
576 (put 'list-transform-negative 'scheme-indent-function 1) | |
577 (put 'list-search-positive 'scheme-indent-function 1) | |
578 (put 'list-search-negative 'scheme-indent-function 1) | |
579 | |
580 (put 'access-components 'scheme-indent-function 1) | |
581 (put 'assignment-components 'scheme-indent-function 1) | |
582 (put 'combination-components 'scheme-indent-function 1) | |
583 (put 'comment-components 'scheme-indent-function 1) | |
584 (put 'conditional-components 'scheme-indent-function 1) | |
585 (put 'disjunction-components 'scheme-indent-function 1) | |
586 (put 'declaration-components 'scheme-indent-function 1) | |
587 (put 'definition-components 'scheme-indent-function 1) | |
588 (put 'delay-components 'scheme-indent-function 1) | |
589 (put 'in-package-components 'scheme-indent-function 1) | |
590 (put 'lambda-components 'scheme-indent-function 1) | |
591 (put 'lambda-components* 'scheme-indent-function 1) | |
592 (put 'lambda-components** 'scheme-indent-function 1) | |
593 (put 'open-block-components 'scheme-indent-function 1) | |
594 (put 'pathname-components 'scheme-indent-function 1) | |
595 (put 'procedure-components 'scheme-indent-function 1) | |
596 (put 'sequence-components 'scheme-indent-function 1) | |
597 (put 'unassigned\?-components 'scheme-indent-function 1) | |
598 (put 'unbound\?-components 'scheme-indent-function 1) | |
599 (put 'variable-components 'scheme-indent-function 1))) | |
584 | 600 |
601 (provide 'scheme) | |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
602 |
59761
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
603 ;; arch-tag: a8f06bc1-ad11-42d2-9e36-ce651df37a90 |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
604 ;;; scheme.el ends here |