annotate lisp/progmodes/scheme.el @ 27188:8cd1df305566

*** empty log message ***
author Gerd Moellmann <gerd@gnu.org>
date Wed, 05 Jan 2000 14:29:52 +0000
parents 0f38ebc510d3
children 7c181d033dae
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
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
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
3 ;; Copyright (C) 1986, 87, 88, 97, 1998 Free Software Foundation, Inc.
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
4
17976
852464ce5d6a Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17578
diff changeset
5 ;; 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
6 ;; 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
7 ;; Keywords: languages, lisp
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
8
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; 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
13 ;; the Free Software Foundation; either version 2, or (at your option)
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; any later version.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 11173
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 11173
diff changeset
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 11173
diff changeset
24 ;; Boston, MA 02111-1307, USA.
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
26 ;;; Commentary:
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
28 ;; 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
29 ;; 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
30 ;; 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
31 ;; 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
32 ;; 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
33 ;; 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
34 ;; 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
35 ;; 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
36 ;;
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
37 ;; 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
38 ;; 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
39 ;; `xscheme' package.
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40
20461
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
41 ;; 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
42 ;; 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
43 ;; ]+\([^ \t(
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
44 ;; ]+\)/\2/' --regex='/[ \t]*(element[ \t
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
45 ;; ]*([^)]+[ \t
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
46 ;; ]+\([^)]+\)[ \t
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
47 ;; ]*)/\1/' --regex='/(declare[^ \t
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
48 ;; ]*[ \t
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
49 ;; ]+\([^ \t
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
50 ;; ]+\)/\1/' "$@"
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
51
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
52 ;;; Code:
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
54 (require 'lisp-mode)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
55
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
56 (defvar scheme-mode-syntax-table nil)
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 (if (not scheme-mode-syntax-table)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 (let ((i 0))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 (setq scheme-mode-syntax-table (make-syntax-table))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 (set-syntax-table scheme-mode-syntax-table)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 ;; Default is atom-constituent.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 (while (< i 256)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 (modify-syntax-entry i "_ ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 (setq i (1+ i)))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 ;; Word components.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 (setq i ?0)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 (while (<= i ?9)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 (modify-syntax-entry i "w ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 (setq i (1+ i)))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 (setq i ?A)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 (while (<= i ?Z)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 (modify-syntax-entry i "w ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 (setq i (1+ i)))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 (setq i ?a)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 (while (<= i ?z)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 (modify-syntax-entry i "w ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 (setq i (1+ i)))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 ;; Whitespace
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82 (modify-syntax-entry ?\t " ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83 (modify-syntax-entry ?\n "> ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 (modify-syntax-entry ?\f " ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 (modify-syntax-entry ?\r " ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 (modify-syntax-entry ? " ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 ;; These characters are delimiters but otherwise undefined.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 ;; Brackets and braces balance for editing convenience.
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
90 (modify-syntax-entry ?\[ "(] ")
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
91 (modify-syntax-entry ?\] ")[ ")
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 (modify-syntax-entry ?{ "(} ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 (modify-syntax-entry ?} "){ ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 (modify-syntax-entry ?\| " 23")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 ;; Other atom delimiters
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 (modify-syntax-entry ?\( "() ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 (modify-syntax-entry ?\) ")( ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 (modify-syntax-entry ?\; "< ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 (modify-syntax-entry ?\" "\" ")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 (modify-syntax-entry ?' " p")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 (modify-syntax-entry ?` " p")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 ;; Special characters
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 (modify-syntax-entry ?, "_ p")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 (modify-syntax-entry ?@ "_ p")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 (modify-syntax-entry ?# "_ p14")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 (modify-syntax-entry ?\\ "\\ ")))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
110 (defvar scheme-mode-abbrev-table nil)
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 (define-abbrev-table 'scheme-mode-abbrev-table ())
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
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
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
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
1f3afd785962 (scheme-imenu-generic-expression,
Dave Love <fx@gnu.org>
parents: 21133
diff changeset
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
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 (defun scheme-mode-variables ()
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 (set-syntax-table scheme-mode-syntax-table)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 (setq local-abbrev-table scheme-mode-abbrev-table)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 (make-local-variable 'paragraph-separate)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 (setq paragraph-separate paragraph-start)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 (make-local-variable 'paragraph-ignore-fill-prefix)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 (make-local-variable 'comment-start)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 (setq comment-start ";")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 (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
149 ;; 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
150 ;; 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
151 (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+[ \t]*")
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 (make-local-variable 'comment-column)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 (setq comment-column 40)
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 851
diff changeset
154 (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
155 (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
156 (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
157 (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
158 (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
159 (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
160 (setq mode-line-process '("" scheme-mode-line-process))
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
161 (make-local-variable 'imenu-case-fold-search)
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
162 (setq imenu-case-fold-search t)
20459
90f306f86f5d Use imenu-case-fold-search.
Dave Love <fx@gnu.org>
parents: 20334
diff changeset
163 (setq imenu-generic-expression scheme-imenu-generic-expression)
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
164 (make-local-variable 'imenu-syntax-alist)
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
165 (setq imenu-syntax-alist '(("+-*/.<>=?!$%_&~^:" . "w")))
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
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)
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
170 nil t (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
171 (font-lock-mark-block-function . mark-defun))))
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 (defvar scheme-mode-line-process "")
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
175 (defvar scheme-mode-map nil
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
176 "Keymap for Scheme mode.
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
177 All commands in `shared-lisp-mode-map' are inherited by this map.")
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
178
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
179 (if scheme-mode-map
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
180 ()
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
181 (let ((map (make-sparse-keymap "Scheme")))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
182 (setq scheme-mode-map
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
183 (nconc (make-sparse-keymap) shared-lisp-mode-map))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
184 (define-key scheme-mode-map [menu-bar] (make-sparse-keymap))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
185 (define-key scheme-mode-map [menu-bar scheme]
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
186 (cons "Scheme" map))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
187 (define-key map [run-scheme] '("Run Inferior Scheme" . run-scheme))
20461
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
188 (define-key map [uncomment-region]
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
189 '("Uncomment Out Region" . (lambda (beg end)
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
190 (interactive "r")
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
191 (comment-region beg end '(4)))))
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
192 (define-key map [comment-region] '("Comment Out Region" . comment-region))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
193 (define-key map [indent-region] '("Indent Region" . indent-region))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
194 (define-key map [indent-line] '("Indent Line" . lisp-indent-line))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
195 (put 'comment-region 'menu-enable 'mark-active)
20461
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
196 (put 'uncomment-region 'menu-enable 'mark-active)
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
197 (put 'indent-region 'menu-enable 'mark-active)))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
198
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
199 ;; Used by cmuscheme
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200 (defun scheme-mode-commands (map)
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
201 ;;(define-key map "\t" 'indent-for-tab-command) ; default
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
202 (define-key map "\177" 'backward-delete-char-untabify)
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
203 (define-key map "\e\C-q" 'indent-sexp))
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204
266
e0142855e083 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 65
diff changeset
205 ;;;###autoload
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206 (defun scheme-mode ()
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 "Major mode for editing Scheme code.
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
208 Editing commands are similar to those of `lisp-mode'.
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 In addition, if an inferior Scheme process is running, some additional
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 commands will be defined, for evaluating expressions and controlling
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 the interpreter, and the state of the process will be displayed in the
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 modeline of all Scheme buffers. The names of commands that interact
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 with the Scheme process start with \"xscheme-\". For more information
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215 see the documentation for xscheme-interaction-mode.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 Commands:
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218 Delete converts tabs to spaces as it moves back.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
219 Blank lines separate paragraphs. Semicolons start comments.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220 \\{scheme-mode-map}
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
221 Entry to this mode calls the value of `scheme-mode-hook'
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 if that value is non-nil."
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223 (interactive)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224 (kill-all-local-variables)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225 (scheme-mode-initialize)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226 (scheme-mode-variables)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227 (run-hooks 'scheme-mode-hook))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 (defun scheme-mode-initialize ()
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230 (use-local-map scheme-mode-map)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 (setq major-mode 'scheme-mode)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232 (setq mode-name "Scheme"))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
234 (defgroup scheme nil
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
235 "Editing Scheme code"
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
236 :group 'lisp)
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
237
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
238 (defcustom scheme-mit-dialect t
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239 "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
240 Set this to nil if you normally use another dialect."
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
241 :type 'boolean
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
242 :group 'scheme)
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
243
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
244 (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
245 "<!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
246 "
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
247 "*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
248 If it is defined as a string this will be inserted into an empty buffer
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
249 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
250 doctype, as required for Jade."
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
251 :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
252 (const :tag "None" :value nil))
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
253 :group 'scheme)
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
254
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
255 (defcustom scheme-mode-hook nil
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
256 "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
257 See `run-hooks'."
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
258 :type 'hook
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 dsssl-mode-hook nil
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
262 "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
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
18285
d38d2b26bd52 (scheme): Add defgroup.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
265 :group 'scheme)
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
267 (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
268 ;; 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
269 ;; 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
270 ;; 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
271 ;; it gets split up.
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
272 '(("Defines"
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
273 "^(define\\s-+(?\\(\\sw+\\)" 1)
21632
1f3afd785962 (scheme-imenu-generic-expression,
Dave Love <fx@gnu.org>
parents: 21133
diff changeset
274 ("Modes"
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
275 "^\\s-*(mode\\s-+\\(\\(\\sw\\|\\s-\\)+\\)" 1)
21632
1f3afd785962 (scheme-imenu-generic-expression,
Dave Love <fx@gnu.org>
parents: 21133
diff changeset
276 ("Elements"
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
277 ;; (element foo ...) or (element (foo bar ...) ...)
17578
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
278 ;; Fixme: Perhaps it should do `root'.
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
279 "^\\s-*(element\\s-+(?\\(\\(\\sw\\|\\s-\\)+\\))?" 1)
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
280 ("Declarations"
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
281 "^(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
282 "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
283
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
284 (defconst scheme-font-lock-keywords-1
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
285 (eval-when-compile
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
286 (list
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
287 ;;
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
288 ;; 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
289 ;; 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
290 (list (concat "(\\(define\\*?\\("
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
291 ;; Function names.
22709
5fc9fd384c5c (scheme-font-lock-keywords-1): Fontify SCWM/Guile
Richard M. Stallman <rms@gnu.org>
parents: 21632
diff changeset
292 "\\(\\|-public\\|-method\\|-generic\\(-procedure\\)?\\)\\|"
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
293 ;; Macro names, as variable names. A bit dubious, this.
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
294 "\\(-syntax\\)\\|"
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
295 ;; Class names.
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
296 "-class"
22709
5fc9fd384c5c (scheme-font-lock-keywords-1): Fontify SCWM/Guile
Richard M. Stallman <rms@gnu.org>
parents: 21632
diff changeset
297 ;; Guile modules.
5fc9fd384c5c (scheme-font-lock-keywords-1): Fontify SCWM/Guile
Richard M. Stallman <rms@gnu.org>
parents: 21632
diff changeset
298 "\\|-module"
21133
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 ;; Any whitespace and declared object.
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
301 "[ \t]*(?"
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
302 "\\(\\sw+\\)?")
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
303 '(1 font-lock-keyword-face)
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
304 '(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
305 ((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
306 (t font-lock-type-face))
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
307 nil t))
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
308 ))
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
309 "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
310
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
311 (defconst scheme-font-lock-keywords-2
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
312 (append scheme-font-lock-keywords-1
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
313 (eval-when-compile
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
314 (list
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
315 ;;
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
316 ;; Control structures.
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
317 (cons
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
318 (concat
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
319 "(" (regexp-opt
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
320 '("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
321 "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
322 "do" "else" "for-each" "if" "lambda"
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
323 "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
324 ;; Hannes Haug <hannes.haug@student.uni-tuebingen.de> wants:
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
325 "and" "or" "delay"
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
326 ;; 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
327 ;;"quasiquote" "quote" "unquote" "unquote-splicing"
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
328 "map" "syntax" "syntax-rules") t)
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
329 "\\>") 1)
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
330 ;;
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
331 ;; 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
332 '("\\<<\\sw+>\\>" . font-lock-type-face)
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
333 ;;
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
334 ;; Scheme `:' keywords as builtins.
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
335 '("\\<:\\sw+\\>" . font-lock-builtin-face)
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
336 )))
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
337 "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
338
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
339 (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
340 "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
341
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
342 ;;;###autoload
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
343 (defun dsssl-mode ()
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
344 "Major mode for editing DSSSL code.
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
345 Editing commands are similar to those of `lisp-mode'.
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
347 Commands:
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
348 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
349 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
350 \\{scheme-mode-map}
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
351 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
352 `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
353 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
354 (interactive)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
355 (kill-all-local-variables)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
356 (use-local-map scheme-mode-map)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
357 (scheme-mode-initialize)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
358 (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
359 (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
360 major-mode 'dsssl-mode
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
361 mode-name "DSSSL")
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
362 ;; Insert a suitable SGML declaration into an empty buffer.
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
363 (and (zerop (buffer-size))
17578
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
364 (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
365 (not buffer-read-only)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
366 (insert dsssl-sgml-declaration))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
367 (scheme-mode-variables)
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
368 (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
369 nil t (("+-*/.<>=?$%_&~^:" . "w"))
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
370 beginning-of-defun
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
371 (font-lock-mark-block-function . mark-defun)))
20891
0b58035a48ca (scheme-imenu-generic-expression): Simplify regexps.
Dave Love <fx@gnu.org>
parents: 20461
diff changeset
372 (setq imenu-case-fold-search nil)
20459
90f306f86f5d Use imenu-case-fold-search.
Dave Love <fx@gnu.org>
parents: 20334
diff changeset
373 (setq imenu-generic-expression dsssl-imenu-generic-expression)
21133
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
374 (setq imenu-syntax-alist '(("+-*/.<>=?$%_&~^:" . "w")))
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
375 (run-hooks 'scheme-mode-hook)
ea8428070d53 (scheme-mode-variables): Set font-lock-defaults locally.
Dave Love <fx@gnu.org>
parents: 20953
diff changeset
376 (run-hooks 'dsssl-mode-hook))
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
377
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
378 ;; 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
379 ;; 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
380 (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
381 (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
382 (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
383 (put 'make 'scheme-indent-function 1)
17578
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
384 (put 'style 'scheme-indent-function 1)
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
385 (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
386
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
387 (defvar dsssl-font-lock-keywords
17578
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
388 (eval-when-compile
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
389 (list
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
390 ;; Similar to Scheme
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
391 (list "(\\(define\\(-\\w+\\)?\\)\\>[ ]*\\\((?\\)\\(\\sw+\\)\\>"
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
392 '(1 font-lock-keyword-face)
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
393 '(4 font-lock-function-name-face))
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
394 (cons
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
395 (concat "(\\("
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
396 ;; (make-regexp '("case" "cond" "else" "if" "lambda"
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
397 ;; "let" "let*" "letrec" "and" "or" "map" "with-mode"))
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
398 "and\\|c\\(ase\\|ond\\)\\|else\\|if\\|"
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
399 "l\\(ambda\\|et\\(\\|*\\|rec\\)\\)\\|map\\|or\\|with-mode"
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
400 "\\)\\>")
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
401 1)
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
402 ;; DSSSL syntax
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
403 '("(\\(element\\|mode\\|declare-\\w+\\)\\>[ ]*\\(\\sw+\\)"
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
404 (1 font-lock-keyword-face)
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
405 (2 font-lock-type-face))
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
406 '("(\\(element\\)\\>[ ]*(\\(\\S)+\\))"
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
407 (1 font-lock-keyword-face)
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
408 (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
409 '("\\<\\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
410 ;; SGML markup (from sgml-mode) :
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
411 '("<\\([!?][-a-z0-9]+\\)" 1 font-lock-keyword-face)
86a3f6bf749a (dsssl-sgml-declaration): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17402
diff changeset
412 '("<\\(/?[-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
413 "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
414
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
415
17359
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
416 (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
417
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
418 ;; 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
419 ;; scheme-indent-{function,hook}.
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420 (defun scheme-indent-function (indent-point state)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421 (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
422 (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
423 (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
424 (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
425 (not (looking-at "\\sw\\|\\s_")))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
426 ;; car of form doesn't seem to be a a symbol
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
427 (progn
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
428 (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
429 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
430 (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
431 (beginning-of-line)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
432 (parse-partial-sexp (point)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
433 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
434 ;; 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
435 ;; 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
436 ;; 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
437 ;; 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
438 (backward-prefix-chars)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
439 (current-column))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
440 (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
441 (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
442 method)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
443 (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
444 (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
445 (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
446 (and (null method)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
447 (> (length function) 3)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
448 (string-match "\\`def" function)))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
449 (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
450 ((integerp method)
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
451 (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
452 indent-point normal-indent))
13ebd090612a Add DSSSL mode and share code with newly required
Richard M. Stallman <rms@gnu.org>
parents: 15598
diff changeset
453 (method
20067
694a165b5b0d (scheme-let-indent): New arg NORMAL-INDENT.
Karl Heuer <kwzh@gnu.org>
parents: 18285
diff changeset
454 (funcall method state indent-point normal-indent)))))))
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
455
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
456
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
457 ;;; Let is different in Scheme
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
458
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
459 (defun would-be-symbol (string)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
460 (not (string-equal (substring string 0 1) "(")))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
461
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
462 (defun next-sexp-as-string ()
26938
0f38ebc510d3 Small doc fixes.
Dave Love <fx@gnu.org>
parents: 22709
diff changeset
463 ;; Assumes that it is protected by a save-excursion
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464 (forward-sexp 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465 (let ((the-end (point)))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466 (backward-sexp 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 (buffer-substring (point) the-end)))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 ;; This is correct but too slow.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 ;; The one below works almost always.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 ;;(defun scheme-let-indent (state indent-point)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 ;; (if (would-be-symbol (next-sexp-as-string))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 ;; (scheme-indent-specform 2 state indent-point)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 ;; (scheme-indent-specform 1 state indent-point)))
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475
20067
694a165b5b0d (scheme-let-indent): New arg NORMAL-INDENT.
Karl Heuer <kwzh@gnu.org>
parents: 18285
diff changeset
476 (defun scheme-let-indent (state indent-point normal-indent)
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 (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
478 (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
479 (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
480 (lisp-indent-specform 1 state indent-point normal-indent)))
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
481
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
482 ;; (put 'begin 'scheme-indent-function 0), say, causes begin to be indented
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 ;; like defun if the first form is placed on the next line, otherwise
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484 ;; it is indented like any other form (i.e. forms line up under first).
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
485
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
486 (put 'begin 'scheme-indent-function 0)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487 (put 'case 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
488 (put 'delay 'scheme-indent-function 0)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489 (put 'do 'scheme-indent-function 2)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490 (put 'lambda 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491 (put 'let 'scheme-indent-function 'scheme-let-indent)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492 (put 'let* 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 (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
494 (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
495 (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
496 (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
497 (put 'syntax-rules 'scheme-indent-function 1)
3965832648d3 Define indentation in normal dialect for let-syntax,
Dave Love <fx@gnu.org>
parents: 20459
diff changeset
498
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 (put 'call-with-input-file 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501 (put 'with-input-from-file 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502 (put 'with-input-from-port 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503 (put 'call-with-output-file 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 (put 'with-output-to-file 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 (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
506 (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
507 (put 'dynamic-wind 'scheme-indent-function 3) ; r5rs?
65
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 ;;;; MIT Scheme specific indentation.
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511 (if scheme-mit-dialect
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512 (progn
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 (put 'fluid-let 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 (put 'in-package 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 (put 'local-declare 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516 (put 'macro 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 (put 'make-environment 'scheme-indent-function 0)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 (put 'named-lambda 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 (put 'using-syntax 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 (put 'with-input-from-string 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 (put 'with-output-to-string 'scheme-indent-function 0)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 (put 'with-values 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 (put 'syntax-table-define 'scheme-indent-function 2)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 (put 'list-transform-positive 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 (put 'list-transform-negative 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 (put 'list-search-positive 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529 (put 'list-search-negative 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 (put 'access-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 (put 'assignment-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 (put 'combination-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534 (put 'comment-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535 (put 'conditional-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
536 (put 'disjunction-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 (put 'declaration-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 (put 'definition-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 (put 'delay-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
540 (put 'in-package-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
541 (put 'lambda-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
542 (put 'lambda-components* 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543 (put 'lambda-components** 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
544 (put 'open-block-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545 (put 'pathname-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
546 (put 'procedure-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547 (put 'sequence-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548 (put 'unassigned\?-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 (put 'unbound\?-components 'scheme-indent-function 1)
cbd4df147e97 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550 (put 'variable-components 'scheme-indent-function 1)))
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 266
diff changeset
551
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 266
diff changeset
552 (provide 'scheme)
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
553
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
554 ;;; scheme.el ends here