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