129 |
(defconst simula-abbrev-keyword-default 'upcase |
(defconst simula-abbrev-keyword-default 'upcase |
130 |
"Specify how to convert case for SIMULA keywords. |
"Specify how to convert case for SIMULA keywords. |
131 |
Value is one of the symbols `upcase', `downcase', `capitalize', |
Value is one of the symbols `upcase', `downcase', `capitalize', |
132 |
(as in) `abbrev-table' or nil if they should not be changed.") |
\(as in) `abbrev-table' or nil if they should not be changed.") |
133 |
|
|
134 |
(defcustom simula-abbrev-keyword simula-abbrev-keyword-default |
(defcustom simula-abbrev-keyword simula-abbrev-keyword-default |
135 |
"*Specify how to convert case for SIMULA keywords. |
"*Specify how to convert case for SIMULA keywords. |
136 |
Value is one of the symbols `upcase', `downcase', `capitalize', |
Value is one of the symbols `upcase', `downcase', `capitalize', |
137 |
(as in) `abbrev-table' or nil if they should not be changed." |
\(as in) `abbrev-table' or nil if they should not be changed." |
138 |
:type '(choice (const upcase) (const downcase) (const capitalize)(const nil)) |
:type '(choice (const upcase) (const downcase) (const capitalize)(const nil)) |
139 |
:group 'simula) |
:group 'simula) |
140 |
|
|
141 |
(defconst simula-abbrev-stdproc-default 'abbrev-table |
(defconst simula-abbrev-stdproc-default 'abbrev-table |
142 |
"Specify how to convert case for standard SIMULA procedure and class names. |
"Specify how to convert case for standard SIMULA procedure and class names. |
143 |
Value is one of the symbols `upcase', `downcase', `capitalize', |
Value is one of the symbols `upcase', `downcase', `capitalize', |
144 |
(as in) `abbrev-table', or nil if they should not be changed.") |
\(as in) `abbrev-table', or nil if they should not be changed.") |
145 |
|
|
146 |
(defcustom simula-abbrev-stdproc simula-abbrev-stdproc-default |
(defcustom simula-abbrev-stdproc simula-abbrev-stdproc-default |
147 |
"*Specify how to convert case for standard SIMULA procedure and class names. |
"*Specify how to convert case for standard SIMULA procedure and class names. |
148 |
Value is one of the symbols `upcase', `downcase', `capitalize', |
Value is one of the symbols `upcase', `downcase', `capitalize', |
149 |
(as in) `abbrev-table', or nil if they should not be changed." |
\(as in) `abbrev-table', or nil if they should not be changed." |
150 |
:type '(choice (const upcase) (const downcase) (const capitalize) |
:type '(choice (const upcase) (const downcase) (const capitalize) |
151 |
(const abbrev-table) (const nil)) |
(const abbrev-table) (const nil)) |
152 |
:group 'simula) |
:group 'simula) |