Commit d17f0db5 authored by Dave Love's avatar Dave Love
Browse files

Small doc fixes.

(scheme-mode-variables): Don't make imenu-generic-expression
buffer-local redundantly.
parent 35079221
......@@ -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 @@ All commands in `shared-lisp-mode-map' are inherited by this map.")
;;;###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 @@ Commands:
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 @@ Set this to nil if you normally use another dialect."
"
"*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 @@ See `run-hooks'."
;; 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 @@ See `run-hooks'."
;; (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 @@ See `run-hooks'."
;;;###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 @@ that variable's value is a string."
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment