aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/progmodes')
-rw-r--r--lisp/progmodes/simula.el8
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.
131Value is one of the symbols `upcase', `downcase', `capitalize', 131Value 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.
136Value is one of the symbols `upcase', `downcase', `capitalize', 136Value 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.
143Value is one of the symbols `upcase', `downcase', `capitalize', 143Value 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.
148Value is one of the symbols `upcase', `downcase', `capitalize', 148Value 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)