Mercurial > emacs
annotate lisp/generic-x.el @ 79096:0508bef99119
Revert accidental deletion.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 16 Oct 2007 02:17:51 +0000 |
parents | 9355f9b7bbff |
children | 73661ddc7ac7 22dc0bc9daf8 f55f9811f5d7 |
rev | line source |
---|---|
61903 | 1 ;;; generic-x.el --- A collection of generic modes |
21205 | 2 |
74442 | 3 ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, |
75347 | 4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. |
21205 | 5 |
6 ;; Author: Peter Breton <pbreton@cs.umb.edu> | |
7 ;; Created: Tue Oct 08 1996 | |
8 ;; Keywords: generic, comment, font-lock | |
9 | |
10 ;; This file is part of GNU Emacs. | |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
78236
9355f9b7bbff
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
78063
diff
changeset
|
14 ;; the Free Software Foundation; either version 3, or (at your option) |
21205 | 15 ;; any later version. |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
64091 | 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 ;; Boston, MA 02110-1301, USA. | |
21205 | 26 |
27 ;;; Commentary: | |
28 ;; | |
78063
edd7a13f790e
(generic-define-mswindows-modes, generic-define-unix-modes,
Juanma Barranquero <lekktu@gmail.com>
parents:
75347
diff
changeset
|
29 ;; This file contains a collection of generic modes. |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
30 ;; |
21205 | 31 ;; INSTALLATION: |
32 ;; | |
33 ;; Add this line to your .emacs file: | |
34 ;; | |
35 ;; (require 'generic-x) | |
36 ;; | |
37 ;; You can decide which modes to load by setting the variable | |
61903 | 38 ;; `generic-extras-enable-list'. Its default value is platform- |
39 ;; specific. The recommended way to set this variable is through | |
40 ;; customize: | |
41 ;; | |
42 ;; M-x customize-option RET generic-extras-enable-list RET | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
43 ;; |
61903 | 44 ;; This lets you select generic modes from the list of available |
45 ;; modes. If you manually set `generic-extras-enable-list' in your | |
46 ;; .emacs, do it BEFORE loading generic-x with (require 'generic-x). | |
47 ;; | |
48 ;; You can also send in new modes; if the file types are reasonably | |
49 ;; common, we would like to install them. | |
21205 | 50 ;; |
61456
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
51 ;; DEFAULT GENERIC MODE: |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
52 ;; |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
53 ;; This file provides a hook which automatically puts a file into |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
54 ;; `default-generic-mode' if the first few lines of a file in |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
55 ;; fundamental mode start with a hash comment character. To disable |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
56 ;; this functionality, set the variable `generic-use-find-file-hook' |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
57 ;; to nil BEFORE loading generic-x. See the variables |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
58 ;; `generic-lines-to-scan' and `generic-find-file-regexp' for |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
59 ;; customization options. |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
60 ;; |
21205 | 61 ;; PROBLEMS WHEN USED WITH FOLDING MODE: |
62 ;; | |
24036 | 63 ;; [The following relates to the obsolete selective-display technique. |
61903 | 64 ;; Folding mode should use invisible text properties instead. -- Dave |
24036 | 65 ;; Love] |
66 ;; | |
21205 | 67 ;; From Anders Lindgren <andersl@csd.uu.se> |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
68 ;; |
21205 | 69 ;; Problem summary: Wayne Adams has found a problem when using folding |
61903 | 70 ;; mode in conjunction with font-lock for a mode defined in |
21205 | 71 ;; `generic-x.el'. |
72 ;; | |
73 ;; The problem, as Wayne described it, was that error messages of the | |
74 ;; following form appeared when both font-lock and folding are used: | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
75 ;; |
21205 | 76 ;; > - various msgs including "Fontifying region...(error Stack |
77 ;; > overflow in regexp matcher)" appear | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
78 ;; |
61903 | 79 ;; I have just tracked down the cause of the problem. The regexp's in |
80 ;; `generic-x.el' do not take into account the way that folding hides | |
81 ;; sections of the buffer. The technique is known as | |
21205 | 82 ;; `selective-display' and has been available for a very long time (I |
61903 | 83 ;; started using it back in the good old Emacs 18 days). Basically, a |
21205 | 84 ;; section is hidden by creating one very long line were the newline |
85 ;; character (C-j) is replaced by a linefeed (C-m) character. | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
86 ;; |
21205 | 87 ;; Many other hiding packages, besides folding, use the same technique, |
88 ;; the problem should occur when using them as well. | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
89 ;; |
61903 | 90 ;; The erroneous lines in `generic-x.el' look like the following (this |
21205 | 91 ;; example is from the `ini' section): |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
92 ;; |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
93 ;; '(("^\\(\\[.*\\]\\)" 1 'font-lock-constant-face) |
21205 | 94 ;; ("^\\(.*\\)=" 1 'font-lock-variable-name-face) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
95 ;; |
21205 | 96 ;; The intention of these lines is to highlight lines of the following |
97 ;; form: | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
98 ;; |
21205 | 99 ;; [foo] |
100 ;; bar = xxx | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
101 ;; |
61903 | 102 ;; However, since the `.' regexp symbol matches the linefeed character |
103 ;; the entire folded section is searched, resulting in a regexp stack | |
21205 | 104 ;; overflow. |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
105 ;; |
61903 | 106 ;; Solution suggestion: Instead of using ".", use the sequence |
107 ;; "[^\n\r]". This will make the rules behave just as before, but | |
108 ;; they will work together with selective-display. | |
21205 | 109 |
110 ;;; Code: | |
111 | |
61903 | 112 (eval-when-compile (require 'font-lock)) |
21205 | 113 |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
114 (defgroup generic-x nil |
61456
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
115 "A collection of generic modes." |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
116 :prefix "generic-" |
61456
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
117 :group 'data |
22110
47ffa41d5ed5
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
21947
diff
changeset
|
118 :version "20.3") |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
119 |
61456
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
120 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
121 ;; Default-Generic mode |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
122 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
123 |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
124 (defcustom generic-use-find-file-hook t |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
125 "*If non-nil, add a hook to enter `default-generic-mode' automatically. |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
126 This is done if the first few lines of a file in fundamental mode |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
127 start with a hash comment character." |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
128 :group 'generic-x |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
129 :type 'boolean) |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
130 |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
131 (defcustom generic-lines-to-scan 3 |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
132 "*Number of lines that `generic-mode-find-file-hook' looks at. |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
133 Relevant when deciding whether to enter Default-Generic mode automatically. |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
134 This variable should be set to a small positive number." |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
135 :group 'generic-x |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
136 :type 'integer) |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
137 |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
138 (defcustom generic-find-file-regexp "^#" |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
139 "*Regular expression used by `generic-mode-find-file-hook'. |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
140 Files in fundamental mode whose first few lines contain a match |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
141 for this regexp, should be put into Default-Generic mode instead. |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
142 The number of lines tested for the matches is specified by the |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
143 value of the variable `generic-lines-to-scan', which see." |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
144 :group 'generic-x |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
145 :type 'regexp) |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
146 |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
147 (defcustom generic-ignore-files-regexp "[Tt][Aa][Gg][Ss]\\'" |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
148 "*Regular expression used by `generic-mode-find-file-hook'. |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
149 Files whose names match this regular expression should not be put |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
150 into Default-Generic mode, even if they have lines which match |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
151 the regexp in `generic-find-file-regexp'. If the value is nil, |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
152 `generic-mode-find-file-hook' does not check the file names." |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
153 :group 'generic-x |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
154 :type '(choice (const :tag "Don't check file names" nil) regexp)) |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
155 |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
156 ;; This generic mode is always defined |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
157 (define-generic-mode default-generic-mode (list ?#) nil nil nil nil) |
61456
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
158 |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
159 ;; A more general solution would allow us to enter generic-mode for |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
160 ;; *any* comment character, but would require us to synthesize a new |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
161 ;; generic-mode on the fly. I think this gives us most of what we |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
162 ;; want. |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
163 (defun generic-mode-find-file-hook () |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
164 "Hook function to enter Default-Generic mode automatically. |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
165 |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
166 Done if the first few lines of a file in Fundamental mode start |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
167 with a match for the regexp in `generic-find-file-regexp', unless |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
168 the file's name matches the regexp which is the value of the |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
169 variable `generic-ignore-files-regexp'. |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
170 |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
171 This hook will be installed if the variable |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
172 `generic-use-find-file-hook' is non-nil. The variable |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
173 `generic-lines-to-scan' determines the number of lines to look at." |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
174 (when (and (eq major-mode 'fundamental-mode) |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
175 (or (null generic-ignore-files-regexp) |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
176 (not (string-match |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
177 generic-ignore-files-regexp |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
178 (file-name-sans-versions buffer-file-name))))) |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
179 (save-excursion |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
180 (goto-char (point-min)) |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
181 (when (re-search-forward generic-find-file-regexp |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
182 (save-excursion |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
183 (forward-line generic-lines-to-scan) |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
184 (point)) t) |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
185 (goto-char (point-min)) |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
186 (default-generic-mode))))) |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
187 |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
188 (and generic-use-find-file-hook |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
189 (add-hook 'find-file-hook 'generic-mode-find-file-hook)) |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
190 |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
191 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
192 ;; Other Generic modes |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
193 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
b36d454902de
(generic-x): Docstring fix. Put it in the data group.
Lute Kamstra <lute@gnu.org>
parents:
61394
diff
changeset
|
194 |
61903 | 195 ;; If you add a generic mode to this file, put it in one of these four |
196 ;; lists as well. | |
197 | |
198 (defconst generic-default-modes | |
199 '(apache-conf-generic-mode | |
200 apache-log-generic-mode | |
201 hosts-generic-mode | |
202 java-manifest-generic-mode | |
203 java-properties-generic-mode | |
204 javascript-generic-mode | |
205 show-tabs-generic-mode | |
206 vrml-generic-mode) | |
207 "List of generic modes that are defined by default.") | |
208 | |
209 (defconst generic-mswindows-modes | |
210 '(bat-generic-mode | |
211 inf-generic-mode | |
212 ini-generic-mode | |
213 rc-generic-mode | |
214 reg-generic-mode | |
215 rul-generic-mode) | |
216 "List of generic modes that are defined by default on MS-Windows.") | |
217 | |
218 (defconst generic-unix-modes | |
219 '(alias-generic-mode | |
220 etc-fstab-generic-mode | |
221 etc-modules-conf-generic-mode | |
222 etc-passwd-generic-mode | |
223 etc-services-generic-mode | |
224 fvwm-generic-mode | |
225 inetd-conf-generic-mode | |
226 mailagent-rules-generic-mode | |
227 mailrc-generic-mode | |
228 named-boot-generic-mode | |
229 named-database-generic-mode | |
230 prototype-generic-mode | |
231 resolve-conf-generic-mode | |
232 samba-generic-mode | |
233 x-resource-generic-mode) | |
234 "List of generic modes that are defined by default on Unix.") | |
235 | |
236 (defconst generic-other-modes | |
237 '(astap-generic-mode | |
238 ibis-generic-mode | |
239 pkginfo-generic-mode | |
240 spice-generic-mode) | |
241 "List of generic mode that are not defined by default.") | |
21205 | 242 |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
243 (defcustom generic-define-mswindows-modes |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
244 (memq system-type '(windows-nt ms-dos)) |
61903 | 245 "*Non-nil means the modes in `generic-mswindows-modes' will be defined. |
246 This is a list of MS-Windows specific generic modes. This variable | |
78063
edd7a13f790e
(generic-define-mswindows-modes, generic-define-unix-modes,
Juanma Barranquero <lekktu@gmail.com>
parents:
75347
diff
changeset
|
247 only affects the default value of `generic-extras-enable-list'." |
21205 | 248 :group 'generic-x |
61903 | 249 :type 'boolean |
250 :version "22.1") | |
251 (make-obsolete-variable 'generic-define-mswindows-modes 'generic-extras-enable-list "22.1") | |
21205 | 252 |
253 (defcustom generic-define-unix-modes | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
254 (not (memq system-type '(windows-nt ms-dos))) |
61903 | 255 "*Non-nil means the modes in `generic-unix-modes' will be defined. |
256 This is a list of Unix specific generic modes. This variable only | |
78063
edd7a13f790e
(generic-define-mswindows-modes, generic-define-unix-modes,
Juanma Barranquero <lekktu@gmail.com>
parents:
75347
diff
changeset
|
257 affects the default value of `generic-extras-enable-list'." |
21205 | 258 :group 'generic-x |
61903 | 259 :type 'boolean |
260 :version "22.1") | |
261 (make-obsolete-variable 'generic-define-unix-modes 'generic-extras-enable-list "22.1") | |
21205 | 262 |
61903 | 263 (defcustom generic-extras-enable-list |
264 (append generic-default-modes | |
265 (if generic-define-mswindows-modes generic-mswindows-modes) | |
266 (if generic-define-unix-modes generic-unix-modes) | |
267 nil) | |
268 "List of generic modes to define. | |
269 Each entry in the list should be a symbol. If you set this variable | |
270 directly, without using customize, you must reload generic-x to put | |
271 your changes into effect." | |
272 :group 'generic-x | |
273 :type (let (list) | |
274 (dolist (mode | |
275 (sort (append generic-default-modes | |
276 generic-mswindows-modes | |
277 generic-unix-modes | |
278 generic-other-modes | |
279 nil) | |
280 (lambda (a b) | |
281 (string< (symbol-name b) | |
282 (symbol-name a)))) | |
283 (cons 'set list)) | |
284 (push `(const ,mode) list))) | |
285 :set (lambda (s v) | |
286 (set-default s v) | |
287 (unless load-in-progress | |
288 (load "generic-x"))) | |
289 :version "22.1") | |
21205 | 290 |
291 ;;; Apache | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
292 (when (memq 'apache-conf-generic-mode generic-extras-enable-list) |
21205 | 293 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
294 (define-generic-mode apache-conf-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
295 '(?#) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
296 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
297 '(("^\\s-*\\(<.*>\\)" 1 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
298 ("^\\s-*\\(\\sw+\\)\\s-" 1 font-lock-variable-name-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
299 '("srm\\.conf\\'" "httpd\\.conf\\'" "access\\.conf\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
300 (list |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
301 (function |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
302 (lambda () |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
303 (setq imenu-generic-expression |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
304 '((nil "^\\([-A-Za-z0-9_]+\\)" 1) |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
305 ("*Directories*" "^\\s-*<Directory\\s-*\\([^>]+\\)>" 1) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
306 ("*Locations*" "^\\s-*<Location\\s-*\\([^>]+\\)>" 1)))))) |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
307 "Generic mode for Apache or HTTPD configuration files.")) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
308 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
309 (when (memq 'apache-log-generic-mode generic-extras-enable-list) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
310 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
311 (define-generic-mode apache-log-generic-mode |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
312 nil |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
313 nil |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
314 ;; Hostname ? user date request return-code number-of-bytes |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
315 '(("^\\([-a-zA-z0-9.]+\\) - [-A-Za-z]+ \\(\\[.*\\]\\)" |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
316 (1 font-lock-constant-face) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
317 (2 font-lock-variable-name-face))) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
318 '("access_log\\'") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
319 nil |
78063
edd7a13f790e
(generic-define-mswindows-modes, generic-define-unix-modes,
Juanma Barranquero <lekktu@gmail.com>
parents:
75347
diff
changeset
|
320 "Mode for Apache log files.")) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
321 |
21205 | 322 ;;; Samba |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
323 (when (memq 'samba-generic-mode generic-extras-enable-list) |
21205 | 324 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
325 (define-generic-mode samba-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
326 '(?\; ?#) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
327 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
328 '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
329 ("^\\s-*\\(.+\\)=\\([^\r\n]*\\)" |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
330 (1 font-lock-variable-name-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
331 (2 font-lock-type-face))) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
332 '("smb\\.conf\\'") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
333 '(generic-bracket-support) |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
334 "Generic mode for Samba configuration files.")) |
21205 | 335 |
336 ;;; Fvwm | |
337 ;; This is pretty basic. Also, modes for other window managers could | |
338 ;; be defined as well. | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
339 (when (memq 'fvwm-generic-mode generic-extras-enable-list) |
21205 | 340 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
341 (define-generic-mode fvwm-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
342 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
343 '("AddToMenu" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
344 "AddToFunc" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
345 "ButtonStyle" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
346 "EndFunction" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
347 "EndPopup" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
348 "Function" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
349 "IconPath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
350 "Key" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
351 "ModulePath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
352 "Mouse" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
353 "PixmapPath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
354 "Popup" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
355 "Style") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
356 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
357 '("\\.fvwmrc\\'" "\\.fvwm2rc\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
358 nil |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
359 "Generic mode for FVWM configuration files.")) |
21205 | 360 |
361 ;;; X Resource | |
362 ;; I'm pretty sure I've seen an actual mode to do this, but I don't | |
363 ;; think it's standard with Emacs | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
364 (when (memq 'x-resource-generic-mode generic-extras-enable-list) |
21205 | 365 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
366 (define-generic-mode x-resource-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
367 '(?!) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
368 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
369 '(("^\\([^:\n]+:\\)" 1 font-lock-variable-name-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
370 '("\\.Xdefaults\\'" "\\.Xresources\\'" "\\.Xenvironment\\'" "\\.ad\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
371 nil |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
372 "Generic mode for X Resource configuration files.")) |
21205 | 373 |
374 ;;; Hosts | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
375 (when (memq 'hosts-generic-mode generic-extras-enable-list) |
21205 | 376 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
377 (define-generic-mode hosts-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
378 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
379 '("localhost") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
380 '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
381 '("[hH][oO][sS][tT][sS]\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
382 nil |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
383 "Generic mode for HOSTS files.")) |
21205 | 384 |
385 ;;; Windows INF files | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
386 (when (memq 'inf-generic-mode generic-extras-enable-list) |
21205 | 387 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
388 (define-generic-mode inf-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
389 '(?\;) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
390 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
391 '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
392 '("\\.[iI][nN][fF]\\'") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
393 '(generic-bracket-support) |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
394 "Generic mode for MS-Windows INF files.")) |
21205 | 395 |
396 ;;; Windows INI files | |
397 ;; Should define escape character as well! | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
398 (when (memq 'ini-generic-mode generic-extras-enable-list) |
21205 | 399 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
400 (define-generic-mode ini-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
401 '(?\;) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
402 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
403 '(("^\\(\\[.*\\]\\)" 1 font-lock-constant-face) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
404 ("^\\([^=\n\r]*\\)=\\([^\n\r]*\\)$" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
405 (1 font-lock-function-name-face) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
406 (2 font-lock-variable-name-face))) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
407 '("\\.[iI][nN][iI]\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
408 (list |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
409 (function |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
410 (lambda () |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
411 (setq imenu-generic-expression |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
412 '((nil "^\\[\\(.*\\)\\]" 1) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
413 ("*Variables*" "^\\s-*\\([^=]+\\)\\s-*=" 1)))))) |
61523
0428c421c463
(generic-mode-ini-file-find-file-hook):
Lute Kamstra <lute@gnu.org>
parents:
61490
diff
changeset
|
414 "Generic mode for MS-Windows INI files. |
0428c421c463
(generic-mode-ini-file-find-file-hook):
Lute Kamstra <lute@gnu.org>
parents:
61490
diff
changeset
|
415 You can use `ini-generic-mode-find-file-hook' to enter this mode |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
416 automatically for INI files whose names do not end in \".ini\".") |
61523
0428c421c463
(generic-mode-ini-file-find-file-hook):
Lute Kamstra <lute@gnu.org>
parents:
61490
diff
changeset
|
417 |
0428c421c463
(generic-mode-ini-file-find-file-hook):
Lute Kamstra <lute@gnu.org>
parents:
61490
diff
changeset
|
418 (defun ini-generic-mode-find-file-hook () |
0428c421c463
(generic-mode-ini-file-find-file-hook):
Lute Kamstra <lute@gnu.org>
parents:
61490
diff
changeset
|
419 "Hook function to enter Ini-Generic mode automatically for INI files. |
0428c421c463
(generic-mode-ini-file-find-file-hook):
Lute Kamstra <lute@gnu.org>
parents:
61490
diff
changeset
|
420 Done if the first few lines of a file in Fundamental mode look |
0428c421c463
(generic-mode-ini-file-find-file-hook):
Lute Kamstra <lute@gnu.org>
parents:
61490
diff
changeset
|
421 like an INI file. You can add this hook to `find-file-hook'." |
0428c421c463
(generic-mode-ini-file-find-file-hook):
Lute Kamstra <lute@gnu.org>
parents:
61490
diff
changeset
|
422 (and (eq major-mode 'fundamental-mode) |
0428c421c463
(generic-mode-ini-file-find-file-hook):
Lute Kamstra <lute@gnu.org>
parents:
61490
diff
changeset
|
423 (save-excursion |
0428c421c463
(generic-mode-ini-file-find-file-hook):
Lute Kamstra <lute@gnu.org>
parents:
61490
diff
changeset
|
424 (goto-char (point-min)) |
0428c421c463
(generic-mode-ini-file-find-file-hook):
Lute Kamstra <lute@gnu.org>
parents:
61490
diff
changeset
|
425 (and (looking-at "^\\s-*\\[.*\\]") |
0428c421c463
(generic-mode-ini-file-find-file-hook):
Lute Kamstra <lute@gnu.org>
parents:
61490
diff
changeset
|
426 (ini-generic-mode))))) |
0428c421c463
(generic-mode-ini-file-find-file-hook):
Lute Kamstra <lute@gnu.org>
parents:
61490
diff
changeset
|
427 (defalias 'generic-mode-ini-file-find-file-hook 'ini-generic-mode-find-file-hook)) |
21205 | 428 |
429 ;;; Windows REG files | |
430 ;;; Unfortunately, Windows 95 and Windows NT have different REG file syntax! | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
431 (when (memq 'reg-generic-mode generic-extras-enable-list) |
21205 | 432 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
433 (define-generic-mode reg-generic-mode |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
434 '(?\;) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
435 '("key" "classes_root" "REGEDIT" "REGEDIT4") |
69265
268da31ddfc5
(reg-generic-mode): Quote "]"s in regexps when they have no special meaning.
Eli Zaretskii <eliz@gnu.org>
parents:
68651
diff
changeset
|
436 '(("\\(\\[.*\\]\\)" 1 font-lock-constant-face) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
437 ("^\\([^\n\r]*\\)\\s-*=" 1 font-lock-variable-name-face)) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
438 '("\\.[rR][eE][gG]\\'") |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
439 (list |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
440 (function |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
441 (lambda () |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
442 (setq imenu-generic-expression |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
443 '((nil "^\\s-*\\(.*\\)\\s-*=" 1)))))) |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
444 "Generic mode for MS-Windows Registry files.")) |
21205 | 445 |
23375
2656333fd35e
(bat-generic-mode): Fix regexps for keywords and
Eli Zaretskii <eliz@gnu.org>
parents:
22110
diff
changeset
|
446 ;;; DOS/Windows BAT files |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
447 (when (memq 'bat-generic-mode generic-extras-enable-list) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
448 |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
449 (define-generic-mode bat-generic-mode |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
450 nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
451 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
452 (eval-when-compile |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
453 (list |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
454 ;; Make this one first in the list, otherwise comments will |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
455 ;; be over-written by other variables |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
456 '("^[@ \t]*\\([rR][eE][mM][^\n\r]*\\)" 1 font-lock-comment-face t) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
457 '("^[ \t]*\\(::.*\\)" 1 font-lock-comment-face t) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
458 '("^[@ \t]*\\([bB][rR][eE][aA][kK]\\|[vV][eE][rR][iI][fF][yY]\\)[ \t]+\\([oO]\\([nN]\\|[fF][fF]\\)\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
459 (1 font-lock-builtin-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
460 (2 font-lock-constant-face t t)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
461 ;; Any text (except ON/OFF) following ECHO is a string. |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
462 '("^[@ \t]*\\([eE][cC][hH][oO]\\)[ \t]+\\(\\([oO]\\([nN]\\|[fF][fF]\\)\\)\\|\\([^>|\r\n]+\\)\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
463 (1 font-lock-builtin-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
464 (3 font-lock-constant-face t t) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
465 (5 font-lock-string-face t t)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
466 ;; These keywords appear as the first word on a line. (Actually, they |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
467 ;; can also appear after "if ..." or "for ..." clause, but since they |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
468 ;; are frequently used in simple text, we punt.) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
469 ;; In `generic-bat-mode-setup-function' we make the keywords |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
470 ;; case-insensitive |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
471 (generic-make-keywords-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
472 '("for" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
473 "if") |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
474 font-lock-keyword-face "^[@ \t]*") |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
475 ;; These keywords can be anywhere on a line |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
476 ;; In `generic-bat-mode-setup-function' we make the keywords |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
477 ;; case-insensitive |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
478 (generic-make-keywords-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
479 '("do" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
480 "exist" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
481 "errorlevel" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
482 "goto" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
483 "not") |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
484 font-lock-keyword-face) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
485 ;; These are built-in commands. Only frequently-used ones are listed. |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
486 (generic-make-keywords-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
487 '("CALL" "call" "Call" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
488 "CD" "cd" "Cd" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
489 "CLS" "cls" "Cls" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
490 "COPY" "copy" "Copy" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
491 "DEL" "del" "Del" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
492 "ECHO" "echo" "Echo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
493 "MD" "md" "Md" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
494 "PATH" "path" "Path" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
495 "PAUSE" "pause" "Pause" |
62436 | 496 "PROMPT" "prompt" "Prompt" |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
497 "RD" "rd" "Rd" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
498 "REN" "ren" "Ren" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
499 "SET" "set" "Set" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
500 "START" "start" "Start" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
501 "SHIFT" "shift" "Shift") |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
502 font-lock-builtin-face "[ \t|\n]") |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
503 '("^[ \t]*\\(:\\sw+\\)" 1 font-lock-function-name-face t) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
504 '("\\(%\\sw+%\\)" 1 font-lock-variable-name-face t) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
505 '("\\(%[0-9]\\)" 1 font-lock-variable-name-face t) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
506 '("\\(/[^/ \"\t\n]+\\)" 1 font-lock-type-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
507 '("[\t ]+\\([+-][^\t\n\" ]+\\)" 1 font-lock-type-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
508 '("[ \t\n|]\\<\\([gG][oO][tT][oO]\\)\\>[ \t]*\\(\\sw+\\)?" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
509 (1 font-lock-keyword-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
510 (2 font-lock-function-name-face nil t)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
511 '("[ \t\n|]\\<\\([sS][eE][tT]\\)\\>[ \t]*\\(\\sw+\\)?[ \t]*=?" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
512 (1 font-lock-builtin-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
513 (2 font-lock-variable-name-face t t)))) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
514 '("\\.[bB][aA][tT]\\'" |
71434
91d47fb65033
(bat-generic-mode): Support .cmd files.
Eli Zaretskii <eliz@gnu.org>
parents:
69265
diff
changeset
|
515 "\\.[cC][mM][dD]\\'" |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
516 "\\`[cC][oO][nN][fF][iI][gG]\\." |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
517 "\\`[aA][uU][tT][oO][eE][xX][eE][cC]\\.") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
518 '(generic-bat-mode-setup-function) |
71434
91d47fb65033
(bat-generic-mode): Support .cmd files.
Eli Zaretskii <eliz@gnu.org>
parents:
69265
diff
changeset
|
519 "Generic mode for MS-Windows batch files.") |
26045
03ebfe42764f
(bat-generic-mode-keymap): Added thio variable
Peter Breton <pbreton@attbi.com>
parents:
26044
diff
changeset
|
520 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
521 (defvar bat-generic-mode-syntax-table nil |
61903 | 522 "Syntax table in use in `bat-generic-mode' buffers.") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
523 |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
524 (defvar bat-generic-mode-keymap (make-sparse-keymap) |
78063
edd7a13f790e
(generic-define-mswindows-modes, generic-define-unix-modes,
Juanma Barranquero <lekktu@gmail.com>
parents:
75347
diff
changeset
|
525 "Keymap for `bat-generic-mode'.") |
26045
03ebfe42764f
(bat-generic-mode-keymap): Added thio variable
Peter Breton <pbreton@attbi.com>
parents:
26044
diff
changeset
|
526 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
527 (defun bat-generic-mode-compile () |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
528 "Run the current BAT file in a compilation buffer." |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
529 (interactive) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
530 (let ((compilation-buffer-name-function |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
531 (function |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
532 (lambda(ign) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
533 (concat "*" (buffer-file-name) "*"))))) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
534 (compile |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
535 (concat (w32-shell-name) " -c " (buffer-file-name))))) |
26045
03ebfe42764f
(bat-generic-mode-keymap): Added thio variable
Peter Breton <pbreton@attbi.com>
parents:
26044
diff
changeset
|
536 |
61523
0428c421c463
(generic-mode-ini-file-find-file-hook):
Lute Kamstra <lute@gnu.org>
parents:
61490
diff
changeset
|
537 (eval-when-compile (require 'comint)) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
538 (defun bat-generic-mode-run-as-comint () |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
539 "Run the current BAT file in a comint buffer." |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
540 (interactive) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
541 (require 'comint) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
542 (let* ((file (buffer-file-name)) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
543 (buf-name (concat "*" file "*"))) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
544 (save-excursion |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
545 (set-buffer |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
546 (get-buffer-create buf-name)) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
547 (erase-buffer) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
548 (comint-mode) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
549 (comint-exec |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
550 buf-name |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
551 file |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
552 (w32-shell-name) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
553 nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
554 (list "-c" file)) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
555 (display-buffer buf-name)))) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
556 |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
557 (define-key bat-generic-mode-keymap "\C-c\C-c" 'bat-generic-mode-compile) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
558 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
559 ;; Make underscores count as words |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
560 (unless bat-generic-mode-syntax-table |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
561 (setq bat-generic-mode-syntax-table (make-syntax-table)) |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
562 (modify-syntax-entry ?_ "w" bat-generic-mode-syntax-table)) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
563 |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
564 ;; bat-generic-mode doesn't use the comment functionality of |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
565 ;; define-generic-mode because it has a three-letter comment-string, |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
566 ;; so we do it here manually instead |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
567 (defun generic-bat-mode-setup-function () |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
568 (make-local-variable 'parse-sexp-ignore-comments) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
569 (make-local-variable 'comment-start) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
570 (make-local-variable 'comment-start-skip) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
571 (make-local-variable 'comment-end) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
572 (setq imenu-generic-expression '((nil "^:\\(\\sw+\\)" 1)) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
573 parse-sexp-ignore-comments t |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
574 comment-end "" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
575 comment-start "REM " |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
576 comment-start-skip "[Rr][Ee][Mm] *") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
577 (set-syntax-table bat-generic-mode-syntax-table) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
578 ;; Make keywords case-insensitive |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
579 (setq font-lock-defaults '(generic-font-lock-keywords nil t)) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
580 (use-local-map bat-generic-mode-keymap))) |
21205 | 581 |
582 ;;; Mailagent | |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
583 ;; Mailagent is a Unix mail filtering program. Anyone wanna do a |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
584 ;; generic mode for procmail? |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
585 (when (memq 'mailagent-rules-generic-mode generic-extras-enable-list) |
21205 | 586 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
587 (define-generic-mode mailagent-rules-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
588 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
589 '("SAVE" "DELETE" "PIPE" "ANNOTATE" "REJECT") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
590 '(("^\\(\\sw+\\)\\s-*=" 1 font-lock-variable-name-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
591 ("\\s-/\\([^/]+\\)/[i, \t\n]" 1 font-lock-constant-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
592 '("\\.rules\\'") |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
593 (list |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
594 (function |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
595 (lambda () |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
596 (setq imenu-generic-expression |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
597 '((nil "\\s-/\\([^/]+\\)/[i, \t\n]" 1)))))) |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
598 "Mode for Mailagent rules files.")) |
21205 | 599 |
600 ;; Solaris/Sys V prototype files | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
601 (when (memq 'prototype-generic-mode generic-extras-enable-list) |
21205 | 602 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
603 (define-generic-mode prototype-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
604 '(?#) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
605 nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
606 '(("^\\([0-9]\\)?\\s-*\\([a-z]\\)\\s-+\\([A-Za-z_]+\\)\\s-+\\([^\n\r]*\\)$" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
607 (2 font-lock-constant-face) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
608 (3 font-lock-keyword-face)) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
609 ("^\\([a-z]\\) \\([A-Za-z_]+\\)=\\([^\n\r]*\\)$" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
610 (1 font-lock-constant-face) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
611 (2 font-lock-keyword-face) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
612 (3 font-lock-variable-name-face)) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
613 ("^\\(!\\s-*\\(search\\|include\\|default\\)\\)\\s-*\\([^\n\r]*\\)$" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
614 (1 font-lock-keyword-face) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
615 (3 font-lock-variable-name-face)) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
616 ("^\\(!\\s-*\\sw+\\)=\\([^\n\r]*\\)$" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
617 (1 font-lock-keyword-face) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
618 (2 font-lock-variable-name-face))) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
619 '("prototype\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
620 nil |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
621 "Mode for Sys V prototype files.")) |
21205 | 622 |
623 ;; Solaris/Sys V pkginfo files | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
624 (when (memq 'pkginfo-generic-mode generic-extras-enable-list) |
21205 | 625 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
626 (define-generic-mode pkginfo-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
627 '(?#) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
628 nil |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
629 '(("^\\([A-Za-z_]+\\)=\\([^\n\r]*\\)$" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
630 (1 font-lock-keyword-face) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
631 (2 font-lock-variable-name-face))) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
632 '("pkginfo\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
633 nil |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
634 "Mode for Sys V pkginfo files.")) |
21205 | 635 |
636 ;; Javascript mode | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
637 ;; Includes extra keywords from Armando Singer [asinger@MAIL.COLGATE.EDU] |
61903 | 638 (when (memq 'javascript-generic-mode generic-extras-enable-list) |
639 | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
640 (define-generic-mode javascript-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
641 '("//" ("/*" . "*/")) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
642 '("break" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
643 "case" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
644 "continue" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
645 "default" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
646 "delete" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
647 "do" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
648 "else" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
649 "export" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
650 "for" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
651 "function" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
652 "if" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
653 "import" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
654 "in" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
655 "new" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
656 "return" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
657 "switch" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
658 "this" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
659 "typeof" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
660 "var" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
661 "void" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
662 "while" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
663 "with" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
664 ;; words reserved for ECMA extensions below |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
665 "catch" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
666 "class" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
667 "const" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
668 "debugger" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
669 "enum" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
670 "extends" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
671 "finally" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
672 "super" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
673 "throw" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
674 "try" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
675 ;; Java Keywords reserved by JavaScript |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
676 "abstract" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
677 "boolean" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
678 "byte" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
679 "char" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
680 "double" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
681 "false" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
682 "final" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
683 "float" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
684 "goto" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
685 "implements" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
686 "instanceof" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
687 "int" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
688 "interface" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
689 "long" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
690 "native" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
691 "null" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
692 "package" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
693 "private" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
694 "protected" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
695 "public" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
696 "short" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
697 "static" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
698 "synchronized" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
699 "throws" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
700 "transient" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
701 "true") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
702 '(("^\\s-*function\\s-+\\([A-Za-z0-9_]+\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
703 (1 font-lock-function-name-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
704 ("^\\s-*var\\s-+\\([A-Za-z0-9_]+\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
705 (1 font-lock-variable-name-face))) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
706 '("\\.js\\'") |
21205 | 707 (list |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
708 (function |
21205 | 709 (lambda () |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
710 (setq imenu-generic-expression |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
711 '((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
712 ("*Variables*" "^var\\s-+\\([A-Za-z0-9_]+\\)" 1)))))) |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
713 "Mode for JavaScript files.")) |
21205 | 714 |
715 ;; VRML files | |
61903 | 716 (when (memq 'vrml-generic-mode generic-extras-enable-list) |
717 | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
718 (define-generic-mode vrml-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
719 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
720 '("DEF" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
721 "NULL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
722 "USE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
723 "Viewpoint" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
724 "ambientIntensity" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
725 "appearance" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
726 "children" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
727 "color" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
728 "coord" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
729 "coordIndex" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
730 "creaseAngle" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
731 "diffuseColor" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
732 "emissiveColor" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
733 "fieldOfView" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
734 "geometry" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
735 "info" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
736 "material" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
737 "normal" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
738 "orientation" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
739 "position" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
740 "shininess" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
741 "specularColor" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
742 "texCoord" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
743 "texture" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
744 "textureTransform" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
745 "title" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
746 "transparency" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
747 "type") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
748 '(("USE\\s-+\\([-A-Za-z0-9_]+\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
749 (1 font-lock-constant-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
750 ("DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
751 (1 font-lock-type-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
752 (2 font-lock-constant-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
753 ("^\\s-*\\([-A-Za-z0-9_]+\\)\\s-*{" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
754 (1 font-lock-function-name-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
755 ("^\\s-*\\(geometry\\|appearance\\|material\\)\\s-+\\([-A-Za-z0-9_]+\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
756 (2 font-lock-variable-name-face))) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
757 '("\\.wrl\\'") |
21205 | 758 (list |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
759 (function |
21205 | 760 (lambda () |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
761 (setq imenu-generic-expression |
21205 | 762 '((nil "^\\([A-Za-z0-9_]+\\)\\s-*{" 1) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
763 ("*Definitions*" |
21205 | 764 "DEF\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([A-Za-z0-9]+\\)\\s-*{" |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
765 1)))))) |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
766 "Generic Mode for VRML files.")) |
21205 | 767 |
768 ;; Java Manifests | |
61903 | 769 (when (memq 'java-manifest-generic-mode generic-extras-enable-list) |
770 | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
771 (define-generic-mode java-manifest-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
772 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
773 '("Name" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
774 "Digest-Algorithms" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
775 "Manifest-Version" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
776 "Required-Version" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
777 "Signature-Version" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
778 "Magic" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
779 "Java-Bean" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
780 "Depends-On") |
21205 | 781 '(("^Name:\\s-+\\([^\n\r]*\\)$" |
782 (1 font-lock-variable-name-face)) | |
783 ("^\\(Manifest\\|Required\\|Signature\\)-Version:\\s-+\\([^\n\r]*\\)$" | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
784 (2 font-lock-constant-face))) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
785 '("[mM][aA][nN][iI][fF][eE][sS][tT]\\.[mM][fF]\\'") |
21205 | 786 nil |
78063
edd7a13f790e
(generic-define-mswindows-modes, generic-define-unix-modes,
Juanma Barranquero <lekktu@gmail.com>
parents:
75347
diff
changeset
|
787 "Mode for Java Manifest files.")) |
21205 | 788 |
789 ;; Java properties files | |
61903 | 790 (when (memq 'java-properties-generic-mode generic-extras-enable-list) |
791 | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
792 (define-generic-mode java-properties-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
793 '(?! ?#) |
21205 | 794 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
795 (eval-when-compile |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
796 (let ((java-properties-key |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
797 "\\(\\([-A-Za-z0-9_\\./]\\|\\(\\\\[ =:]\\)\\)+\\)") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
798 (java-properties-value |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
799 "\\([^\r\n]*\\)")) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
800 ;; Property and value can be separated in a number of different ways: |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
801 ;; * whitespace |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
802 ;; * an equal sign |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
803 ;; * a colon |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
804 (mapcar |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
805 (function |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
806 (lambda (elt) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
807 (list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
808 (concat "^" java-properties-key elt java-properties-value "$") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
809 '(1 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
810 '(4 font-lock-variable-name-face)))) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
811 ;; These are the separators |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
812 '(":\\s-*" "\\s-+" "\\s-*=\\s-*")))) |
21205 | 813 nil |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
814 (list |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
815 (function |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
816 (lambda () |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
817 (setq imenu-generic-expression |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
818 '((nil "^\\([^#! \t\n\r=:]+\\)" 1)))))) |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
819 "Mode for Java properties files.")) |
21205 | 820 |
821 ;; C shell alias definitions | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
822 (when (memq 'alias-generic-mode generic-extras-enable-list) |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
823 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
824 (define-generic-mode alias-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
825 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
826 '("alias" "unalias") |
21205 | 827 '(("^alias\\s-+\\([-A-Za-z0-9_]+\\)\\s-+" |
828 (1 font-lock-variable-name-face)) | |
829 ("^unalias\\s-+\\([-A-Za-z0-9_]+\\)\\s-*$" | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
830 (1 font-lock-variable-name-face))) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
831 '("alias\\'") |
21205 | 832 (list |
833 (function | |
834 (lambda () | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
835 (setq imenu-generic-expression |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
836 '((nil "^\\(alias\\|unalias\\)\\s-+\\([-a-zA-Z0-9_]+\\)" 2)))))) |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
837 "Mode for C Shell alias files.")) |
21205 | 838 |
839 ;;; Windows RC files | |
840 ;; Contributed by ACorreir@pervasive-sw.com (Alfred Correira) | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
841 (when (memq 'rc-generic-mode generic-extras-enable-list) |
21205 | 842 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
843 (define-generic-mode rc-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
844 ;; '(?\/) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
845 '("//") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
846 '("ACCELERATORS" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
847 "AUTO3STATE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
848 "AUTOCHECKBOX" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
849 "AUTORADIOBUTTON" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
850 "BITMAP" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
851 "BOTTOMMARGIN" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
852 "BUTTON" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
853 "CAPTION" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
854 "CHARACTERISTICS" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
855 "CHECKBOX" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
856 "CLASS" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
857 "COMBOBOX" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
858 "CONTROL" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
859 "CTEXT" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
860 "CURSOR" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
861 "DEFPUSHBUTTON" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
862 "DESIGNINFO" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
863 "DIALOG" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
864 "DISCARDABLE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
865 "EDITTEXT" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
866 "EXSTYLE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
867 "FONT" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
868 "GROUPBOX" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
869 "GUIDELINES" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
870 "ICON" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
871 "LANGUAGE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
872 "LEFTMARGIN" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
873 "LISTBOX" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
874 "LTEXT" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
875 "MENUITEM SEPARATOR" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
876 "MENUITEM" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
877 "MENU" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
878 "MOVEABLE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
879 "POPUP" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
880 "PRELOAD" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
881 "PURE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
882 "PUSHBOX" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
883 "PUSHBUTTON" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
884 "RADIOBUTTON" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
885 "RCDATA" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
886 "RIGHTMARGIN" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
887 "RTEXT" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
888 "SCROLLBAR" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
889 "SEPARATOR" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
890 "STATE3" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
891 "STRINGTABLE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
892 "STYLE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
893 "TEXTINCLUDE" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
894 "TOOLBAR" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
895 "TOPMARGIN" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
896 "VERSIONINFO" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
897 "VERSION") |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
898 ;; the choice of what tokens go where is somewhat arbitrary, |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
899 ;; as is the choice of which value tokens are included, as |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
900 ;; the choice of face for each token group |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
901 (eval-when-compile |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
902 (list |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
903 (generic-make-keywords-list |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
904 '("FILEFLAGSMASK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
905 "FILEFLAGS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
906 "FILEOS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
907 "FILESUBTYPE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
908 "FILETYPE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
909 "FILEVERSION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
910 "PRODUCTVERSION") |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
911 font-lock-type-face) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
912 (generic-make-keywords-list |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
913 '("BEGIN" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
914 "BLOCK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
915 "END" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
916 "VALUE") |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
917 font-lock-function-name-face) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
918 '("^#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" 1 font-lock-string-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
919 '("^#[ \t]*define[ \t]+\\(\\sw+\\)(" 1 font-lock-function-name-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
920 '("^#[ \t]*\\(elif\\|if\\)\\>" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
921 ("\\<\\(defined\\)\\>[ \t]*(?\\(\\sw+\\)?" nil nil |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
922 (1 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
923 (2 font-lock-variable-name-face nil t))) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
924 '("^#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
925 (1 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
926 (2 font-lock-variable-name-face nil t)))) |
61490
e51a703b6762
(rc-generic-mode, rul-generic-mode): Fix auto-mode-alist entries.
Lute Kamstra <lute@gnu.org>
parents:
61456
diff
changeset
|
927 '("\\.[rR][cC]\\'") |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
928 nil |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
929 "Generic mode for MS-Windows Resource files.")) |
21205 | 930 |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
931 ;; InstallShield RUL files |
21205 | 932 ;; Contributed by Alfred.Correira@Pervasive.Com |
50265
e8baa2ffdd8f
Use fixes to rul-generic-mode, contributed by "Rolf Sandau" <Rolf.Sandau@marconi.com>
Peter Breton <pbreton@attbi.com>
parents:
48791
diff
changeset
|
933 ;; Bugfixes by "Rolf Sandau" <Rolf.Sandau@marconi.com> |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
934 (when (memq 'rul-generic-mode generic-extras-enable-list) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
935 |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
936 (eval-when-compile |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
937 |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
938 ;;; build the regexp strings using regexp-opt |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
939 (defconst installshield-statement-keyword-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
940 '("abort" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
941 "begin" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
942 "call" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
943 "case" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
944 "declare" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
945 "default" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
946 "downto" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
947 "elseif" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
948 "else" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
949 "endfor" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
950 "endif" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
951 "endswitch" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
952 "endwhile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
953 "end" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
954 "exit" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
955 "external" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
956 "for" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
957 "function" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
958 ;; "goto" -- handled elsewhere |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
959 "if" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
960 "program" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
961 "prototype" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
962 "repeat" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
963 "return" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
964 "step" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
965 "switch" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
966 "then" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
967 "to" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
968 "typedef" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
969 "until" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
970 "void" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
971 "while") |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
972 "Statement keywords used in InstallShield 3 and 5.") |
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
973 |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
974 (defconst installshield-system-functions-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
975 '("AddFolderIcon" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
976 "AddProfString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
977 "AddressString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
978 "AppCommand" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
979 "AskDestPath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
980 "AskOptions" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
981 "AskPath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
982 "AskText" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
983 "AskYesNo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
984 "BatchDeleteEx" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
985 "BatchFileLoad" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
986 "BatchFileSave" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
987 "BatchFind" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
988 "BatchGetFileName" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
989 "BatchMoveEx" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
990 "BatchSetFileName" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
991 "ChangeDirectory" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
992 "CloseFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
993 "CmdGetHwndDlg" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
994 "ComponentAddItem" ; differs between IS3 and IS5 |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
995 "ComponentCompareSizeRequired" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
996 "ComponentDialog" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
997 "ComponentError" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
998 "ComponentFileEnum" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
999 "ComponentFileInfo" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1000 "ComponentFilterLanguage" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1001 "ComponentFilterOS" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1002 "ComponentGetData" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1003 "ComponentGetItemInfo" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1004 "ComponentGetItemSize" ; differs between IS3 and IS5 |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1005 "ComponentIsItemSelected" ; differs between IS3 and IS5 |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1006 "ComponentListItems" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1007 "ComponentMoveData" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1008 "ComponentSelectItem" ; differs between IS3 and IS5 |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1009 "ComponentSetData" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1010 "ComponentSetItemInfo" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1011 "ComponentSetTarget" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1012 "ComponentSetupTypeEnum" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1013 "ComponentSetupTypeGetData" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1014 "ComponentSetupTypeSet" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1015 "ComponentTotalSize" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1016 "ComponentValidate" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1017 "CompressAdd" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1018 "CompressDel" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1019 "CompressEnum" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1020 "CompressGet" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1021 "CompressInfo" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1022 "CopyFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1023 "CreateDir" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1024 "CreateFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1025 "CreateProgramFolder" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1026 "DeinstallSetReference" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1027 "DeinstallStart" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1028 "Delay" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1029 "DeleteDir" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1030 "DeleteFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1031 "DialogSetInfo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1032 "Disable" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1033 "DoInstall" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1034 "Do" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1035 "Enable" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1036 "EnterDisk" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1037 "ExistsDir" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1038 "ExistsDisk" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1039 "ExitProgMan" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1040 "EzBatchAddPath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1041 "EzBatchAddString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1042 "EzBatchReplace" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1043 "EzConfigAddDriver" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1044 "EzConfigAddString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1045 "EzConfigGetValue" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1046 "EzConfigSetValue" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1047 "EzDefineDialog" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1048 "FileCompare" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1049 "FileDeleteLine" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1050 "FileGrep" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1051 "FileInsertLine" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1052 "FileSetBeginDefine" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1053 "FileSetEndDefine" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1054 "FileSetPerformEz" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1055 "FileSetPerform" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1056 "FileSetReset" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1057 "FileSetRoot" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1058 "FindAllDirs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1059 "FindAllFiles" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1060 "FindFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1061 "FindWindow" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1062 "GetDiskSpace" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1063 "GetDisk" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1064 "GetEnvVar" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1065 "GetExtents" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1066 "GetFileInfo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1067 "GetLine" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1068 "GetProfInt" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1069 "GetProfString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1070 "GetSystemInfo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1071 "GetValidDrivesList" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1072 "GetVersion" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1073 "GetWindowHandle" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1074 "InstallationInfo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1075 "Is" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1076 "LaunchApp" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1077 "LaunchAppAndWait" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1078 "ListAddItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1079 "ListAddString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1080 "ListCount" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1081 "ListCreate" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1082 "ListDestroy" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1083 "ListFindItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1084 "ListFindString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1085 "ListGetFirstItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1086 "ListGetFirstString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1087 "ListGetNextItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1088 "ListGetNextString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1089 "ListReadFromFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1090 "ListSetCurrentItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1091 "ListSetNextItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1092 "ListSetNextString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1093 "ListSetIndex" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1094 "ListWriteToFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1095 "LongPathToQuote" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1096 "LongPathToShortPath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1097 "MessageBox" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1098 "NumToStr" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1099 "OpenFileMode" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1100 "OpenFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1101 "ParsePath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1102 "PathAdd" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1103 "PathDelete" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1104 "PathFind" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1105 "PathGet" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1106 "PathMove" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1107 "PathSet" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1108 "Path" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1109 "PlaceBitmap" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1110 "PlaceWindow" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1111 "PlayMMedia" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1112 "ProgDefGroupType" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1113 "RegDBCreateKeyEx" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1114 "RegDBDeleteValue" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1115 "RegDBGetItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1116 "RegDBKeyExist" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1117 "RegDBSetItem" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1118 "RegDBGetKeyValueEx" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1119 "RegDBSetKeyValueEx" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1120 "RegDBSetDefaultRoot" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1121 "RenameFile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1122 "ReplaceFolderIcon" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1123 "ReplaceProfString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1124 "SdAskDestPath" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1125 "SdAskOptions" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1126 "SdAskOptionsList" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1127 "SdBitmap" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1128 "SdCloseDlg" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1129 "SdComponentAdvCheckSpace" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1130 "SdComponentAdvInit" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1131 "SdComponentAdvUpdateSpace" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1132 "SdComponentDialog" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1133 "SdComponentDialog2" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1134 "SdComponentDialogAdv" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1135 "SdComponentDialogEx" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1136 "SdComponentDlgCheckSpace" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1137 "SdComponentMult" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1138 "SdConfirmNewDir" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1139 "SdConfirmRegistration" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1140 "SdDiskSpace" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1141 "SdDisplayTopics" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1142 "SdDoStdButton" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1143 "SdEnablement" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1144 "SdError" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1145 "SdFinish" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1146 "SdFinishInit32" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1147 "SdFinishReboot" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1148 "SdGeneralInit" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1149 "SdGetItemName" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1150 "SdGetTextExtent" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1151 "SdGetUserCompanyInfo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1152 "SdInit" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1153 "SdIsShellExplorer" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1154 "SdIsStdButton" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1155 "SdLicense" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1156 "SdMakeName" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1157 "SdOptionInit" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1158 "SdOptionSetState" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1159 "SdOptionsButtons" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1160 "SdOptionsButtonsInit" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1161 "SdPlugInProductName" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1162 "SdProductName" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1163 "SdRegEnableButton" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1164 "SdRegExEnableButton" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1165 "SdRegisterUser" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1166 "SdRegisterUserEx" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1167 "SdRemoveEndSpace" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1168 "SdSelectFolder" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1169 "SdSetSequentialItems" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1170 "SdSetStatic" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1171 "SdSetupTypeEx" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1172 "SdSetupType" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1173 "SdShowAnyDialog" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1174 "SdShowDlgEdit1" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1175 "SdShowDlgEdit2" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1176 "SdShowDlgEdit3" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1177 "SdShowFileMods" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1178 "SdShowInfoList" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1179 "SdShowMsg" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1180 "SdStartCopy" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1181 "SdUnInit" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1182 "SdUpdateComponentSelection" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1183 "SdWelcome" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1184 "SendMessage" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1185 "SetColor" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1186 "SetFont" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1187 "SetDialogTitle" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1188 "SetDisplayEffect" ; IS5 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1189 "SetFileInfo" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1190 "SetForegroundWindow" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1191 "SetStatusWindow" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1192 "SetTitle" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1193 "SetupType" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1194 "ShowProgramFolder" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1195 "Split" ; IS3 only |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1196 "SprintfBox" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1197 "Sprintf" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1198 "StatusUpdate" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1199 "StrCompare" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1200 "StrFind" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1201 "StrGetTokens" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1202 "StrLength" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1203 "StrRemoveLastSlash" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1204 "StrToLower" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1205 "StrToNum" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1206 "StrToUpper" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1207 "StrSub" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1208 "VarRestore" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1209 "VarSave" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1210 "VerCompare" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1211 "VerGetFileVersion" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1212 "WaitOnDialog" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1213 "Welcome" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1214 "WriteLine" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1215 "WriteProfString" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1216 "XCopyFile") |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
1217 "System functions defined in InstallShield 3 and 5.") |
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
1218 |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1219 (defconst installshield-system-variables-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1220 '("BATCH_INSTALL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1221 "CMDLINE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1222 "COMMONFILES" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1223 "CORECOMPONENTHANDLING" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1224 "DIALOGCACHE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1225 "ERRORFILENAME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1226 "FOLDER_DESKTOP" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1227 "FOLDER_PROGRAMS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1228 "FOLDER_STARTMENU" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1229 "FOLDER_STARTUP" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1230 "INFOFILENAME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1231 "ISRES" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1232 "ISUSER" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1233 "ISVERSION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1234 "MEDIA" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1235 "MODE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1236 "PROGRAMFILES" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1237 "SELECTED_LANGUAGE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1238 "SRCDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1239 "SRCDISK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1240 "SUPPORTDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1241 "TARGETDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1242 "TARGETDISK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1243 "UNINST" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1244 "WINDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1245 "WINDISK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1246 "WINMAJOR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1247 "WINSYSDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1248 "WINSYSDISK") |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
1249 "System variables used in InstallShield 3 and 5.") |
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
1250 |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1251 (defconst installshield-types-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1252 '("BOOL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1253 "BYREF" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1254 "CHAR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1255 "HIWORD" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1256 "HWND" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1257 "INT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1258 "LIST" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1259 "LONG" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1260 "LOWORD" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1261 "LPSTR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1262 "NUMBER" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1263 "NUMBERLIST" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1264 "POINTER" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1265 "QUAD" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1266 "RGB" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1267 "SHORT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1268 "STRINGLIST" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1269 "STRING") |
21947
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
1270 "Type keywords used in InstallShield 3 and 5.") |
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
1271 |
18722fb8716f
(generic-x): Added defgroup declaration.
Richard M. Stallman <rms@gnu.org>
parents:
21345
diff
changeset
|
1272 ;;; some might want to skip highlighting these to improve performance |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1273 (defconst installshield-funarg-constants-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1274 '("AFTER" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1275 "APPEND" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1276 "ALLCONTENTS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1277 "BACKBUTTON" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1278 "BACKGROUNDCAPTION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1279 "BACKGROUND" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1280 "BACK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1281 "BASEMEMORY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1282 "BEFORE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1283 "BIOS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1284 "BITMAPICON" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1285 "BK_BLUE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1286 "BK_GREEN" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1287 "BK_RED" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1288 "BLUE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1289 "BOOTUPDRIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1290 "CANCEL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1291 "CDROM_DRIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1292 "CDROM" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1293 "CHECKBOX95" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1294 "CHECKBOX" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1295 "CHECKLINE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1296 "CHECKMARK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1297 "COLORS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1298 "COMMANDEX" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1299 "COMMAND" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1300 "COMP_NORMAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1301 "COMP_UPDATE_DATE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1302 "COMP_UPDATE_SAME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1303 "COMP_UPDATE_VERSION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1304 "COMPACT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1305 "CONTINUE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1306 "CPU" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1307 "CUSTOM" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1308 "DATE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1309 "DEFWINDOWMODE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1310 "DIR_WRITEABLE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1311 "DIRECTORY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1312 "DISABLE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1313 "DISK_TOTALSPACE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1314 "DISK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1315 "DLG_OPTIONS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1316 "DLG_PATH" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1317 "DLG_TEXT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1318 "DLG_ASK_YESNO" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1319 "DLG_ENTER_DISK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1320 "DLG_ERR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1321 "DLG_INFO_ALTIMAGE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1322 "DLG_INFO_CHECKSELECTION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1323 "DLG_INFO_KUNITS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1324 "DLG_INFO_USEDECIMAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1325 "DLG_MSG_INFORMATION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1326 "DLG_MSG_SEVERE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1327 "DLG_MSG_WARNING" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1328 "DLG_STATUS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1329 "DLG_WARNING" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1330 "DLG_USER_CAPTION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1331 "DRIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1332 "ENABLE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1333 "END_OF_FILE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1334 "END_OF_LIST" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1335 "ENVSPACE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1336 "EQUALS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1337 "EXCLUDE_SUBDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1338 "EXCLUSIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1339 "EXISTS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1340 "EXIT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1341 "EXTENDED_MEMORY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1342 "EXTENSION_ONLY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1343 "FAILIFEXISTS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1344 "FALSE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1345 "FEEDBACK_FULL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1346 "FILE_ATTR_ARCHIVED" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1347 "FILE_ATTR_DIRECTORY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1348 "FILE_ATTR_HIDDEN" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1349 "FILE_ATTR_NORMAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1350 "FILE_ATTR_READONLY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1351 "FILE_ATTR_SYSTEM" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1352 "FILE_ATTRIBUTE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1353 "FILE_DATE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1354 "FILE_LINE_LENGTH" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1355 "FILE_MODE_APPEND" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1356 "FILE_MODE_BINARYREADONLY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1357 "FILE_MODE_BINARY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1358 "FILE_MODE_NORMAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1359 "FILE_NO_VERSION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1360 "FILE_NOT_FOUND" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1361 "FILE_SIZE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1362 "FILE_TIME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1363 "FILENAME_ONLY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1364 "FILENAME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1365 "FIXED_DRIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1366 "FOLDER_DESKTOP" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1367 "FOLDER_PROGRAMS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1368 "FOLDER_STARTMENU" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1369 "FOLDER_STARTUP" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1370 "FREEENVSPACE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1371 "FULLWINDOWMODE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1372 "FULL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1373 "FONT_TITLE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1374 "GREATER_THAN" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1375 "GREEN" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1376 "HKEY_CLASSES_ROOT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1377 "HKEY_CURRENT_USER" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1378 "HKEY_LOCAL_MACHINE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1379 "HKEY_USERS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1380 "HOURGLASS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1381 "INCLUDE_SUBDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1382 "INDVFILESTATUS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1383 "INFORMATION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1384 "IS_WINDOWSNT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1385 "IS_WINDOWS95" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1386 "IS_WINDOWS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1387 "IS_WIN32S" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1388 "ISTYPE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1389 "LANGUAGE_DRV" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1390 "LANGUAGE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1391 "LESS_THAN" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1392 "LIST_NULL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1393 "LISTFIRST" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1394 "LISTNEXT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1395 "LOCKEDFILE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1396 "LOGGING" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1397 "LOWER_LEFT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1398 "LOWER_RIGHT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1399 "MAGENTA" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1400 "MOUSE_DRV" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1401 "MOUSE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1402 "NETWORK_DRV" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1403 "NETWORK" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1404 "NEXT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1405 "NONEXCLUSIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1406 "NORMALMODE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1407 "NOSET" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1408 "NOTEXISTS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1409 "NOWAIT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1410 "NO" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1411 "OFF" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1412 "ONLYDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1413 "ON" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1414 "OSMAJOR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1415 "OSMINOR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1416 "OS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1417 "OTHER_FAILURE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1418 "PARALLEL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1419 "PARTIAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1420 "PATH_EXISTS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1421 "PATH" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1422 "RED" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1423 "REGDB_APPPATH_DEFAULT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1424 "REGDB_APPPATH" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1425 "REGDB_BINARY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1426 "REGDB_ERR_CONNECTIONEXISTS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1427 "REGDB_ERR_CORRUPTEDREGSITRY" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1428 "REGDB_ERR_INITIALIZATION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1429 "REGDB_ERR_INVALIDHANDLE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1430 "REGDB_ERR_INVALIDNAME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1431 "REGDB_NUMBER" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1432 "REGDB_STRING_EXPAND" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1433 "REGDB_STRING_MULTI" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1434 "REGDB_STRING" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1435 "REGDB_UNINSTALL_NAME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1436 "REMOTE_DRIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1437 "REMOVALE_DRIVE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1438 "REPLACE_ITEM" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1439 "REPLACE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1440 "RESET" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1441 "RESTART" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1442 "ROOT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1443 "SELFREGISTER" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1444 "SERIAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1445 "SET" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1446 "SEVERE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1447 "SHAREDFILE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1448 "SHARE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1449 "SILENTMODE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1450 "SRCTARGETDIR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1451 "STATUSBAR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1452 "STATUSDLG" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1453 "STATUSOLD" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1454 "STATUS" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1455 "STYLE_NORMAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1456 "SW_MAXIMIZE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1457 "SW_MINIMIZE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1458 "SW_RESTORE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1459 "SW_SHOW" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1460 "SYS_BOOTMACHINE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1461 "TIME" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1462 "TRUE" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1463 "TYPICAL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1464 "UPPER_LEFT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1465 "UPPER_RIGHT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1466 "VALID_PATH" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1467 "VERSION" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1468 "VIDEO" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1469 "VOLUMELABEL" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1470 "YELLOW" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1471 "YES" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1472 "WAIT" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1473 "WARNING" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1474 "WINMAJOR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1475 "WINMINOR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1476 "WIN32SINSTALLED" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1477 "WIN32SMAJOR" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1478 "WIN32SMINOR") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1479 "Function argument constants used in InstallShield 3 and 5.")) |
21205 | 1480 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1481 (defvar rul-generic-mode-syntax-table nil |
61903 | 1482 "Syntax table to use in `rul-generic-mode' buffers.") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1483 |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1484 (setq rul-generic-mode-syntax-table |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1485 (make-syntax-table c++-mode-syntax-table)) |
50265
e8baa2ffdd8f
Use fixes to rul-generic-mode, contributed by "Rolf Sandau" <Rolf.Sandau@marconi.com>
Peter Breton <pbreton@attbi.com>
parents:
48791
diff
changeset
|
1486 |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1487 (modify-syntax-entry ?\r "> b" rul-generic-mode-syntax-table) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1488 (modify-syntax-entry ?\n "> b" rul-generic-mode-syntax-table) |
50265
e8baa2ffdd8f
Use fixes to rul-generic-mode, contributed by "Rolf Sandau" <Rolf.Sandau@marconi.com>
Peter Breton <pbreton@attbi.com>
parents:
48791
diff
changeset
|
1489 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1490 (modify-syntax-entry ?/ ". 124b" rul-generic-mode-syntax-table) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1491 (modify-syntax-entry ?* ". 23" rul-generic-mode-syntax-table) |
21205 | 1492 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1493 ;; here manually instead |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1494 (defun generic-rul-mode-setup-function () |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1495 (make-local-variable 'parse-sexp-ignore-comments) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1496 (make-local-variable 'comment-start) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1497 (make-local-variable 'comment-start-skip) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1498 (make-local-variable 'comment-end) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1499 (setq imenu-generic-expression |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1500 '((nil "^function\\s-+\\([A-Za-z0-9_]+\\)" 1)) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1501 parse-sexp-ignore-comments t |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1502 comment-end "*/" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1503 comment-start "/*" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1504 ;;; comment-end "" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1505 ;;; comment-start "//" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1506 ;;; comment-start-skip "" |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1507 ) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1508 ;; (set-syntax-table rul-generic-mode-syntax-table) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1509 (setq font-lock-syntax-table rul-generic-mode-syntax-table)) |
50265
e8baa2ffdd8f
Use fixes to rul-generic-mode, contributed by "Rolf Sandau" <Rolf.Sandau@marconi.com>
Peter Breton <pbreton@attbi.com>
parents:
48791
diff
changeset
|
1510 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1511 ;; moved mode-definition behind defun-definition to be warning-free - 15.11.02/RSan |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1512 (define-generic-mode rul-generic-mode |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1513 ;; Using "/*" and "*/" doesn't seem to be working right |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1514 '("//" ("/*" . "*/" )) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1515 (eval-when-compile installshield-statement-keyword-list) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1516 (eval-when-compile |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1517 (list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1518 ;; preprocessor constructs |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1519 '("#[ \t]*include[ \t]+\\(<[^>\"\n]+>\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1520 1 font-lock-string-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1521 '("#[ \t]*\\(\\sw+\\)\\>[ \t]*\\(\\sw+\\)?" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1522 (1 font-lock-reference-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1523 (2 font-lock-variable-name-face nil t)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1524 ;; indirect string constants |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1525 '("\\(@[A-Za-z][A-Za-z0-9_]+\\)" 1 font-lock-builtin-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1526 ;; gotos |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1527 '("[ \t]*\\(\\sw+:\\)" 1 font-lock-reference-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1528 '("\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1529 (1 font-lock-keyword-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1530 (2 font-lock-reference-face nil t)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1531 ;; system variables |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1532 (generic-make-keywords-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1533 installshield-system-variables-list |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1534 font-lock-variable-name-face "[^_]" "[^_]") |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1535 ;; system functions |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1536 (generic-make-keywords-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1537 installshield-system-functions-list |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1538 font-lock-function-name-face "[^_]" "[^_]") |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1539 ;; type keywords |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1540 (generic-make-keywords-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1541 installshield-types-list |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1542 font-lock-type-face "[^_]" "[^_]") |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1543 ;; function argument constants |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1544 (generic-make-keywords-list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1545 installshield-funarg-constants-list |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1546 font-lock-variable-name-face "[^_]" "[^_]"))) ; is this face the best choice? |
61490
e51a703b6762
(rc-generic-mode, rul-generic-mode): Fix auto-mode-alist entries.
Lute Kamstra <lute@gnu.org>
parents:
61456
diff
changeset
|
1547 '("\\.[rR][uU][lL]\\'") |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1548 '(generic-rul-mode-setup-function) |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
1549 "Generic mode for InstallShield RUL files.") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1550 |
21205 | 1551 (define-skeleton rul-if |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1552 "Insert an if statement." |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1553 "condition: " |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1554 "if(" str ") then" \n |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1555 > _ \n |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1556 ( "other condition, %s: " |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1557 > "elseif(" str ") then" \n |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1558 > \n) |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1559 > "else" \n |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1560 > \n |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1561 resume: |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1562 > "endif;") |
21205 | 1563 |
1564 (define-skeleton rul-function | |
1565 "Insert a function statement." | |
1566 "function: " | |
1567 "function " str " ()" \n | |
1568 ( "local variables, %s: " | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1569 > " " str ";" \n) |
21205 | 1570 > "begin" \n |
1571 > _ \n | |
1572 resume: | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1573 > "end;")) |
21205 | 1574 |
1575 ;; Additions by ACorreir@pervasive-sw.com (Alfred Correira) | |
61903 | 1576 (when (memq 'mailrc-generic-mode generic-extras-enable-list) |
1577 | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1578 (define-generic-mode mailrc-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1579 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1580 '("alias" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1581 "else" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1582 "endif" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1583 "group" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1584 "if" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1585 "ignore" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1586 "set" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1587 "source" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1588 "unset") |
21205 | 1589 '(("^\\s-*\\(alias\\|group\\)\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$" |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1590 (2 font-lock-constant-face) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1591 (3 font-lock-variable-name-face)) |
21205 | 1592 ("^\\s-*\\(unset\\|set\\|ignore\\)\\s-+\\([-A-Za-z0-9_]+\\)=?\\([^\n\r#]*\\)\\(#.*\\)?$" |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1593 (2 font-lock-constant-face) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1594 (3 font-lock-variable-name-face)) |
41393
8c295b635eb8
(mailrc-generic-mode): Highlight the `source' keyword.
Francesco Potortì <pot@gnu.org>
parents:
32282
diff
changeset
|
1595 ("^\\s-*\\(source\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$" |
8c295b635eb8
(mailrc-generic-mode): Highlight the `source' keyword.
Francesco Potortì <pot@gnu.org>
parents:
32282
diff
changeset
|
1596 (2 font-lock-variable-name-face))) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1597 '("\\.mailrc\\'") |
21205 | 1598 nil |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
1599 "Mode for mailrc files.")) |
21205 | 1600 |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1601 ;; Inetd.conf |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1602 (when (memq 'inetd-conf-generic-mode generic-extras-enable-list) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1603 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1604 (define-generic-mode inetd-conf-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1605 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1606 '("stream" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1607 "dgram" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1608 "tcp" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1609 "udp" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1610 "wait" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1611 "nowait" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1612 "internal") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1613 '(("^\\([-A-Za-z0-9_]+\\)" 1 font-lock-type-face)) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1614 '("/etc/inetd.conf\\'") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1615 (list |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1616 (function |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1617 (lambda () |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1618 (setq imenu-generic-expression |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
1619 '((nil "^\\([-A-Za-z0-9_]+\\)" 1)))))))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1620 |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1621 ;; Services |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1622 (when (memq 'etc-services-generic-mode generic-extras-enable-list) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1623 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1624 (define-generic-mode etc-services-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1625 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1626 '("tcp" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1627 "udp" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1628 "ddp") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1629 '(("^\\([-A-Za-z0-9_]+\\)\\s-+\\([0-9]+\\)/" |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1630 (1 font-lock-type-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1631 (2 font-lock-variable-name-face))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1632 '("/etc/services\\'") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1633 (list |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1634 (function |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1635 (lambda () |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1636 (setq imenu-generic-expression |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
1637 '((nil "^\\([-A-Za-z0-9_]+\\)" 1)))))))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1638 |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1639 ;; Password and Group files |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1640 (when (memq 'etc-passwd-generic-mode generic-extras-enable-list) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1641 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1642 (define-generic-mode etc-passwd-generic-mode |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1643 nil ;; No comment characters |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1644 '("root") ;; Only one keyword |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1645 (eval-when-compile |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1646 (list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1647 (list |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1648 (concat |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1649 "^" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1650 ;; User name -- Never blank! |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1651 "\\([^:]+\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1652 ":" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1653 ;; Password, UID and GID |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1654 (mapconcat |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1655 'identity |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1656 (make-list 3 "\\([^:]+\\)") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1657 ":") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1658 ":" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1659 ;; GECOS/Name -- might be blank |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1660 "\\([^:]*\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1661 ":" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1662 ;; Home directory and shell |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1663 "\\([^:]+\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1664 ":?" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1665 "\\([^:]*\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1666 "$") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1667 '(1 font-lock-type-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1668 '(5 font-lock-variable-name-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1669 '(6 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1670 '(7 font-lock-warning-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1671 '("^\\([^:]+\\):\\([^:]*\\):\\([0-9]+\\):\\(.*\\)$" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1672 (1 font-lock-type-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1673 (4 font-lock-variable-name-face)))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1674 '("/etc/passwd\\'" "/etc/group\\'") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1675 (list |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1676 (function |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1677 (lambda () |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1678 (setq imenu-generic-expression |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
1679 '((nil "^\\([-A-Za-z0-9_]+\\):" 1)))))))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1680 |
32117
20c617dc8696
* generic-x.el (apache-conf-generic-mode):
Peter Breton <pbreton@attbi.com>
parents:
26045
diff
changeset
|
1681 ;; Fstab |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1682 (when (memq 'etc-fstab-generic-mode generic-extras-enable-list) |
32117
20c617dc8696
* generic-x.el (apache-conf-generic-mode):
Peter Breton <pbreton@attbi.com>
parents:
26045
diff
changeset
|
1683 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1684 (define-generic-mode etc-fstab-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1685 '(?#) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1686 '("adfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1687 "affs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1688 "autofs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1689 "coda" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1690 "coherent" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1691 "cramfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1692 "devpts" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1693 "efs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1694 "ext2" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1695 "ext3" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1696 "hfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1697 "hpfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1698 "iso9660" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1699 "jfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1700 "minix" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1701 "msdos" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1702 "ncpfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1703 "nfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1704 "ntfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1705 "proc" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1706 "qnx4" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1707 "reiserfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1708 "romfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1709 "smbfs" |
68644
88d2d7964574
Add file system types cifs and usbdevfs. Allow special chars in file names.
Lars Hansen <larsh@soem.dk>
parents:
64762
diff
changeset
|
1710 "cifs" |
88d2d7964574
Add file system types cifs and usbdevfs. Allow special chars in file names.
Lars Hansen <larsh@soem.dk>
parents:
64762
diff
changeset
|
1711 "usbdevfs" |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1712 "sysv" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1713 "tmpfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1714 "udf" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1715 "ufs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1716 "umsdos" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1717 "vfat" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1718 "xenix" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1719 "xfs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1720 "swap" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1721 "auto" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1722 "ignore") |
68644
88d2d7964574
Add file system types cifs and usbdevfs. Allow special chars in file names.
Lars Hansen <larsh@soem.dk>
parents:
64762
diff
changeset
|
1723 '(("^\\([^# \t]+\\)\\s-+\\([^# \t]+\\)" |
61490
e51a703b6762
(rc-generic-mode, rul-generic-mode): Fix auto-mode-alist entries.
Lute Kamstra <lute@gnu.org>
parents:
61456
diff
changeset
|
1724 (1 font-lock-type-face t) |
e51a703b6762
(rc-generic-mode, rul-generic-mode): Fix auto-mode-alist entries.
Lute Kamstra <lute@gnu.org>
parents:
61456
diff
changeset
|
1725 (2 font-lock-variable-name-face t))) |
32117
20c617dc8696
* generic-x.el (apache-conf-generic-mode):
Peter Breton <pbreton@attbi.com>
parents:
26045
diff
changeset
|
1726 '("/etc/[v]*fstab\\'") |
20c617dc8696
* generic-x.el (apache-conf-generic-mode):
Peter Breton <pbreton@attbi.com>
parents:
26045
diff
changeset
|
1727 (list |
20c617dc8696
* generic-x.el (apache-conf-generic-mode):
Peter Breton <pbreton@attbi.com>
parents:
26045
diff
changeset
|
1728 (function |
20c617dc8696
* generic-x.el (apache-conf-generic-mode):
Peter Breton <pbreton@attbi.com>
parents:
26045
diff
changeset
|
1729 (lambda () |
20c617dc8696
* generic-x.el (apache-conf-generic-mode):
Peter Breton <pbreton@attbi.com>
parents:
26045
diff
changeset
|
1730 (setq imenu-generic-expression |
68644
88d2d7964574
Add file system types cifs and usbdevfs. Allow special chars in file names.
Lars Hansen <larsh@soem.dk>
parents:
64762
diff
changeset
|
1731 '((nil "^\\([^# \t]+\\)\\s-+" 1)))))))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1732 |
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1733 ;; From Jacques Duthen <jacques.duthen@sncf.fr> |
61903 | 1734 (when (memq 'show-tabs-generic-mode generic-extras-enable-list) |
1735 | |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1736 (eval-when-compile |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1737 |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1738 (defconst show-tabs-generic-mode-font-lock-defaults-1 |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1739 '(;; trailing spaces must come before... |
63206
2624ddc5a43f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376
Miles Bader <miles@gnu.org>
parents:
62436
diff
changeset
|
1740 ("[ \t]+$" . 'show-tabs-space) |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1741 ;; ...embedded tabs |
63206
2624ddc5a43f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376
Miles Bader <miles@gnu.org>
parents:
62436
diff
changeset
|
1742 ("[^\n\t]\\(\t+\\)" (1 'show-tabs-tab)))) |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1743 |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1744 (defconst show-tabs-generic-mode-font-lock-defaults-2 |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1745 '(;; trailing spaces must come before... |
63206
2624ddc5a43f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376
Miles Bader <miles@gnu.org>
parents:
62436
diff
changeset
|
1746 ("[ \t]+$" . 'show-tabs-space) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1747 ;; ...tabs |
63206
2624ddc5a43f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376
Miles Bader <miles@gnu.org>
parents:
62436
diff
changeset
|
1748 ("\t+" . 'show-tabs-tab)))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1749 |
63206
2624ddc5a43f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376
Miles Bader <miles@gnu.org>
parents:
62436
diff
changeset
|
1750 (defface show-tabs-tab |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1751 '((((class grayscale) (background light)) (:background "DimGray" :weight bold)) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1752 (((class grayscale) (background dark)) (:background "LightGray" :weight bold)) |
61394
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
61326
diff
changeset
|
1753 (((class color) (min-colors 88)) (:background "red1")) |
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
61326
diff
changeset
|
1754 (((class color)) (:background "red")) |
42456
8a4077ab418c
(various face definitions): Use :weight, not :bold.
Richard M. Stallman <rms@gnu.org>
parents:
41393
diff
changeset
|
1755 (t (:weight bold))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1756 "Font Lock mode face used to highlight TABs." |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
1757 :group 'generic-x) |
63206
2624ddc5a43f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376
Miles Bader <miles@gnu.org>
parents:
62436
diff
changeset
|
1758 ;; backward-compatibility alias |
2624ddc5a43f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376
Miles Bader <miles@gnu.org>
parents:
62436
diff
changeset
|
1759 (put 'show-tabs-tab-face 'face-alias 'show-tabs-tab) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1760 |
63206
2624ddc5a43f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376
Miles Bader <miles@gnu.org>
parents:
62436
diff
changeset
|
1761 (defface show-tabs-space |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1762 '((((class grayscale) (background light)) (:background "DimGray" :weight bold)) |
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1763 (((class grayscale) (background dark)) (:background "LightGray" :weight bold)) |
61394
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
61326
diff
changeset
|
1764 (((class color) (min-colors 88)) (:background "yellow1")) |
31aa9a390538
* mh-customize.el (mh-speedbar-selected-folder-face): Special case
Dan Nicolaescu <dann@ics.uci.edu>
parents:
61326
diff
changeset
|
1765 (((class color)) (:background "yellow")) |
42456
8a4077ab418c
(various face definitions): Use :weight, not :bold.
Richard M. Stallman <rms@gnu.org>
parents:
41393
diff
changeset
|
1766 (t (:weight bold))) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1767 "Font Lock mode face used to highlight spaces." |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
1768 :group 'generic-x) |
63206
2624ddc5a43f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376
Miles Bader <miles@gnu.org>
parents:
62436
diff
changeset
|
1769 ;; backward-compatibility alias |
2624ddc5a43f
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376
Miles Bader <miles@gnu.org>
parents:
62436
diff
changeset
|
1770 (put 'show-tabs-space-face 'face-alias 'show-tabs-space) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1771 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1772 (define-generic-mode show-tabs-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1773 nil ;; no comment char |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1774 nil ;; no keywords |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1775 (eval-when-compile show-tabs-generic-mode-font-lock-defaults-1) |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1776 nil ;; no auto-mode-alist |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1777 ;; '(show-tabs-generic-mode-hook-fun) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1778 nil |
78063
edd7a13f790e
(generic-define-mswindows-modes, generic-define-unix-modes,
Juanma Barranquero <lekktu@gmail.com>
parents:
75347
diff
changeset
|
1779 "Generic mode to show tabs and trailing spaces.")) |
25603
db167bb5dfd8
(generic-define-unix-modes): Added new modes:
Richard M. Stallman <rms@gnu.org>
parents:
24036
diff
changeset
|
1780 |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1781 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1782 ;; DNS modes |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1783 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1784 |
61903 | 1785 (when (memq 'named-boot-generic-mode generic-extras-enable-list) |
1786 | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1787 (define-generic-mode named-boot-generic-mode |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1788 ;; List of comment characters |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1789 '(?\;) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1790 ;; List of keywords |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1791 '("cache" "primary" "secondary" "forwarders" "limit" "options" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1792 "directory" "check-names") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1793 ;; List of additional font-lock-expressions |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1794 '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1795 ("^directory\\s-+\\(.*\\)" 1 font-lock-variable-name-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1796 ("^\\(primary\\|cache\\)\\s-+\\([.A-Za-z]+\\)\\s-+\\(.*\\)" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1797 (2 font-lock-variable-name-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1798 (3 font-lock-constant-face))) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1799 ;; List of additional automode-alist expressions |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1800 '("/etc/named.boot\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1801 ;; List of set up functions to call |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
1802 nil)) |
61903 | 1803 |
1804 (when (memq 'named-database-generic-mode generic-extras-enable-list) | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1805 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1806 (define-generic-mode named-database-generic-mode |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1807 ;; List of comment characters |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1808 '(?\;) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1809 ;; List of keywords |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1810 '("IN" "NS" "CNAME" "SOA" "PTR" "MX" "A") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1811 ;; List of additional font-lock-expressions |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1812 '(("\\([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+\\)" 1 font-lock-constant-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1813 ("^\\([.A-Za-z0-9]+\\)" 1 font-lock-variable-name-face)) |
61490
e51a703b6762
(rc-generic-mode, rul-generic-mode): Fix auto-mode-alist entries.
Lute Kamstra <lute@gnu.org>
parents:
61456
diff
changeset
|
1814 ;; List of additional auto-mode-alist expressions |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1815 nil |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1816 ;; List of set up functions to call |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
1817 nil) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1818 |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1819 (defvar named-database-time-string "%Y%m%d%H" |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1820 "Timestring for named serial numbers.") |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1821 |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1822 (defun named-database-print-serial () |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1823 "Print a serial number based on the current date." |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1824 (interactive) |
61903 | 1825 (insert (format-time-string named-database-time-string (current-time))))) |
1826 | |
1827 (when (memq 'resolve-conf-generic-mode generic-extras-enable-list) | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1828 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1829 (define-generic-mode resolve-conf-generic-mode |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1830 ;; List of comment characters |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1831 '(?#) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1832 ;; List of keywords |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1833 '("nameserver" "domain" "search" "sortlist" "options") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1834 ;; List of additional font-lock-expressions |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1835 nil |
61490
e51a703b6762
(rc-generic-mode, rul-generic-mode): Fix auto-mode-alist entries.
Lute Kamstra <lute@gnu.org>
parents:
61456
diff
changeset
|
1836 ;; List of additional auto-mode-alist expressions |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1837 '("/etc/resolv[e]?.conf\\'") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1838 ;; List of set up functions to call |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
1839 nil)) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1840 |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1841 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1842 ;; Modes for spice and common electrical engineering circuit netlist formats |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1843 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1844 |
61903 | 1845 (when (memq 'spice-generic-mode generic-extras-enable-list) |
1846 | |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1847 (define-generic-mode spice-generic-mode |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1848 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1849 '("and" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1850 "cccs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1851 "ccvs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1852 "delay" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1853 "nand" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1854 "nor" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1855 "npwl" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1856 "or" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1857 "par" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1858 "ppwl" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1859 "pwl" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1860 "vccap" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1861 "vccs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1862 "vcr" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1863 "vcvs") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1864 '(("^\\s-*\\([*].*\\)" 1 font-lock-comment-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1865 (" \\(\\$ .*\\)$" 1 font-lock-comment-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1866 ("^\\(\\$ .*\\)$" 1 font-lock-comment-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1867 ("\\([*].*\\)" 1 font-lock-comment-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1868 ("^\\([+]\\)" 1 font-lock-string-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1869 ("^\\s-*\\([.]\\w+\\>\\)" 1 font-lock-keyword-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1870 ("\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1871 ("\\('[^']+'\\)" 1 font-lock-string-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1872 ("\\(\"[^\"]+\"\\)" 1 font-lock-string-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1873 '("\\.[sS][pP]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1874 "\\.[sS][pP][iI]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1875 "\\.[sS][pP][iI][cC][eE]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1876 "\\.[iI][nN][cC]\\'") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1877 (list |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1878 'generic-bracket-support |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1879 ;; Make keywords case-insensitive |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1880 (function |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1881 (lambda() |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1882 (setq font-lock-defaults '(generic-font-lock-keywords nil t))))) |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
1883 "Generic mode for SPICE circuit netlist files.")) |
61903 | 1884 |
1885 (when (memq 'ibis-generic-mode generic-extras-enable-list) | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1886 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1887 (define-generic-mode ibis-generic-mode |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1888 '(?|) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1889 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1890 '(("[[]\\([^]]*\\)[]]" 1 font-lock-keyword-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1891 ("\\(\\(_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1892 '("\\.[iI][bB][sS]\\'") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1893 '(generic-bracket-support) |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
1894 "Generic mode for IBIS circuit netlist files.")) |
61903 | 1895 |
1896 (when (memq 'astap-generic-mode generic-extras-enable-list) | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1897 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1898 (define-generic-mode astap-generic-mode |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1899 nil |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1900 '("analyze" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1901 "description" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1902 "elements" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1903 "execution" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1904 "features" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1905 "functions" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1906 "ground" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1907 "model" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1908 "outputs" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1909 "print" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1910 "run" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1911 "controls" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1912 "table") |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1913 '(("^\\s-*\\([*].*\\)" 1 font-lock-comment-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1914 (";\\s-*\\([*].*\\)" 1 font-lock-comment-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1915 ("^\\s-*\\([.]\\w+\\>\\)" 1 font-lock-keyword-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1916 ("\\('[^']+'\\)" 1 font-lock-string-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1917 ("\\(\"[^\"]+\"\\)" 1 font-lock-string-face) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1918 ("[(,]\\s-*\\(\\([.]\\|_\\|\\w\\)+\\)\\s-*=" 1 font-lock-variable-name-face)) |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1919 '("\\.[aA][pP]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1920 "\\.[aA][sS][xX]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1921 "\\.[aA][sS][tT][aA][pP]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1922 "\\.[pP][sS][pP]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1923 "\\.[dD][eE][cC][kK]\\'" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1924 "\\.[gG][oO][dD][aA][tT][aA]") |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1925 (list |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1926 'generic-bracket-support |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1927 ;; Make keywords case-insensitive |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1928 (function |
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1929 (lambda() |
60872
9be398c4e5e3
Rename generic-font-lock-defaults to generic-font-lock-keywords
Lute Kamstra <lute@gnu.org>
parents:
60851
diff
changeset
|
1930 (setq font-lock-defaults '(generic-font-lock-keywords nil t))))) |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
1931 "Generic mode for ASTAP circuit netlist files.")) |
61903 | 1932 |
1933 (when (memq 'etc-modules-conf-generic-mode generic-extras-enable-list) | |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1934 |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1935 (define-generic-mode etc-modules-conf-generic-mode |
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1936 ;; List of comment characters |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1937 '(?#) |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1938 ;; List of keywords |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1939 '("above" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1940 "alias" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1941 "below" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1942 "define" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1943 "depfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1944 "else" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1945 "elseif" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1946 "endif" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1947 "if" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1948 "include" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1949 "insmod_opt" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1950 "install" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1951 "keep" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1952 "options" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1953 "path" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1954 "generic_stringfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1955 "pcimapfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1956 "isapnpmapfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1957 "usbmapfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1958 "parportmapfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1959 "ieee1394mapfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1960 "pnpbiosmapfile" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1961 "probe" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1962 "probeall" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1963 "prune" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1964 "post-install" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1965 "post-remove" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1966 "pre-install" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1967 "pre-remove" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1968 "remove" |
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1969 "persistdir") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1970 ;; List of additional font-lock-expressions |
50265
e8baa2ffdd8f
Use fixes to rul-generic-mode, contributed by "Rolf Sandau" <Rolf.Sandau@marconi.com>
Peter Breton <pbreton@attbi.com>
parents:
48791
diff
changeset
|
1971 nil |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1972 ;; List of additional automode-alist expressions |
60851
c96f650fe125
Code cleanup: make arguments constant whenever possible.
Lute Kamstra <lute@gnu.org>
parents:
60820
diff
changeset
|
1973 '("/etc/modules.conf" "/etc/conf.modules") |
60774
65f5b049afac
Don't prevent compilation. Don't require generic.
Lute Kamstra <lute@gnu.org>
parents:
53360
diff
changeset
|
1974 ;; List of set up functions to call |
62258
1eeee39ce994
Fix callers of define-generic-mode.
Lute Kamstra <lute@gnu.org>
parents:
61903
diff
changeset
|
1975 nil)) |
26044
a0f47d3e4a95
Added new InstallShield keywords.
Peter Breton <pbreton@attbi.com>
parents:
25624
diff
changeset
|
1976 |
21205 | 1977 (provide 'generic-x) |
1978 | |
52401 | 1979 ;;; arch-tag: cde692a5-9ff6-4506-9999-c67999c2bdb5 |
21205 | 1980 ;;; generic-x.el ends here |