[Emacs-diffs] Changes to emacs/lisp/progmodes/simula.el

[John Paul Wallington]

Index: emacs/lisp/progmodes/simula.el
diff -c emacs/lisp/progmodes/simula.el:1.26 emacs/lisp/progmodes/simula.el:1.27
*** emacs/lisp/progmodes/simula.el:1.26 Thu Dec 20 13:17:15 2001
--- emacs/lisp/progmodes/simula.el      Sat Aug 24 10:26:06 2002
***************
*** 129,152 ****
  (defconst simula-abbrev-keyword-default 'upcase
    "Specify how to convert case for SIMULA keywords.
  Value is one of the symbols `upcase', `downcase', `capitalize',
! (as in) `abbrev-table' or nil if they should not be changed.")
  
  (defcustom simula-abbrev-keyword simula-abbrev-keyword-default
    "*Specify how to convert case for SIMULA keywords.
  Value is one of the symbols `upcase', `downcase', `capitalize',
! (as in) `abbrev-table' or nil if they should not be changed."
    :type '(choice (const upcase) (const downcase) (const capitalize)(const 
nil))
    :group 'simula)
  
  (defconst simula-abbrev-stdproc-default 'abbrev-table
    "Specify how to convert case for standard SIMULA procedure and class names.
  Value is one of the symbols `upcase', `downcase', `capitalize',
! (as in) `abbrev-table', or nil if they should not be changed.")
  
  (defcustom simula-abbrev-stdproc simula-abbrev-stdproc-default
    "*Specify how to convert case for standard SIMULA procedure and class names.
  Value is one of the symbols `upcase', `downcase', `capitalize',
! (as in) `abbrev-table', or nil if they should not be changed."
    :type '(choice (const upcase) (const downcase) (const capitalize)
  (const abbrev-table) (const nil))
    :group 'simula)
--- 129,152 ----
  (defconst simula-abbrev-keyword-default 'upcase
    "Specify how to convert case for SIMULA keywords.
  Value is one of the symbols `upcase', `downcase', `capitalize',
! \(as in) `abbrev-table' or nil if they should not be changed.")
  
  (defcustom simula-abbrev-keyword simula-abbrev-keyword-default
    "*Specify how to convert case for SIMULA keywords.
  Value is one of the symbols `upcase', `downcase', `capitalize',
! \(as in) `abbrev-table' or nil if they should not be changed."
    :type '(choice (const upcase) (const downcase) (const capitalize)(const 
nil))
    :group 'simula)
  
  (defconst simula-abbrev-stdproc-default 'abbrev-table
    "Specify how to convert case for standard SIMULA procedure and class names.
  Value is one of the symbols `upcase', `downcase', `capitalize',
! \(as in) `abbrev-table', or nil if they should not be changed.")
  
  (defcustom simula-abbrev-stdproc simula-abbrev-stdproc-default
    "*Specify how to convert case for standard SIMULA procedure and class names.
  Value is one of the symbols `upcase', `downcase', `capitalize',
! \(as in) `abbrev-table', or nil if they should not be changed."
    :type '(choice (const upcase) (const downcase) (const capitalize)
  (const abbrev-table) (const nil))
    :group 'simula)