Mercurial > emacs
annotate lisp/progmodes/scheme.el @ 63955:b8a680debd99
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 03 Jul 2005 16:51:26 +0000 |
parents | 32e74e80983b |
children | a81b0edd5034 7a3341d65a12 |
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 |
59761
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
3 ;; Copyright (C) 1986, 1987, 1988, 1997, 1998, 2005 |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
4 ;; 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 | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
658
diff
changeset
|
14 ;; the Free Software Foundation; either version 2, 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 |
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
25 ;; Boston, MA 02111-1307, 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) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
85 (modify-syntax-entry ? " " 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) |
61173 | 93 (modify-syntax-entry ?\| "\" 23b" st) |
65 | 94 |
50070
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
95 ;; Other atom delimiters |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
96 (modify-syntax-entry ?\( "() " st) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
97 (modify-syntax-entry ?\) ")( " st) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
98 (modify-syntax-entry ?\; "< " st) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
99 (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
|
100 (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
|
101 (modify-syntax-entry ?` "' " st) |
65 | 102 |
50070
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
103 ;; Special characters |
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) |
61173 | 106 (modify-syntax-entry ?# "' 14bn" st) |
50070
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
107 (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
|
108 st)) |
65 | 109 |
26938 | 110 (defvar scheme-mode-abbrev-table nil) |
65 | 111 (define-abbrev-table 'scheme-mode-abbrev-table ()) |
112 | |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
113 (defvar scheme-imenu-generic-expression |
26938 | 114 '((nil |
20891
0b58035a48ca
(scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents:
20461
diff
changeset
|
115 "^(define\\(\\|-\\(generic\\(\\|-procedure\\)\\|method\\)\\)*\\s-+(?\\(\\sw+\\)" 4) |
26938 | 116 ("Types" |
20891
0b58035a48ca
(scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents:
20461
diff
changeset
|
117 "^(define-class\\s-+(?\\(\\sw+\\)" 1) |
21632 | 118 ("Macros" |
20891
0b58035a48ca
(scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents:
20461
diff
changeset
|
119 "^(\\(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
|
120 "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
|
121 |
65 | 122 (defun scheme-mode-variables () |
123 (set-syntax-table scheme-mode-syntax-table) | |
124 (setq local-abbrev-table scheme-mode-abbrev-table) | |
125 (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
|
126 (setq paragraph-start (concat "$\\|" page-delimiter)) |
65 | 127 (make-local-variable 'paragraph-separate) |
128 (setq paragraph-separate paragraph-start) | |
129 (make-local-variable 'paragraph-ignore-fill-prefix) | |
130 (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
|
131 (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
|
132 (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
|
133 ;; 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
|
134 ;; 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
|
135 ;; 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
|
136 (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
|
137 (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
|
138 (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
|
139 (setq normal-auto-fill-function 'lisp-mode-auto-fill) |
65 | 140 (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
|
141 (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
|
142 (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
|
143 (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
|
144 (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
|
145 (setq outline-regexp ";;; \\|(....") |
65 | 146 (make-local-variable 'comment-start) |
147 (setq comment-start ";") | |
59761
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
148 (set (make-local-variable 'comment-add) 1) |
65 | 149 (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
|
150 ;; 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
|
151 ;; 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
|
152 (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+[ \t]*") |
65 | 153 (make-local-variable 'comment-column) |
154 (setq comment-column 40) | |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
851
diff
changeset
|
155 (make-local-variable 'comment-indent-function) |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
156 (setq comment-indent-function 'lisp-comment-indent) |
9179
c8ef8dc59108
(scheme-mode-variables): Make parse-sexp-ignore-comments t.
Richard M. Stallman <rms@gnu.org>
parents:
6310
diff
changeset
|
157 (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
|
158 (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
|
159 (make-local-variable 'lisp-indent-function) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
160 (set lisp-indent-function 'scheme-indent-function) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
161 (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
|
162 (set (make-local-variable 'imenu-case-fold-search) t) |
20459 | 163 (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
|
164 (set (make-local-variable 'imenu-syntax-alist) |
b9b7ecbf8925
(scheme-mode-variables, dsssl-mode): Avoid
Dave Love <fx@gnu.org>
parents:
32367
diff
changeset
|
165 '(("+-*/.<>=?!$%_&~^:" . "w"))) |
26938 | 166 (make-local-variable 'font-lock-defaults) |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
167 (setq font-lock-defaults |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
168 '((scheme-font-lock-keywords |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
169 scheme-font-lock-keywords-1 scheme-font-lock-keywords-2) |
52677
a4cf4569e557
(scheme-mode-variables): When setting
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52401
diff
changeset
|
170 nil t (("+-*/.<>=!?$%_&~^:#" . "w")) beginning-of-defun |
50070
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
171 (font-lock-mark-block-function . mark-defun) |
25c2d7555a11
(scheme-mode-syntax-table): Construct
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
49732
diff
changeset
|
172 (font-lock-syntactic-face-function . lisp-font-lock-syntactic-face-function)))) |
65 | 173 |
174 (defvar scheme-mode-line-process "") | |
175 | |
59761
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
176 (defvar scheme-mode-map |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
177 (let ((smap (make-sparse-keymap)) |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
178 (map (make-sparse-keymap "Scheme"))) |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
179 (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
|
180 (define-key smap [menu-bar scheme] (cons "Scheme" map)) |
33483 | 181 (define-key map [run-scheme] '("Run Inferior Scheme" . run-scheme)) |
182 (define-key map [uncomment-region] | |
183 '("Uncomment Out Region" . (lambda (beg end) | |
184 (interactive "r") | |
185 (comment-region beg end '(4))))) | |
186 (define-key map [comment-region] '("Comment Out Region" . comment-region)) | |
187 (define-key map [indent-region] '("Indent Region" . indent-region)) | |
188 (define-key map [indent-line] '("Indent Line" . lisp-indent-line)) | |
189 (put 'comment-region 'menu-enable 'mark-active) | |
190 (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
|
191 (put 'indent-region 'menu-enable 'mark-active) |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
192 smap) |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
193 "Keymap for Scheme mode. |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
194 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
|
195 |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
196 ;; Used by cmuscheme |
65 | 197 (defun scheme-mode-commands (map) |
18285
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
198 ;;(define-key map "\t" 'indent-for-tab-command) ; default |
65 | 199 (define-key map "\177" 'backward-delete-char-untabify) |
18285
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
200 (define-key map "\e\C-q" 'indent-sexp)) |
65 | 201 |
266 | 202 ;;;###autoload |
65 | 203 (defun scheme-mode () |
204 "Major mode for editing Scheme code. | |
26938 | 205 Editing commands are similar to those of `lisp-mode'. |
65 | 206 |
207 In addition, if an inferior Scheme process is running, some additional | |
208 commands will be defined, for evaluating expressions and controlling | |
209 the interpreter, and the state of the process will be displayed in the | |
210 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
|
211 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
|
212 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
|
213 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
|
214 start an inferior Scheme using the more general `cmuscheme' package. |
65 | 215 |
216 Commands: | |
217 Delete converts tabs to spaces as it moves back. | |
218 Blank lines separate paragraphs. Semicolons start comments. | |
219 \\{scheme-mode-map} | |
26938 | 220 Entry to this mode calls the value of `scheme-mode-hook' |
65 | 221 if that value is non-nil." |
222 (interactive) | |
223 (kill-all-local-variables) | |
224 (use-local-map scheme-mode-map) | |
225 (setq major-mode 'scheme-mode) | |
59761
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
226 (setq mode-name "Scheme") |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
227 (scheme-mode-variables) |
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
228 (run-mode-hooks 'scheme-mode-hook)) |
65 | 229 |
18285
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
230 (defgroup scheme nil |
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
231 "Editing Scheme code" |
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
232 :group 'lisp) |
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
233 |
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
234 (defcustom scheme-mit-dialect t |
65 | 235 "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
|
236 Set this to nil if you normally use another dialect." |
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
237 :type 'boolean |
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
238 :group 'scheme) |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
239 |
18285
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
240 (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
|
241 "<!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
|
242 " |
18285
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
243 "*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
|
244 If it is defined as a string this will be inserted into an empty buffer |
26938 | 245 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
|
246 doctype, as required for Jade." |
26938 | 247 :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
|
248 (const :tag "None" :value nil)) |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
249 :group 'scheme) |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
250 |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
251 (defcustom scheme-mode-hook nil |
26938 | 252 "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
|
253 See `run-hooks'." |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
254 :type 'hook |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
255 :group 'scheme) |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
256 |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
257 (defcustom dsssl-mode-hook nil |
26938 | 258 "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
|
259 See `run-hooks'." |
3965832648d3
Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents:
20459
diff
changeset
|
260 :type 'hook |
18285
d38d2b26bd52
(scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents:
17976
diff
changeset
|
261 :group 'scheme) |
65 | 262 |
33487 | 263 ;; This is shared by cmuscheme and xscheme. |
264 (defcustom scheme-program-name "scheme" | |
265 "*Program invoked by the `run-scheme' command." | |
266 :type 'string | |
267 :group 'scheme) | |
268 | |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
269 (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
|
270 ;; 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
|
271 ;; 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
|
272 ;; 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
|
273 ;; it gets split up. |
26938 | 274 '(("Defines" |
20891
0b58035a48ca
(scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents:
20461
diff
changeset
|
275 "^(define\\s-+(?\\(\\sw+\\)" 1) |
21632 | 276 ("Modes" |
20891
0b58035a48ca
(scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents:
20461
diff
changeset
|
277 "^\\s-*(mode\\s-+\\(\\(\\sw\\|\\s-\\)+\\)" 1) |
21632 | 278 ("Elements" |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
279 ;; (element foo ...) or (element (foo bar ...) ...) |
17578
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
280 ;; Fixme: Perhaps it should do `root'. |
20891
0b58035a48ca
(scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents:
20461
diff
changeset
|
281 "^\\s-*(element\\s-+(?\\(\\(\\sw\\|\\s-\\)+\\))?" 1) |
26938 | 282 ("Declarations" |
20891
0b58035a48ca
(scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents:
20461
diff
changeset
|
283 "^(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
|
284 "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
|
285 |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
286 (defconst scheme-font-lock-keywords-1 |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
287 (eval-when-compile |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
288 (list |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
289 ;; |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
290 ;; 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
|
291 ;; 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
|
292 (list (concat "(\\(define\\*?\\(" |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
293 ;; Function names. |
22709
5fc9fd384c5c
(scheme-font-lock-keywords-1): Fontify SCWM/Guile
Richard M. Stallman <rms@gnu.org>
parents:
21632
diff
changeset
|
294 "\\(\\|-public\\|-method\\|-generic\\(-procedure\\)?\\)\\|" |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
295 ;; 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
|
296 "\\(-syntax\\|-macro\\)\\|" |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
297 ;; Class names. |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
298 "-class" |
22709
5fc9fd384c5c
(scheme-font-lock-keywords-1): Fontify SCWM/Guile
Richard M. Stallman <rms@gnu.org>
parents:
21632
diff
changeset
|
299 ;; Guile modules. |
5fc9fd384c5c
(scheme-font-lock-keywords-1): Fontify SCWM/Guile
Richard M. Stallman <rms@gnu.org>
parents:
21632
diff
changeset
|
300 "\\|-module" |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
301 "\\)\\)\\>" |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
302 ;; Any whitespace and declared object. |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
303 "[ \t]*(?" |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
304 "\\(\\sw+\\)?") |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
305 '(1 font-lock-keyword-face) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
306 '(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
|
307 ((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
|
308 (t font-lock-type-face)) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
309 nil t)) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
310 )) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
311 "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
|
312 |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
313 (defconst scheme-font-lock-keywords-2 |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
314 (append scheme-font-lock-keywords-1 |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
315 (eval-when-compile |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
316 (list |
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 ;; Control structures. |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
319 (cons |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
320 (concat |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
321 "(" (regexp-opt |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
322 '("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
|
323 "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
|
324 "do" "else" "for-each" "if" "lambda" |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
325 "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
|
326 ;; 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
|
327 "and" "or" "delay" "force" |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
328 ;; 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
|
329 ;;"quasiquote" "quote" "unquote" "unquote-splicing" |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
330 "map" "syntax" "syntax-rules") t) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
331 "\\>") 1) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
332 ;; |
60180
d5618f820425
(scheme-font-lock-keywords-2): Handle named-let.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
59761
diff
changeset
|
333 ;; 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
|
334 '("(let\\s-+\\(\\sw+\\)" |
d5618f820425
(scheme-font-lock-keywords-2): Handle named-let.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
59761
diff
changeset
|
335 (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
|
336 ;; |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
337 ;; 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
|
338 '("\\<<\\sw+>\\>" . font-lock-type-face) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
339 ;; |
52677
a4cf4569e557
(scheme-mode-variables): When setting
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52401
diff
changeset
|
340 ;; Scheme `:' and `#:' keywords as builtins. |
a4cf4569e557
(scheme-mode-variables): When setting
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
52401
diff
changeset
|
341 '("\\<#?:\\sw+\\>" . font-lock-builtin-face) |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
342 ))) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
343 "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
|
344 |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
345 (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
|
346 "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
|
347 |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
348 ;;;###autoload |
59761
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
349 (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
|
350 "Major mode for editing DSSSL code. |
26938 | 351 Editing commands are similar to those of `lisp-mode'. |
65 | 352 |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
353 Commands: |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
354 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
|
355 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
|
356 \\{scheme-mode-map} |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
357 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
|
358 `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
|
359 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
|
360 (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
|
361 (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
|
362 major-mode 'dsssl-mode |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
363 mode-name "DSSSL") |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
364 ;; 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
|
365 ;; 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
|
366 (and (zerop (buffer-size)) |
17578
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
367 (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
|
368 (not buffer-read-only) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
369 (insert dsssl-sgml-declaration)) |
21133
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
370 (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
|
371 nil t (("+-*/.<>=?$%_&~^:" . "w")) |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
372 beginning-of-defun |
ea8428070d53
(scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
373 (font-lock-mark-block-function . mark-defun))) |
32375
b9b7ecbf8925
(scheme-mode-variables, dsssl-mode): Avoid
Dave Love <fx@gnu.org>
parents:
32367
diff
changeset
|
374 (set (make-local-variable 'imenu-case-fold-search) nil) |
20459 | 375 (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
|
376 (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
|
377 '(("+-*/.<>=?$%_&~^:" . "w")))) |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
378 |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
379 ;; 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
|
380 ;; 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
|
381 (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
|
382 (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
|
383 (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
|
384 (put 'make 'scheme-indent-function 1) |
17578
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
385 (put 'style 'scheme-indent-function 1) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
386 (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
|
387 |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
388 (defvar dsssl-font-lock-keywords |
17578
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
389 (eval-when-compile |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
390 (list |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
391 ;; Similar to Scheme |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
392 (list "(\\(define\\(-\\w+\\)?\\)\\>[ ]*\\\((?\\)\\(\\sw+\\)\\>" |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
393 '(1 font-lock-keyword-face) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
394 '(4 font-lock-function-name-face)) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
395 (cons |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
396 (concat "(\\(" |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
397 ;; (make-regexp '("case" "cond" "else" "if" "lambda" |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
398 ;; "let" "let*" "letrec" "and" "or" "map" "with-mode")) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
399 "and\\|c\\(ase\\|ond\\)\\|else\\|if\\|" |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
400 "l\\(ambda\\|et\\(\\|*\\|rec\\)\\)\\|map\\|or\\|with-mode" |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
401 "\\)\\>") |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
402 1) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
403 ;; DSSSL syntax |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
404 '("(\\(element\\|mode\\|declare-\\w+\\)\\>[ ]*\\(\\sw+\\)" |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
405 (1 font-lock-keyword-face) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
406 (2 font-lock-type-face)) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
407 '("(\\(element\\)\\>[ ]*(\\(\\S)+\\))" |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
408 (1 font-lock-keyword-face) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
409 (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
|
410 '("\\<\\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
|
411 ;; SGML markup (from sgml-mode) : |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
412 '("<\\([!?][-a-z0-9]+\\)" 1 font-lock-keyword-face) |
86a3f6bf749a
(dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
17402
diff
changeset
|
413 '("<\\(/?[-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
|
414 "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
|
415 |
65 | 416 |
17359
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
417 (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
|
418 |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
419 ;; 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
|
420 ;; scheme-indent-{function,hook}. |
65 | 421 (defun scheme-indent-function (indent-point state) |
422 (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
|
423 (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
|
424 (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
|
425 (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
|
426 (not (looking-at "\\sw\\|\\s_"))) |
46159 | 427 ;; 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
|
428 (progn |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
429 (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
|
430 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
|
431 (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
|
432 (beginning-of-line) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
433 (parse-partial-sexp (point) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
434 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
|
435 ;; 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
|
436 ;; 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
|
437 ;; 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
|
438 ;; 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
|
439 (backward-prefix-chars) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
440 (current-column)) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
441 (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
|
442 (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
|
443 method) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
444 (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
|
445 (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
|
446 (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
|
447 (and (null method) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
448 (> (length function) 3) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
449 (string-match "\\`def" function))) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
450 (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
|
451 ((integerp method) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
452 (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
|
453 indent-point normal-indent)) |
13ebd090612a
Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents:
15598
diff
changeset
|
454 (method |
20067
694a165b5b0d
(scheme-let-indent): New arg NORMAL-INDENT.
Karl Heuer <kwzh@gnu.org>
parents:
18285
diff
changeset
|
455 (funcall method state indent-point normal-indent))))))) |
65 | 456 |
457 | |
458 ;;; Let is different in Scheme | |
459 | |
460 (defun would-be-symbol (string) | |
461 (not (string-equal (substring string 0 1) "("))) | |
462 | |
463 (defun next-sexp-as-string () | |
26938 | 464 ;; Assumes that it is protected by a save-excursion |
65 | 465 (forward-sexp 1) |
466 (let ((the-end (point))) | |
467 (backward-sexp 1) | |
468 (buffer-substring (point) the-end))) | |
469 | |
470 ;; This is correct but too slow. | |
471 ;; The one below works almost always. | |
472 ;;(defun scheme-let-indent (state indent-point) | |
473 ;; (if (would-be-symbol (next-sexp-as-string)) | |
474 ;; (scheme-indent-specform 2 state indent-point) | |
475 ;; (scheme-indent-specform 1 state indent-point))) | |
476 | |
20067
694a165b5b0d
(scheme-let-indent): New arg NORMAL-INDENT.
Karl Heuer <kwzh@gnu.org>
parents:
18285
diff
changeset
|
477 (defun scheme-let-indent (state indent-point normal-indent) |
65 | 478 (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
|
479 (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
|
480 (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
|
481 (lisp-indent-specform 1 state indent-point normal-indent))) |
65 | 482 |
483 ;; (put 'begin 'scheme-indent-function 0), say, causes begin to be indented | |
484 ;; like defun if the first form is placed on the next line, otherwise | |
485 ;; it is indented like any other form (i.e. forms line up under first). | |
486 | |
487 (put 'begin 'scheme-indent-function 0) | |
488 (put 'case 'scheme-indent-function 1) | |
489 (put 'delay 'scheme-indent-function 0) | |
490 (put 'do 'scheme-indent-function 2) | |
491 (put 'lambda 'scheme-indent-function 1) | |
492 (put 'let 'scheme-indent-function 'scheme-let-indent) | |
493 (put 'let* 'scheme-indent-function 1) | |
494 (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
|
495 (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
|
496 (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
|
497 (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
|
498 (put 'syntax-rules 'scheme-indent-function 1) |
48074 | 499 (put 'syntax-case 'scheme-indent-function 2) ; not r5rs |
65 | 500 |
501 (put 'call-with-input-file 'scheme-indent-function 1) | |
502 (put 'with-input-from-file 'scheme-indent-function 1) | |
503 (put 'with-input-from-port 'scheme-indent-function 1) | |
504 (put 'call-with-output-file 'scheme-indent-function 1) | |
505 (put 'with-output-to-file 'scheme-indent-function 1) | |
506 (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
|
507 (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
|
508 (put 'dynamic-wind 'scheme-indent-function 3) ; r5rs? |
65 | 509 |
510 ;;;; MIT Scheme specific indentation. | |
511 | |
512 (if scheme-mit-dialect | |
513 (progn | |
514 (put 'fluid-let 'scheme-indent-function 1) | |
515 (put 'in-package 'scheme-indent-function 1) | |
516 (put 'local-declare 'scheme-indent-function 1) | |
517 (put 'macro 'scheme-indent-function 1) | |
518 (put 'make-environment 'scheme-indent-function 0) | |
519 (put 'named-lambda 'scheme-indent-function 1) | |
520 (put 'using-syntax 'scheme-indent-function 1) | |
521 | |
522 (put 'with-input-from-string 'scheme-indent-function 1) | |
523 (put 'with-output-to-string 'scheme-indent-function 0) | |
524 (put 'with-values 'scheme-indent-function 1) | |
525 | |
526 (put 'syntax-table-define 'scheme-indent-function 2) | |
527 (put 'list-transform-positive 'scheme-indent-function 1) | |
528 (put 'list-transform-negative 'scheme-indent-function 1) | |
529 (put 'list-search-positive 'scheme-indent-function 1) | |
530 (put 'list-search-negative 'scheme-indent-function 1) | |
531 | |
532 (put 'access-components 'scheme-indent-function 1) | |
533 (put 'assignment-components 'scheme-indent-function 1) | |
534 (put 'combination-components 'scheme-indent-function 1) | |
535 (put 'comment-components 'scheme-indent-function 1) | |
536 (put 'conditional-components 'scheme-indent-function 1) | |
537 (put 'disjunction-components 'scheme-indent-function 1) | |
538 (put 'declaration-components 'scheme-indent-function 1) | |
539 (put 'definition-components 'scheme-indent-function 1) | |
540 (put 'delay-components 'scheme-indent-function 1) | |
541 (put 'in-package-components 'scheme-indent-function 1) | |
542 (put 'lambda-components 'scheme-indent-function 1) | |
543 (put 'lambda-components* 'scheme-indent-function 1) | |
544 (put 'lambda-components** 'scheme-indent-function 1) | |
545 (put 'open-block-components 'scheme-indent-function 1) | |
546 (put 'pathname-components 'scheme-indent-function 1) | |
547 (put 'procedure-components 'scheme-indent-function 1) | |
548 (put 'sequence-components 'scheme-indent-function 1) | |
549 (put 'unassigned\?-components 'scheme-indent-function 1) | |
550 (put 'unbound\?-components 'scheme-indent-function 1) | |
551 (put 'variable-components 'scheme-indent-function 1))) | |
584 | 552 |
553 (provide 'scheme) | |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
554 |
59761
6803187d322e
(scheme-mode-variables): Set comment-add.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53589
diff
changeset
|
555 ;; arch-tag: a8f06bc1-ad11-42d2-9e36-ce651df37a90 |
658
7cbd4fcd8b0f
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
556 ;;; scheme.el ends here |