From 48879301fd4da29735840b0668329a5a72ae9a16 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 17 Jun 1997 21:54:16 +0000 Subject: [PATCH] (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. --- lisp/progmodes/scheme.el | 24 ++++++++++++++++-------- 1 file changed, 16 insertions(+), 8 deletions(-) diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index 584725e4c9f..c9f9b4cdb0c 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -175,9 +175,9 @@ All commands in `shared-lisp-mode-map' are inherited by this map.") ;; 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 @@ if that value is non-nil." (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 " " - "*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 -- 2.39.2