changeset 26938:0f38ebc510d3

Small doc fixes. (scheme-mode-variables): Don't make imenu-generic-expression buffer-local redundantly.

--- a/lisp/progmodes/scheme.el	Sat Dec 18 16:36:31 1999 +0000
+++ b/lisp/progmodes/scheme.el	Sat Dec 18 16:47:43 1999 +0000
@@ -53,7 +53,7 @@
 
 (require 'lisp-mode)
 
-(defvar scheme-mode-syntax-table nil "")
+(defvar scheme-mode-syntax-table nil)
 (if (not scheme-mode-syntax-table)
     (let ((i 0))
       (setq scheme-mode-syntax-table (make-syntax-table))
@@ -107,13 +107,13 @@
       (modify-syntax-entry ?# "_ p14")
       (modify-syntax-entry ?\\ "\\   ")))
 
-(defvar scheme-mode-abbrev-table nil "")
+(defvar scheme-mode-abbrev-table nil)
 (define-abbrev-table 'scheme-mode-abbrev-table ())
 
 (defvar scheme-imenu-generic-expression
-      '((nil 
+      '((nil
 	 "^(define\\(\\|-\\(generic\\(\\|-procedure\\)\\|method\\)\\)*\\s-+(?\\(\\sw+\\)" 4)
-	("Types" 
+	("Types"
 	 "^(define-class\\s-+(?\\(\\sw+\\)" 1)
 	("Macros"
 	 "^(\\(defmacro\\|define-macro\\|define-syntax\\)\\s-+(?\\(\\sw+\\)" 2))
@@ -160,11 +160,10 @@
   (setq mode-line-process '("" scheme-mode-line-process))
   (make-local-variable 'imenu-case-fold-search)
   (setq imenu-case-fold-search t)
-  (make-local-variable 'imenu-generic-expression)
   (setq imenu-generic-expression scheme-imenu-generic-expression)
   (make-local-variable 'imenu-syntax-alist)
   (setq imenu-syntax-alist '(("+-*/.<>=?!$%_&~^:" . "w")))
-  (make-local-variable 'font-lock-defaults)  
+  (make-local-variable 'font-lock-defaults)
   (setq font-lock-defaults
         '((scheme-font-lock-keywords
            scheme-font-lock-keywords-1 scheme-font-lock-keywords-2)
@@ -206,7 +205,7 @@
 ;;;###autoload
 (defun scheme-mode ()
   "Major mode for editing Scheme code.
-Editing commands are similar to those of lisp-mode.
+Editing commands are similar to those of `lisp-mode'.
 
 In addition, if an inferior Scheme process is running, some additional
 commands will be defined, for evaluating expressions and controlling
@@ -219,7 +218,7 @@
 Delete converts tabs to spaces as it moves back.
 Blank lines separate paragraphs.  Semicolons start comments.
 \\{scheme-mode-map}
-Entry to this mode calls the value of scheme-mode-hook
+Entry to this mode calls the value of `scheme-mode-hook'
 if that value is non-nil."
   (interactive)
   (kill-all-local-variables)
@@ -247,20 +246,20 @@
 "
   "*An SGML declaration for the DSSSL file.
 If it is defined as a string this will be inserted into an empty buffer
-which is in dsssl-mode.  It is typically James Clark's style-sheet
+which is in `dsssl-mode'.  It is typically James Clark's style-sheet
 doctype, as required for Jade."
-  :type '(choice (string :tag "Specified string") 
+  :type '(choice (string :tag "Specified string")
                  (const :tag "None" :value nil))
   :group 'scheme)
 
 (defcustom scheme-mode-hook nil
-  "Normal hook (list of functions) run when entering scheme-mode.
+  "Normal hook run when entering `scheme-mode'.
 See `run-hooks'."
   :type 'hook
   :group 'scheme)
 
 (defcustom dsssl-mode-hook nil
-  "Normal hook (list of functions) run when entering dsssl-mode.
+  "Normal hook run when entering `dsssl-mode'.
 See `run-hooks'."
   :type 'hook
   :group 'scheme)
@@ -270,7 +269,7 @@
   ;; not sure it's the best way to organize it; perhaps one type
   ;; should be at the first level, though you don't see this anyhow if
   ;; it gets split up.
-  '(("Defines" 
+  '(("Defines"
      "^(define\\s-+(?\\(\\sw+\\)" 1)
     ("Modes"
      "^\\s-*(mode\\s-+\\(\\(\\sw\\|\\s-\\)+\\)" 1)
@@ -278,7 +277,7 @@
      ;; (element foo ...) or (element (foo bar ...) ...)
      ;; Fixme: Perhaps it should do `root'.
      "^\\s-*(element\\s-+(?\\(\\(\\sw\\|\\s-\\)+\\))?" 1)
-    ("Declarations" 
+    ("Declarations"
      "^(declare\\(-\\sw+\\)+\\>\\s-+\\(\\sw+\\)" 2))
   "Imenu generic expression for DSSSL mode.  See `imenu-generic-expression'.")
 
@@ -343,7 +342,7 @@
 ;;;###autoload
 (defun dsssl-mode ()
   "Major mode for editing DSSSL code.
-Editing commands are similar to those of lisp-mode.
+Editing commands are similar to those of `lisp-mode'.
 
 Commands:
 Delete converts tabs to spaces as it moves back.
@@ -461,7 +460,7 @@
   (not (string-equal (substring string 0 1) "(")))
 
 (defun next-sexp-as-string ()
-  ;; Assumes that protected by a save-excursion
+  ;; Assumes that it is protected by a save-excursion
   (forward-sexp 1)
   (let ((the-end (point)))
     (backward-sexp 1)