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