annotate lisp/generic-x.el @ 21205:f63ba9821988

Initial revision
author Richard M. Stallman <rms@gnu.org>
date Tue, 17 Mar 1998 23:49:33 +0000
parents
children 89cdcab46969
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
21205
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 ;;; generic-x.el --- Extra Modes for generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 1997, 1998 Free Software Foundation, Inc.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 ;; Author: Peter Breton <pbreton@cs.umb.edu>
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 ;; Created: Tue Oct 08 1996
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 ;; Keywords: generic, comment, font-lock
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
f63ba9821988 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
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; any later version.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 ;; Boston, MA 02111-1307, USA.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 ;; This file contains some pre-defined generic-modes.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 ;; INSTALLATION:
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 ;; Add this line to your .emacs file:
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 ;; (require 'generic-x)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 ;; You can decide which modes to load by setting the variable
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 ;; `generic-extras-enable-list'. Some platform-specific modes are
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 ;; affected by the variables `generic-define-mswindows-modes' and
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 ;; `generic-define-unix-modes' (which see).
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 ;; You can also send in new modes; if the file types a reasonably common,
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 ;; we would like to install them.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 ;; PROBLEMS WHEN USED WITH FOLDING MODE:
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 ;; From Anders Lindgren <andersl@csd.uu.se>
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 ;; Problem summary: Wayne Adams has found a problem when using folding
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 ;; mode in conjuction with font-lock for a mode defined in
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 ;; `generic-x.el'.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 ;; The problem, as Wayne described it, was that error messages of the
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 ;; following form appeared when both font-lock and folding are used:
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 ;; > - various msgs including "Fontifying region...(error Stack
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 ;; > overflow in regexp matcher)" appear
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 ;; I have just tracked down the cause of the problem. The regexp:s in
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 ;; `generic-x.el' does not take into account the way that folding
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 ;; hides sections of the buffer. The technique is known as
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 ;; `selective-display' and has been available for a very long time (I
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 ;; started using it back in the good old' Emacs 18 days). Basically, a
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 ;; section is hidden by creating one very long line were the newline
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 ;; character (C-j) is replaced by a linefeed (C-m) character.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 ;; Many other hiding packages, besides folding, use the same technique,
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 ;; the problem should occur when using them as well.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 ;; The erroronous lines in `generic-extras' look like the following (this
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 ;; example is from the `ini' section):
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 ;; '(("^\\(\\[.*\\]\\)" 1 'font-lock-reference-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 ;; ("^\\(.*\\)=" 1 'font-lock-variable-name-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 ;; The intention of these lines is to highlight lines of the following
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 ;; form:
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 ;; [foo]
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 ;; bar = xxx
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 ;; However, since the `.' regexp symbol match the linefeed character the
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82 ;; entire folded section is searched, resulting in a regexp stack
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83 ;; overflow.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 ;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 ;; Solution suggestion 2: Instead of using ".", use the sequence
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 ;; "[^\n\r]". This will make the rules behave just as before, but they
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 ;; will work together with selective-display.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 ;;; Code:
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 (require 'generic)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 (require 'font-lock)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 (defcustom generic-extras-enable-list nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 "*List of generic modes to enable by default.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 Each entry in the list should be a symbol.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 The variables `generic-define-mswindows-modes' and `generic-define-unix-modes'
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 also affect which generic modes are defined.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 Please note that if you set this variable after generic-x is loaded,
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 you must reload generic-x to enable the specified modes."
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 :group 'generic-x
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 :type '(repeat sexp)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 (defcustom generic-define-mswindows-modes
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 (memq system-type (list 'windows-nt 'ms-dos))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 "*If non-nil, some MS-Windows specific generic modes will be defined."
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 :group 'generic-x
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 :type 'boolean
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 (defcustom generic-define-unix-modes
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 (not (memq system-type (list 'windows-nt 'ms-dos)))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 "*If non-nil, some Unix specific generic modes will be defined."
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 :group 'generic-x
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 :type 'boolean
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 (and generic-define-mswindows-modes
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 (setq generic-extras-enable-list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 (append (list 'bat-generic-mode 'ini-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 'inf-generic-mode 'rc-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 'reg-generic-mode 'rul-generic-mode)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 generic-extras-enable-list)))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 (and generic-define-unix-modes
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 (setq generic-extras-enable-list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 (append (list 'apache-generic-mode 'samba-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 'hosts-generic-mode 'fvwm-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 'x-resource-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 generic-extras-enable-list)))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 ;; Generic-modes
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 ;;; Apache
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 (and
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 (memq 'apache-generic-mode generic-extras-enable-list)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 (define-generic-mode 'apache-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 (list ?#)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 '(("^\\(<.*>\\)" 1 'font-lock-reference-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 ("^\\(\\sw+\\)\\s-" 1 'font-lock-variable-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 (list "srm\\.conf\\'" "httpd\\.conf\\'" "access\\.conf\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 "Generic mode for Apache or HTTPD configuration files."))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 ;;; Samba
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 (and
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 (memq 'samba-generic-mode generic-extras-enable-list)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 (define-generic-mode 'samba-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 (list ?\;)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 '(("^\\(\\[.*\\]\\)" 1 'font-lock-reference-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 (list "smb\\.conf\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 (list 'generic-bracket-support)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 "Generic mode for Samba configuration files."))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 ;;; Fvwm
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 ;; This is pretty basic. Also, modes for other window managers could
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165 ;; be defined as well.
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 (and
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 (memq 'fvwm-generic-mode generic-extras-enable-list)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 (define-generic-mode 'fvwm-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 (list ?#)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172 "AddToMenu"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 "AddToFunc"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 "ButtonStyle"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 "EndFunction"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 "EndPopup"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 "Function"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 "IconPath"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 "Key"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180 "ModulePath"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181 "Mouse"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 "PixmapPath"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 "Popup"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 "Style"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 (list "\\.fvwmrc\\'" "\\.fvwm2rc\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189 "Generic mode for FVWM configuration files."))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191 ;;; X Resource
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 ;; I'm pretty sure I've seen an actual mode to do this, but I don't
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
193 ;; think it's standard with Emacs
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194 (and
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195 (memq 'x-resource-generic-mode generic-extras-enable-list)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
197 (define-generic-mode 'x-resource-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198 (list ?!)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
199 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200 '(("^\\([^:\n]+:\\)" 1 'font-lock-variable-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
201 (list "\\.Xdefaults\\'" "\\.Xresources\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
202 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203 "Generic mode for X Resource configuration files."))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205 ;;; Hosts
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206 (and
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 (memq 'hosts-generic-mode generic-extras-enable-list)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 (define-generic-mode 'hosts-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 (list ?#)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 (list "localhost")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 'font-lock-reference-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 (list "[hH][oO][sS][tT][sS]\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215 "Generic mode for HOSTS files."))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 ;;; Windows INF files
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218 (and
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
219 (memq 'inf-generic-mode generic-extras-enable-list)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
221 (define-generic-mode 'inf-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 (list ?\;)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224 '(("^\\(\\[.*\\]\\)" 1 'font-lock-reference-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225 (list "\\.[iI][nN][fF]\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226 (list 'generic-bracket-support)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227 "Generic mode for MS-Windows INF files."))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 ;;; Windows INI files
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230 ;; Should define escape character as well!
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 (and
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232 (memq 'ini-generic-mode generic-extras-enable-list)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234 (define-generic-mode 'ini-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235 (list ?\;)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
236 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
237 '(("^\\(\\[.*\\]\\)" 1 'font-lock-reference-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
238 ("^\\([^=\n\r]*\\)=\\([^\n\r]*\\)$"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239 (1 font-lock-function-name-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240 (2 font-lock-variable-name-face)))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241 (list "\\.[iI][nN][iI]\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243 (function
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244 (lambda ()
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
245 (setq imenu-generic-expression
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246 '((nil "^\\[\\(.*\\)\\]" 1)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
247 ("*Variables*" "^\\s-*\\([^=]+\\)\\s-*=" 1)))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
248 )))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
249 "Generic mode for MS-Windows INI files."))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
250
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
251 ;;; Windows REG files
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
252 ;;; Unfortunately, Windows 95 and Windows NT have different REG file syntax!
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 (and
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254 (memq 'reg-generic-mode generic-extras-enable-list)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 (define-generic-mode 'reg-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
257 '(?\;)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 '("key" "classes_root" "REGEDIT" "REGEDIT4")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259 '(("\\(\\[.*]\\)" 1 'font-lock-reference-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260 ("^\\([^\n\r]*\\)\\s-*=" 1 'font-lock-variable-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 '("\\.[rR][eE][gG]\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 (function
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 (lambda ()
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 (setq imenu-generic-expression
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 '((nil "^\\s-*\\(.*\\)\\s-*=" 1))))))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267 "Generic mode for MS-Windows Registry files."))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 ;;; Windows BAT files
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 (if (not (memq 'bat-generic-mode generic-extras-enable-list))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 (define-generic-mode 'bat-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 ;; Make this one first in the list, otherwise comments will
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277 ;; be over-written by other variables
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 (list "^[@ \t]*\\([rR][eE][mM][^\n\r]*\\)" 1 'font-lock-comment-face t)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 (list "^[ \t]*\\(::-.*\\)" 1 'font-lock-comment-face t)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280 ;; These keywords appear as the first word on a line
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 (generic-make-keywords-list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 "[cC][aA][lL][lL]"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 "[eE][cC][hH][oO]"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285 "[fF][oO][rR]"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286 "[iI][fF]"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 "[pP][aA][tT][hH]"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 "[pP][aA][uU][sS][eE]"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
289 "[pP][rR][oO][mM][pP][tT]"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
290 "[sS][eE][tT]"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291 "[sS][tT][aA][rR][tT]"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
292 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293 'font-lock-keyword-face "^[@ \t]*")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294 ;; These keywords can be anywhere on a line
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295 (generic-make-keywords-list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 "[eE][xX][iI][sS][tT]"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 "[eE][rR][rR][oO][rR][lL][eE][vV][eE][lL]"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299 "[gG][oO][tT][oO]"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
300 "[nN][oO][tT]"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 ) 'font-lock-keyword-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302 (list "^[ \t]*\\(:\\sw+\\)" 1 'font-lock-function-name-face t)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 (list "\\(%\\sw+%\\)" 1 'font-lock-reference-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 (list "\\(%[0-9]\\)" 1 'font-lock-reference-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 (list "\\(/[^/ \"\t\n]+\\)" 1 'font-lock-type-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306 (list "[\t ]+\\([+-][^\t\n\" ]+\\)" 1 'font-lock-type-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307 (list "\\<\\([gG][oO][tT][oO]\\)\\>[ \t]*\\(\\sw+\\)?"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 '(1 font-lock-keyword-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309 '(2 font-lock-function-name-face nil t))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312 (list "\\.[bB][aA][tT]\\'" "CONFIG\\." "AUTOEXEC\\." )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 (list 'generic-bat-mode-setup-function)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
314 "Generic mode for MS-Windows BAT files.")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316 (defvar bat-generic-mode-syntax-table nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317 "Syntax table in use in bat-generic-mode buffers.")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 ;; Make underscores count as words
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 (if bat-generic-mode-syntax-table
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
322 (setq bat-generic-mode-syntax-table (make-syntax-table))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323 (modify-syntax-entry ?_ "w" bat-generic-mode-syntax-table))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325 ;; bat-generic-mode doesn't use the comment functionality of generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
326 ;; because it has a three-letter comment-string, so we do it
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
327 ;; here manually instead
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328 (defun generic-bat-mode-setup-function ()
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329 (make-local-variable 'parse-sexp-ignore-comments)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330 (make-local-variable 'comment-start)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 (make-local-variable 'comment-start-skip)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332 (make-local-variable 'comment-end)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
333 (setq imenu-generic-expression '((nil "^:\\(\\sw+\\)" 1))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334 parse-sexp-ignore-comments t
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
335 comment-end ""
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 comment-start "[Rr][Ee][Mm] "
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337 comment-start-skip "[Rr][Ee][Mm] *"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
338 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
339 (set-syntax-table bat-generic-mode-syntax-table)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
341 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
342
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
343 ;;; Mailagent
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344 ;; Mailagent is a Unix mail filtering program. Anyone wanna do a generic mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
345 ;; for procmail?
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346 (and
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347 (memq 'mailagent-rules-generic-mode generic-extras-enable-list)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
348
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349 (define-generic-mode 'mailagent-rules-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350 (list ?#)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351 (list "SAVE" "DELETE" "PIPE" "ANNOTATE" "REJECT")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
352 '(("^\\(\\sw+\\)\\s-*=" 1 'font-lock-variable-name-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
353 ("\\s-/\\([^/]+\\)/[i, \t\n]" 1 'font-lock-reference-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
354 (list "\\.rules\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
355 (list 'mailagent-rules-setup-function)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
356 "Mode for Mailagent rules files.")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
358 (defun mailagent-rules-setup-function ()
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
359 (make-local-variable 'imenu-generic-expression)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360 (setq imenu-generic-expression
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
361 '((nil "\\s-/\\([^/]+\\)/[i, \t\n]" 1))))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
362 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
364 ;; Solaris/Sys V prototype files
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
365 (and
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
366 (memq 'prototype-generic-mode generic-extras-enable-list)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
368 (define-generic-mode 'prototype-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
369 (list ?#)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
370 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
371 '(
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
372 ("^\\([0-9]\\)?\\s-*\\([a-z]\\)\\s-+\\([A-Za-z_]+\\)\\s-+\\([^\n\r]*\\)$"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
373 (2 font-lock-reference-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
374 (3 font-lock-keyword-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
375 ("^\\([a-z]\\) \\([A-Za-z_]+\\)=\\([^\n\r]*\\)$"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
376 (1 font-lock-reference-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
377 (2 font-lock-keyword-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
378 (3 font-lock-variable-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
379 ("^\\(!\\s-*\\(search\\|include\\|default\\)\\)\\s-*\\([^\n\r]*\\)$"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
380 (1 font-lock-keyword-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
381 (3 font-lock-variable-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
382 ("^\\(!\\s-*\\sw+\\)=\\([^\n\r]*\\)$"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
383 (1 font-lock-keyword-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
384 (2 font-lock-variable-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
385 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386 (list "prototype\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
387 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
388 "Mode for Sys V prototype files."))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
389
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390 ;; Solaris/Sys V pkginfo files
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391 (and
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
392 (memq 'pkginfo-generic-mode generic-extras-enable-list)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 (define-generic-mode 'pkginfo-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395 (list ?#)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 '(
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398 ("^\\([A-Za-z_]+\\)=\\([^\n\r]*\\)$"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 (1 font-lock-keyword-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400 (2 font-lock-variable-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
401 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402 (list "pkginfo\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
404 "Mode for Sys V pkginfo files."))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
405
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406 ;; Javascript mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
407 (define-generic-mode 'javascript-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 (list "//")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
410 "document"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
411 "else"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
412 "function"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 "function"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414 "if"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
415 "then"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
416 "var"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
417 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
418 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
419 (list "^\\s-*function\\s-+\\([A-Za-z0-9]+\\)"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420 '(1 font-lock-function-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421 (list "^\\s-*var\\s-+\\([A-Za-z0-9]+\\)"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
422 '(1 font-lock-variable-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
423 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
424 (list "\\.js\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
425 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
426 (function
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 (lambda ()
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 (setq imenu-generic-expression
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
429 '((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1)))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430 )))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
431 "Mode for JavaScript files.")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433 ;; VRML files
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
434 (define-generic-mode 'vrml-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
435 (list ?#)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
436 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437 "DEF"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
438 "NULL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439 "USE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
440 "Viewpoint"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
441 "ambientIntensity"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
442 "appearance"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
443 "children"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
444 "color"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
445 "coord"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 "coordIndex"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447 "creaseAngle"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
448 "diffuseColor"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
449 "emissiveColor"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
450 "fieldOfView"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
451 "geometry"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
452 "info"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
453 "material"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
454 "normal"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
455 "orientation"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
456 "position"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
457 "shininess"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
458 "specularColor"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
459 "texCoord"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
460 "texture"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
461 "textureTransform"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
462 "title"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
463 "transparency"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464 "type"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 (list "USE\\s-+\\([-A-Za-z0-9_]+\\)"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468 '(1 font-lock-reference-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 (list "DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 '(1 font-lock-type-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 '(2 font-lock-reference-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 (list "^\\s-*\\([-A-Za-z0-9_]+\\)\\s-*{"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 '(1 font-lock-function-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 "^\\s-*\\(geometry\\|appearance\\|material\\)\\s-+\\([-A-Za-z0-9_]+\\)"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476 '(2 font-lock-variable-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 (list "\\.wrl\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
480 (function
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
481 (lambda ()
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
482 (setq imenu-generic-expression
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 '((nil "^\\([A-Za-z0-9_]+\\)\\s-*{" 1)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484 ("*Definitions*"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
485 "DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
486 1)))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487 )))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
488 "Generic Mode for VRML files.")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490 ;; Java Manifests
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491 (define-generic-mode 'java-manifest-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492 (list ?#)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494 "Name"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495 "Digest-Algorithms"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496 "Manifest-Version"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 "Required-Version"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498 "Signature-Version"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499 "Magic"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 "Java-Bean"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501 "Depends-On"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503 '(("^Name:\\s-+\\([^\n\r]*\\)$"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 (1 font-lock-variable-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 ("^\\(Manifest\\|Required\\|Signature\\)-Version:\\s-+\\([^\n\r]*\\)$"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506 (2 font-lock-reference-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 (list "manifest\\.mf\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 "Mode for Java Manifest files")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512 ;; Java properties files
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 (define-generic-mode 'java-properties-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 (list ?#)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516 ;; Property and value can be separated with whitespace or an equal sign
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 '(("^\\([A-Za-z0-9_]+\\)\\(\\s-+\\|\\s-*=\\s-*\\)\\([^\r\n]*\\)\\'"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 (1 font-lock-reference-face) (3 font-lock-variable-name-face)))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521 "Mode for Java properties files.")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 ;; C shell alias definitions
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524 (define-generic-mode 'alias-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
525 (list ?#)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
526 (list "alias" "unalias")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
527 '(("^alias\\s-+\\([-A-Za-z0-9_]+\\)\\s-+"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
528 (1 font-lock-variable-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
529 ("^unalias\\s-+\\([-A-Za-z0-9_]+\\)\\s-*$"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
530 (1 font-lock-variable-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 (list "alias\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534 (function
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535 (lambda ()
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
536 (setq imenu-generic-expression
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 '((nil "^\\(alias\\|unalias\\)\\s-+\\([-a-zA-Z0-9_]+\\)" 2)))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 )))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 "Mode for C Shell alias files.")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
540
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
541 ;;; Windows RC files
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
542 ;; Contributed by ACorreir@pervasive-sw.com (Alfred Correira)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543 (and
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
544 (memq 'rc-generic-mode generic-extras-enable-list)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
546 (define-generic-mode 'rc-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547 ;; (list ?\/)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548 (list "//")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 '("ACCELERATORS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550 "AUTO3STATE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
551 "AUTOCHECKBOX"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 "AUTORADIOBUTTON"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
553 "BITMAP"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
554 "BOTTOMMARGIN"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
555 "BUTTON"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
556 "CAPTION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
557 "CHARACTERISTICS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
558 "CHECKBOX"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
559 "CLASS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
560 "COMBOBOX"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561 "CONTROL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562 "CTEXT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
563 "CURSOR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
564 "DEFPUSHBUTTON"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
565 "DESIGNINFO"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566 "DIALOG"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567 "DISCARDABLE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 "EDITTEXT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569 "EXSTYLE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570 "FONT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571 "GROUPBOX"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572 "GUIDELINES"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
573 "ICON"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
574 "LANGUAGE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575 "LEFTMARGIN"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576 "LISTBOX"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577 "LTEXT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578 "MENUITEM SEPARATOR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
579 "MENUITEM"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580 "MENU"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581 "MOVEABLE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 "POPUP"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 "PRELOAD"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 "PURE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 "PUSHBOX"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 "PUSHBUTTON"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587 "RADIOBUTTON"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 "RCDATA"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589 "RIGHTMARGIN"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 "RTEXT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591 "SCROLLBAR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
592 "SEPARATOR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593 "STATE3"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594 "STRINGTABLE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
595 "STYLE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596 "TEXTINCLUDE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
597 "TOOLBAR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598 "TOPMARGIN"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 "VERSIONINFO"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 "VERSION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
601 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602 ;; the choice of what tokens go where is somewhat arbitrary,
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
603 ;; as is the choice of which value tokens are included, as
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 ;; the choice of face for each token group
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
606 (generic-make-keywords-list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
607 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608 "FILEFLAGSMASK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
609 "FILEFLAGS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610 "FILEOS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611 "FILESUBTYPE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
612 "FILETYPE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
613 "FILEVERSION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614 "PRODUCTVERSION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
615 ) 'font-lock-type-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616 (generic-make-keywords-list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
617 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618 "BEGIN"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619 "BLOCK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620 "END"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 "VALUE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622 ) 'font-lock-function-name-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623 '("^#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
624 '("^#[ \t]*define[ \t]+\\(\\sw+\\)(" 1 font-lock-function-name-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625 '("^#[ \t]*\\(elif\\|if\\)\\>"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626 ("\\<\\(defined\\)\\>[ \t]*(?\\(\\sw+\\)?" nil nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627 (1 font-lock-reference-face) (2 font-lock-variable-name-face nil t)))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 '("^#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629 (1 font-lock-reference-face) (2 font-lock-variable-name-face nil t)))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
630 (list "\\.[rR][cC]$")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632 "Generic mode for MS-Windows Resource files."))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
633
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 ;;; InstallShield RUL files
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
635 ;; Contributed by Alfred.Correira@Pervasive.Com
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
636 (and
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
637 (memq 'rul-generic-mode generic-extras-enable-list)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
639 (define-generic-mode 'rul-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
640 ;; Using "/*" and "*/" doesn't seem to be working right
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
641 (list "//")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
642 '("abort"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
643 "begin"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
644 "call"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
645 "case"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
646 "declare"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
647 "default"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
648 "downto"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
649 "elseif"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
650 "else"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
651 "endfor"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
652 "endif"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 "endswitch"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 "endwhile"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
655 "end"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
656 "exit"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657 "external"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
658 "for"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
659 "function"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
660 ;; "goto" -- handled elsewhere
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
661 "if"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
662 "program"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
663 "prototype"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664 "repeat"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665 "return"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
666 "step"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
667 "switch"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
668 "then"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
669 "to"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
670 "typedef"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
671 "until"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
672 "void"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
673 "while")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
674 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
675 ;; preprocessor constructs
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
676 '("#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
677 1 font-lock-string-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
678 '("#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
679 (1 font-lock-reference-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
680 (2 font-lock-variable-name-face nil t))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
681 ;; indirect string constants
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
682 '("\\(@[A-Za-z][A-Za-z0-9_]+\\)" 1 font-lock-emphasized-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
683 ;; gotos
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
684 '("[ \t]*\\(\\sw+:\\)" 1 font-lock-reference-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
685 '("\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
686 (1 font-lock-keyword-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
687 (2 font-lock-reference-face nil t))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
688 ;; system variables
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
689 (generic-make-keywords-list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
690 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
691 "CMDLINE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
692 "ERRORFILENAME"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
693 "INFOFILENAME"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
694 "ISRES"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
695 "ISUSER"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
696 "ISVERSION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
697 "SRCDIR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
698 "SRCDISK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
699 "SUPPORTDIR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
700 "TARGETDIR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
701 "TARGETDISK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
702 "WINDIR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
703 "WINDISK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
704 "WINMAJOR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
705 "WINSYSDIR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
706 "WINSYSDISK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
708 'font-lock-variable-name-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
709 ;; system functions
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
710 (generic-make-keywords-list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
711 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
712 "AddFolderIcon"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
713 "AddProfString"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
714 "AddressString"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
715 "AppCommand"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
716 "AskDestPath"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
717 "AskOptions"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
718 "AskPath"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
719 "AskText"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
720 "AskYesNo"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
721 "BatchDeleteEx"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
722 "BatchFileLoad"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
723 "BatchFileSave"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
724 "BatchFind"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
725 "BatchGetFileName"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
726 "BatchMoveEx"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
727 "BatchSetFileName"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
728 "CloseFile"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
729 "CmdGetHwndDlg"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
730 "ComponentAddItem" ; differs between IS3 and IS5
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
731 "ComponentCompareSizeRequired" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
732 "ComponentDialog"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
733 "ComponentError" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
734 "ComponentFileEnum" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
735 "ComponentFileInfo" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
736 "ComponentFilterLanguage" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
737 "ComponentFilterOS" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
738 "ComponentGetData" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
739 "ComponentGetItemInfo" ; IS3 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
740 "ComponentGetItemSize" ; differs between IS3 and IS5
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
741 "ComponentIsItemSelected" ; differs between IS3 and IS5
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
742 "ComponentListItems"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
743 "ComponentMoveData" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
744 "ComponentSelectItem" ; differs between IS3 and IS5
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
745 "ComponentSetData" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
746 "ComponentSetItemInfo" ; IS3 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
747 "ComponentSetTarget" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
748 "ComponentSetupTypeEnum" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
749 "ComponentSetupTypeGetData" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
750 "ComponentSetupTypeSet" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
751 "ComponentTotalSize"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
752 "ComponentValidate" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
753 "CompressAdd" ; IS3 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
754 "CompressDel" ; IS3 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
755 "CompressEnum" ; IS3 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
756 "CompressGet" ; IS3 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
757 "CompressInfo" ; IS3 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
758 "CopyFile"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
759 "CreateDir"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
760 "CreateFile"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
761 "CreateProgramFolder"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
762 "DeinstallSetReference" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
763 "DeinstallStart"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
764 "Delay"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
765 "DeleteDir"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
766 "DeleteFile"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
767 "DialogSetInfo"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 "Disable"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
769 "DoInstall"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
770 "Do"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
771 "Enable"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
772 "EnterDisk"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
773 "ExistsDir"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
774 "ExistsDisk"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
775 "ExitProgMan"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
776 "EzBatchAddPath"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
777 "EzBatchAddString"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
778 "EzBatchReplace"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
779 "EzConfigAddDriver"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
780 "EzConfigAddString"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
781 "EzConfigGetValue"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
782 "EzConfigSetValue"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
783 "EzDefineDialog"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
784 "FileCompare"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
785 "FileDeleteLine"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
786 "FileGrep"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
787 "FileInsertLine"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
788 "FileSetBeginDefine" ; IS3 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
789 "FileSetEndDefine" ; IS3 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
790 "FileSetPerformEz" ; IS3 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
791 "FileSetPerform" ; IS3 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
792 "FileSetReset" ; IS3 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
793 "FileSetRoot" ; IS3 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
794 "FindAllDirs"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
795 "FindAllFiles"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
796 "FindFile"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
797 "FindWindow"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
798 "GetDiskSpace"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
799 "GetDisk"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
800 "GetEnvVar"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
801 "GetExtents"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
802 "GetFileInfo"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
803 "GetLine"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
804 "GetProfString"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
805 "GetSystemInfo"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
806 "GetValidDrivesList"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
807 "GetVersion"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
808 "GetWindowHandle"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
809 "InstallationInfo"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
810 "Is"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
811 "LaunchApp"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
812 "ListCreate"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
813 "ListDestroy"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
814 "ListGetFirstString"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
815 "ListGetNextString"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
816 "ListSetIndex"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
817 "LongPathToQuote"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
818 "LongPathToShortPath"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
819 "MessageBox"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
820 "NumToStr"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
821 "OpenFileMode"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
822 "OpenFile"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
823 "ParsePath"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
824 "PathAdd"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
825 "PathDelete"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
826 "PathFind"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
827 "PathGet"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
828 "PathMove"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
829 "PathSet"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
830 "Path"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
831 "PlaceBitmap"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
832 "PlaceWindow"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
833 "PlayMMedia" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
834 "ProgDefGroupType"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
835 "RegDBCreateKeyEx"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
836 "RegDBGetItem"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
837 "RegDBKeyExist"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
838 "RegDBSetItem"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
839 "RegDBGetKeyValueEx"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
840 "RegDBSetKeyValueEx"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
841 "RegDBSetDefaultRoot"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
842 "RenameFile"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
843 "ReplaceFolderIcon"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
844 "ReplaceProfString"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
845 "SdAskDestPath"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
846 "SdAskOptions"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
847 "SdAskOptionsList"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
848 "SdBitmap"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
849 "SdCloseDlg"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
850 "SdComponentAdvCheckSpace"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
851 "SdComponentAdvInit"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
852 "SdComponentAdvUpdateSpace"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
853 "SdComponentDialog"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
854 "SdComponentDialog2"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
855 "SdComponentDialogAdv"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
856 "SdComponentDialogEx"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
857 "SdComponentDlgCheckSpace"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
858 "SdComponentMult"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
859 "SdConfirmNewDir"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
860 "SdConfirmRegistration"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
861 "SdDiskSpace"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
862 "SdDisplayTopics"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
863 "SdDoStdButton"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
864 "SdEnablement"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
865 "SdError"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
866 "SdFinish"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
867 "SdFinishInit32"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
868 "SdFinishReboot"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
869 "SdGeneralInit"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
870 "SdGetItemName"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
871 "SdGetTextExtent"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
872 "SdGetUserCompanyInfo"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
873 "SdInit"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
874 "SdIsShellExplorer"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
875 "SdIsStdButton"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
876 "SdLicense"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
877 "SdMakeName"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
878 "SdOptionInit"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
879 "SdOptionSetState"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
880 "SdOptionsButtons"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
881 "SdOptionsButtonsInit"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
882 "SdPlugInProductName"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
883 "SdProductName"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
884 "SdRegEnableButton"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
885 "SdRegExEnableButton"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886 "SdRegisterUser"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
887 "SdRegisterUserEx"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
888 "SdRemoveEndSpace"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
889 "SdSelectFolder"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
890 "SdSetSequentialItems"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
891 "SdSetStatic"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
892 "SdSetupTypeEx" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
893 "SdSetupType"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
894 "SdShowAnyDialog"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
895 "SdShowDlgEdit1"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896 "SdShowDlgEdit2"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897 "SdShowDlgEdit3"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898 "SdShowFileMods"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
899 "SdShowInfoList"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
900 "SdShowMsg"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
901 "SdStartCopy"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
902 "SdUnInit"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
903 "SdUpdateComponentSelection"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
904 "SdWelcome"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
905 "SendMessage"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
906 "SetColor"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
907 "SetFont"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
908 "SetDialogTitle"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
909 "SetDisplayEffect" ; IS5 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
910 "SetFileInfo"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
911 "SetForegroundWindow"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
912 "SetStatusWindow"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
913 "SetTitle"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
914 "SetupType"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
915 "ShowProgramFolder"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
916 "Split" ; IS3 only
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
917 "SprintfBox"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
918 "Sprintf"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
919 "StatusUpdate"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
920 "StrCompare"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
921 "StrFind"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
922 "StrGetTokens"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
923 "StrLength"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
924 "StrRemoveLastSlash"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
925 "StrToLower"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
926 "StrToUpper"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
927 "StrSub"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
928 "VarRestore"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
929 "VarSave"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
930 "VerCompare"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
931 "VerGetFileVersion"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
932 "WaitOnDialog"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
933 "Welcome"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
934 "WriteLine"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
935 "WriteProfString"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
936 "XCopyFile"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
937 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
938 'font-lock-function-name-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
939 ;; type keywords
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
940 (generic-make-keywords-list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
941 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
942 "BOOL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
943 "BYREF"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
944 "CHAR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
945 "HIWORD"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
946 "HWND"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
947 "INT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
948 "LIST"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
949 "LONG"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
950 "LOWORD"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
951 "NUMBER"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
952 "POINTER"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
953 "QUAD"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
954 "RGB"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
955 "SHORT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
956 "STRINGLIST"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
957 "STRING"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
958 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
959 'font-lock-type-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
960 ;;; system variables
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
961 (generic-make-keywords-list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
962 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
963 "CMDLINE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
964 "CORECOMPONENTHANDLING"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
965 "ERRORFILENAME"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
966 "INFOFILENAME"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
967 "ISRES"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
968 "ISUSER"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
969 "ISVERSION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
970 "MODE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
971 "SRCDIR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
972 "SRCDISK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
973 "SUPPORTDIR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
974 "TARGETDIR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
975 "TARGETDISK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
976 "WINDIR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
977 "WINDISK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
978 "WINSYSDIR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
979 "WINSYSDISK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
980 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
981 ;; pre-defined constants (not exhaustive -- just my favorites)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
982 'font-lock-variable-name-face)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
983
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
984 (generic-make-keywords-list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
985 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
986 "AFTER"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
987 "APPEND"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
988 "ALLCONTENTS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
989 "BACKBUTTON"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
990 "BACKGROUNDCAPTION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
991 "BACKGROUND"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
992 "BACK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
993 "BASEMEMORY"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
994 "BEFORE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
995 "BIOS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
996 "BITMAPICON"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
997 "BK_BLUE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
998 "BK_GREEN"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
999 "BK_RED"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1000 "BLUE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1001 "BOOTUPDRIVE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1002 "CANCEL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1003 "CDROM_DRIVE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1004 "CDROM"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1005 "CHECKBOX95"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1006 "CHECKBOX"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1007 "CHECKLINE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1008 "CHECKMARK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1009 "COLORS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1010 "COMMANDEX"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1011 "COMMAND"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1012 "COMP_NORMAL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1013 "COMP_UPDATE_DATE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1014 "COMP_UPDATE_SAME"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1015 "COMP_UPDATE_VERSION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1016 "COMPACT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1017 "CONTINUE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1018 "CPU"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1019 "CUSTOM"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1020 "DATE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1021 "DEFWINDOWMODE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1022 "DIR_WRITEABLE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1023 "DISABLE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1024 "DISK_TOTALSPACE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1025 "DISK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1026 "DLG_OPTIONS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1027 "DLG_PATH"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1028 "DLG_TEXT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1029 "DLG_ASK_YESNO"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1030 "DLG_ENTER_DISK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1031 "DLG_ERR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1032 "DLG_INFO_ALTIMAGE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1033 "DLG_INFO_CHECKSELECTION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1034 "DLG_INFO_KUNITS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1035 "DLG_INFO_USEDECIMAL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1036 "DLG_MSG_INFORMATION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1037 "DLG_MSG_SEVERE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1038 "DLG_MSG_WARNING"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1039 "DLG_STATUS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1040 "DLG_WARNING"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1041 "DLG_USER_CAPTION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1042 "DRIVE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1043 "ENABLE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1044 "END_OF_FILE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1045 "END_OF_LIST"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1046 "ENVSPACE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1047 "EQUALS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1048 "EXCLUDE_SUBDIR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1049 "EXCLUSIVE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1050 "EXISTS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1051 "EXIT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1052 "EXTENDED_MEMORY"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1053 "EXTENSION_ONLY"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1054 "FAILIFEXISTS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1055 "FALSE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1056 "FEEDBACK_FULL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1057 "FILE_ATTR_ARCHIVED"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1058 "FILE_ATTR_DIRECTORY"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1059 "FILE_ATTR_HIDDEN"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1060 "FILE_ATTR_NORMAL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1061 "FILE_ATTR_READONLY"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1062 "FILE_ATTR_SYSTEM"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1063 "FILE_ATTRIBUTE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1064 "FILE_DATE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1065 "FILE_LINE_LENGTH"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1066 "FILE_MODE_APPEND"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1067 "FILE_MODE_BINARYREADONLY"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1068 "FILE_MODE_BINARY"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1069 "FILE_MODE_NORMAL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1070 "FILE_NO_VERSION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1071 "FILE_NOT_FOUND"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1072 "FILE_SIZE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1073 "FILE_TIME"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1074 "FILENAME_ONLY"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1075 "FILENAME"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1076 "FIXED_DRIVE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1077 "FOLDER_DESKTOP"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1078 "FOLDER_STARTMENU"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1079 "FOLDER_STARTUP"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1080 "FREEENVSPACE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1081 "FULLWINDOWMODE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1082 "FULL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1083 "FONT_TITLE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1084 "GREATER_THAN"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1085 "GREEN"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1086 "HOURGLASS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1087 "INCLUDE_SUBDIR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1088 "INDVFILESTATUS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1089 "INFORMATION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1090 "IS_WINDOWSNT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1091 "IS_WINDOWS95"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1092 "IS_WINDOWS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1093 "IS_WIN32S"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1094 "ISTYPE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1095 "LANGUAGE_DRV"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1096 "LANGUAGE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1097 "LESS_THAN"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1098 "LIST_NULL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1099 "LISTFIRST"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1100 "LISTNEXT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1101 "LOCKEDFILE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1102 "LOGGING"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1103 "LOWER_LEFT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1104 "LOWER_RIGHT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1105 "MAGENTA"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1106 "MOUSE_DRV"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1107 "MOUSE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1108 "NETWORK_DRV"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1109 "NETWORK"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1110 "NEXT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1111 "NONEXCLUSIVE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1112 "NORMALMODE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1113 "NOSET"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1114 "NOTEXISTS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1115 "NOWAIT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1116 "NO"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1117 "OFF"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1118 "ONLYDIR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1119 "ON"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1120 "OSMAJOR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1121 "OSMINOR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1122 "OS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1123 "OTHER_FAILURE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1124 "PARALLEL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1125 "PARTIAL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1126 "PATH_EXISTS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1127 "PATH"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1128 "RED"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1129 "REGDB_APPPATH_DEFAULT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1130 "REGDB_APPPATH"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1131 "REGDB_BINARY"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1132 "REGDB_ERR_CONNECTIONEXISTS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1133 "REGDB_ERR_CORRUPTEDREGSITRY"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1134 "REGDB_ERR_INITIALIZATION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1135 "REGDB_ERR_INVALIDHANDLE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1136 "REGDB_ERR_INVALIDNAME"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1137 "REGDB_NUMBER"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1138 "REGDB_STRING_EXPAND"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1139 "REGDB_STRING_MULTI"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1140 "REGDB_STRING"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1141 "REGDB_UNINSTALL_NAME"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1142 "REMOTE_DRIVE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1143 "REMOVALE_DRIVE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1144 "REPLACE_ITEM"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1145 "REPLACE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1146 "RESET"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1147 "RESTART"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1148 "ROOT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1149 "SELFREGISTER"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1150 "SERIAL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1151 "SET"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1152 "SEVERE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1153 "SHAREDFILE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1154 "SHARE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1155 "SILENTMODE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1156 "SRCTARGETDIR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1157 "STATUSBAR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1158 "STATUSDLG"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1159 "STATUSOLD"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1160 "STATUS"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1161 "STYLE_NORMAL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1162 "SW_MAXIMIZE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1163 "SW_MINIMIZE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1164 "SW_RESTORE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1165 "SW_SHOW"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1166 "TIME"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1167 "TRUE"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1168 "TYPICAL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1169 "UPPER_LEFT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1170 "UPPER_RIGHT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1171 "VALID_PATH"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1172 "VERSION"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1173 "VIDEO"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1174 "VOLUMELABEL"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1175 "YELLOW"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1176 "YES"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1177 "WAIT"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1178 "WARNING"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1179 "WINMAJOR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1180 "WINMINOR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1181 "WIN32SINSTALLED"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1182 "WIN32SMAJOR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1183 "WIN32SMINOR"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1184 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1185 'font-lock-variable-name-face) ; is this face the best choice?
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1186 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1187 (list "\\.[rR][uU][lL]$")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1188 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1189 (function
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1190 (lambda ()
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1191 (setq imenu-generic-expression
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1192 '((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1)))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1193 )))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1194 "Generic mode for InstallShield RUL files.")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1195
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1196 (define-skeleton rul-if
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1197 "Insert an if statement."
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1198 "condition: "
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1199 "if(" str ") then" \n
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1200 > _ \n
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1201 ( "other condition, %s: "
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1202 > "elseif(" str ") then" \n
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1203 > \n)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1204 > "else" \n
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1205 > \n
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1206 resume:
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1207 > "endif;"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1208 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1209
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1210 (define-skeleton rul-function
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1211 "Insert a function statement."
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1212 "function: "
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1213 "function " str " ()" \n
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1214 ( "local variables, %s: "
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1215 > " " str ";" \n)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1216 > "begin" \n
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1217 > _ \n
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1218 resume:
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1219 > "end;")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1220
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1221 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1222
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1223 ;; Additions by ACorreir@pervasive-sw.com (Alfred Correira)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1224 (define-generic-mode 'mailrc-generic-mode
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1225 (list ?#)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1226 (list
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1227 "alias"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1228 "else"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1229 "endif"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1230 "group"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1231 "if"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1232 "ignore"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1233 "set"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1234 "unset"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1235 )
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1236 '(("^\\s-*\\(alias\\|group\\)\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1237 (2 font-lock-reference-face) (3 font-lock-variable-name-face))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1238 ("^\\s-*\\(unset\\|set\\|ignore\\)\\s-+\\([-A-Za-z0-9_]+\\)=?\\([^\n\r#]*\\)\\(#.*\\)?$"
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1239 (2 font-lock-reference-face) (3 font-lock-variable-name-face)))
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1240 (list "\\.mailrc\\'")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1241 nil
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1242 "Mode for mailrc files.")
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1243
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1244 (provide 'generic-x)
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1245
f63ba9821988 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1246 ;;; generic-x.el ends here