/[emacs]/emacs/lisp/progmodes/simula.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/simula.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by pj, Thu Dec 20 18:17:15 2001 UTC revision 1.27 by jpw, Sat Aug 24 14:26:06 2002 UTC
# Line 129  and the cdr extra OTHERWISE indentation. Line 129  and the cdr extra OTHERWISE indentation.
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)

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26