changeset 18285:d38d2b26bd52

(scheme): Add defgroup. Put defcustom's into this group. (scheme-mode-commands): Remove keybinding of \t to old `scheme-indent-line'. Bind \e\C-q to `indent-sexp', not `scheme-indent-sexp'. (scheme-mit-dialect): Use defcustom. (dsssl-sgml-declaration): Likewise. Fix doc string.

--- a/lisp/progmodes/scheme.el	Tue Jun 17 21:51:35 1997 +0000
+++ b/lisp/progmodes/scheme.el	Tue Jun 17 21:54:16 1997 +0000
@@ -175,9 +175,9 @@
 
 ;; Used by cmuscheme
 (defun scheme-mode-commands (map)
-  (define-key map "\t" 'scheme-indent-line)
+  ;;(define-key map "\t" 'indent-for-tab-command) ; default
   (define-key map "\177" 'backward-delete-char-untabify)
-  (define-key map "\e\C-q" 'scheme-indent-sexp))
+  (define-key map "\e\C-q" 'indent-sexp))
 
 ;;;###autoload
 (defun scheme-mode ()
@@ -208,16 +208,24 @@
   (setq major-mode 'scheme-mode)
   (setq mode-name "Scheme"))
 
-(defvar scheme-mit-dialect t
+(defgroup scheme nil
+  "Editing Scheme code"
+  :group 'lisp)
+
+(defcustom scheme-mit-dialect t
   "If non-nil, scheme mode is specialized for MIT Scheme.
-Set this to nil if you normally use another dialect.")
+Set this to nil if you normally use another dialect."
+  :type 'boolean
+  :group 'scheme)
 
-(defvar dsssl-sgml-declaration
+(defcustom dsssl-sgml-declaration
   "<!DOCTYPE style-sheet PUBLIC \"-//James Clark//DTD DSSSL Style Sheet//EN\">
 "
-  "*An SGML declaration (typically using James Clark's style-sheet
-doctype, as required for Jade).  This will be inserted into an empty
-buffer in dsssl-mode if it is defined as a string.")
+  "*An SGML declaration for the DSSSL file.
+This will be inserted into an empty buffer in dsssl-mode if it is
+defined as a string.  It is typically James Clark's style-sheet
+doctype, as required for Jade."
+  :group 'scheme)
 
 (defvar dsssl-imenu-generic-expression
   ;; Perhaps this should also look for the style-sheet DTD tags.  I'm