[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
sml-mode error
From: |
jhb9149 |
Subject: |
sml-mode error |
Date: |
9 Sep 2002 17:44:30 -0700 |
Hi,
I get the error file mode specification error: (void variable
bad-style-face) while trying to open a sml program. I am running
xemacs 21.1 on windows 2000 machine. Can anyone help me? Oh, and
below is the traceback.
-Jaime
Signaling: (void-variable bad-style-face)
eval(bad-style-face)
(let ((matcher ...) (lowdarks ...) highlights (pre-match-value ...))
(if (and ... ...) (setq limit pre-match-value) (save-excursion ...
...)) (save-match-data (while ... ... ...)) (eval (nth 2 keywords)))
)
font-lock-fontify-anchored-keywords((quote bad-style-face) 2665)
(if (numberp (car ...)) (let (...) (font-lock-apply-highlight ...)
(and end ...)) (font-lock-fontify-anchored-keywords (car highlights)
end))
)
(while highlights (if (numberp ...) (let ... ... ...)
(font-lock-fontify-anchored-keywords ... end)) (setq highlights (cdr
highlights)))
)
(while (and (< ... end) (if ... ... ...)) (setq highlights (cdr
keyword)) (while highlights (if ... ... ...) (setq highlights ...)))
)
(while keywords (when loudly (lmessage ... "Fontifying %s...
(regexps..%s)" bufname ...)) (setq keyword (car keywords) matcher (car
keyword)) (goto-char start) (while (and ... ...) (setq highlights ...)
(while highlights ... ...)) (setq keywords (cdr keywords)))
)
(let ((case-fold-search font-lock-keywords-case-fold-search)
(keywords ...) (bufname ...) (count 0) keyword matcher highlights)
(while keywords (when loudly ...) (setq keyword ... matcher ...)
(goto-char start) (while ... ... ...) (setq keywords ...)))
)
(let ((loudly ...)) (let (... ... ... ... keyword matcher
highlights) (while keywords ... ... ... ... ...)) (if loudly (lmessage
... "Fontifying %s... done." ...)))
)
font-lock-fontify-keywords-region(1 2665 nil)
(progn (if font-lock-syntax-table (set-syntax-table
font-lock-syntax-table)) (if font-lock-keywords-only
(font-lock-unfontify-region beg end)
(font-lock-fontify-syntactically-region beg end loudly))
(font-lock-fontify-keywords-region beg end loudly))
)
(unwind-protect (progn (if font-lock-syntax-table ...) (if
font-lock-keywords-only ... ...) (font-lock-fontify-keywords-region
beg end loudly)) (set-syntax-table old-syntax-table) (and (not
modified) (buffer-modified-p) (set-buffer-modified-p nil)))
)
(let ((modified ...) (buffer-undo-list t) (inhibit-read-only t)
(old-syntax-table ...) buffer-file-name buffer-file-truename)
(unwind-protect (progn ... ... ...) (set-syntax-table
old-syntax-table) (and ... ... ...)))
)
font-lock-default-fontify-region(1 2665 nil)
funcall(font-lock-default-fontify-region 1 2665 nil)
font-lock-fontify-region(1 2665)
(save-excursion (font-lock-fontify-region (point-min) (point-max)))
)
(condition-case nil (save-excursion (font-lock-fontify-region ...
...)) (quit (setq aborted t)))
)
(let ((was-on font-lock-mode) (font-lock-verbose ...)
(font-lock-message-threshold 0) (aborted nil)) (or was-on
(font-lock-mode 1)) (font-lock-unfontify-region (point-min)
(point-max) t) (condition-case nil (save-excursion ...) (quit ...))
(or was-on (let ... ...)) (set (make-local-variable ...) t) (when (and
aborted font-lock-verbose) (lmessage ... "Fontifying %s... aborted."
...)))
)
font-lock-default-fontify-buffer()
funcall(font-lock-default-fontify-buffer)
(let ((font-lock-verbose ...)) (funcall
font-lock-fontify-buffer-function))
)
font-lock-fontify-buffer()
(cond (font-lock-fontified nil) ((or ... ...)
(font-lock-fontify-buffer)) (font-lock-verbose (lmessage ...
"Fontifying %s... buffer too big." ...)))
)
(cond (on-p (font-lock-set-defaults-1) (make-local-hook ...)
(make-local-hook ...) (add-hook ... ... nil t) (add-hook ... ... nil
t) (run-hooks ...) (cond ... ... ...)) (font-lock-fontified (setq
font-lock-fontified nil) (remove-hook ... ... t) (remove-hook ... ...
t) (font-lock-unfontify-region ... ...)
(font-lock-thing-lock-cleanup)) (t (remove-hook ... ... t)
(remove-hook ... ... t) (font-lock-thing-lock-cleanup)))
)
(let ((on-p ...) (maximum-size ...)) (if (or noninteractive ...)
(setq on-p nil)) (if (equal ... " *Compiler Input*") (setq on-p nil))
(cond (on-p ... ... ...) (t ... ...)) (set (make-local-variable ...)
on-p) (cond (on-p ... ... ... ... ... ... ...) (font-lock-fontified
... ... ... ... ...) (t ... ... ...)) (redraw-modeline))
)
font-lock-mode(1)
turn-on-font-lock()
(and sml-font-lock-auto-on (turn-on-font-lock))
)
sml-font-lock-setup()
run-hooks(sml-font-lock-setup)
(lambda nil "Major mode for editing ML code.\nTab indents for ML
code.\nComments are delimited with (* ... *).\nBlank lines and
form-feeds separate paragraphs.\nDelete converts tabs to spaces as it
moves back.\n\nFor information on running an inferior ML process, see
the documentation\nfor inferior-sml-mode (set this up with
\\[sml]).\n\nCustomisation: Entry to this mode runs the hooks on
sml-mode-hook.\n\nVariables controlling the
indentation\n=====================================\n\nSeek help
(\\[describe-variable]) on individual variables to get current
settings.\n\nsml-indent-level (default 4)\n The indentation of a
block of code.\n\nsml-pipe-indent (default -2)\n Extra indentation
of a line starting with \"|\".\n\nsml-case-indent (default nil)\n
Determine the way to indent case-of
expression.\n\nsml-nested-if-indent (default nil)\n Determine how
nested if-then-else expressions are formatted.\n\nsml-type-of-indent
(default t)\n How to indent let, struct, local, etc.\n Will not
have any effect if the starting keyword is first on the
line.\n\nsml-electric-semi-mode (default nil)\n If t, a `;' will
reindent line, and perform a newline.\n\nsml-paren-lookback (default
1000)\n Determines how far back (in chars) the indentation
algorithm should \n look to match parenthesis. A value of nil,
means do not look at all.\n\nMode map\n========\n\\{sml-mode-map}"
(interactive) (kill-all-local-variables) (sml-mode-variables)
(use-local-map sml-mode-map) (setq major-mode (quote sml-mode)) (setq
mode-name "SML") (run-hooks (quote sml-mode-hook)))()
call-interactively(sml-mode)
command-execute(sml-mode t)
execute-extended-command(nil)
call-interactively(execute-extended-command
- sml-mode error,
jhb9149 <=