diff options
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/simula.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el index ce546eb169f..ab3e9547120 100644 --- a/lisp/progmodes/simula.el +++ b/lisp/progmodes/simula.el | |||
| @@ -129,24 +129,24 @@ and the cdr extra OTHERWISE indentation." | |||
| 129 | (defconst simula-abbrev-keyword-default 'upcase | 129 | (defconst simula-abbrev-keyword-default 'upcase |
| 130 | "Specify how to convert case for SIMULA keywords. | 130 | "Specify how to convert case for SIMULA keywords. |
| 131 | Value is one of the symbols `upcase', `downcase', `capitalize', | 131 | Value is one of the symbols `upcase', `downcase', `capitalize', |
| 132 | (as in) `abbrev-table' or nil if they should not be changed.") | 132 | \(as in) `abbrev-table' or nil if they should not be changed.") |
| 133 | 133 | ||
| 134 | (defcustom simula-abbrev-keyword simula-abbrev-keyword-default | 134 | (defcustom simula-abbrev-keyword simula-abbrev-keyword-default |
| 135 | "*Specify how to convert case for SIMULA keywords. | 135 | "*Specify how to convert case for SIMULA keywords. |
| 136 | Value is one of the symbols `upcase', `downcase', `capitalize', | 136 | Value is one of the symbols `upcase', `downcase', `capitalize', |
| 137 | (as in) `abbrev-table' or nil if they should not be changed." | 137 | \(as in) `abbrev-table' or nil if they should not be changed." |
| 138 | :type '(choice (const upcase) (const downcase) (const capitalize)(const nil)) | 138 | :type '(choice (const upcase) (const downcase) (const capitalize)(const nil)) |
| 139 | :group 'simula) | 139 | :group 'simula) |
| 140 | 140 | ||
| 141 | (defconst simula-abbrev-stdproc-default 'abbrev-table | 141 | (defconst simula-abbrev-stdproc-default 'abbrev-table |
| 142 | "Specify how to convert case for standard SIMULA procedure and class names. | 142 | "Specify how to convert case for standard SIMULA procedure and class names. |
| 143 | Value is one of the symbols `upcase', `downcase', `capitalize', | 143 | Value is one of the symbols `upcase', `downcase', `capitalize', |
| 144 | (as in) `abbrev-table', or nil if they should not be changed.") | 144 | \(as in) `abbrev-table', or nil if they should not be changed.") |
| 145 | 145 | ||
| 146 | (defcustom simula-abbrev-stdproc simula-abbrev-stdproc-default | 146 | (defcustom simula-abbrev-stdproc simula-abbrev-stdproc-default |
| 147 | "*Specify how to convert case for standard SIMULA procedure and class names. | 147 | "*Specify how to convert case for standard SIMULA procedure and class names. |
| 148 | Value is one of the symbols `upcase', `downcase', `capitalize', | 148 | Value is one of the symbols `upcase', `downcase', `capitalize', |
| 149 | (as in) `abbrev-table', or nil if they should not be changed." | 149 | \(as in) `abbrev-table', or nil if they should not be changed." |
| 150 | :type '(choice (const upcase) (const downcase) (const capitalize) | 150 | :type '(choice (const upcase) (const downcase) (const capitalize) |
| 151 | (const abbrev-table) (const nil)) | 151 | (const abbrev-table) (const nil)) |
| 152 | :group 'simula) | 152 | :group 'simula) |