comment-normalize-vars problem

[Richard.G.Bielawski]

I get the following error using comment-dwim in GNU Emacs 22.0.50.1
(i386-msvc-nt5.1.2600) of 2005-08-07 on LD1.

The mode defines these comment entities:

    (modify-syntax-entry ?\= ". 12" st)
    (modify-syntax-entry ?\n ">" st)
    (modify-syntax-entry ?\~ "/" st)

  (set (make-local-variable 'comment-start) "==")
  (set (make-local-variable 'comment-end) "\n")
  (set (make-local-variable 'comment-start-skip)
       "\\(\\(^\\|[^~\n]\\)\\(~~\\)*\\)== *")


Debugger entered--Lisp error: (args-out-of-range "" 0 1)
  substring("" 0 1)
  (regexp-quote (substring ce 0 1))
  (concat "[  ]*\\(\\s>" (if comment-quote-nested "" "+") "\\|"
(regexp-quote (substring ce 0 1)) (if (and comment-quote-nested ...) ""
"+") (regexp-quote (substring ce 1)) "\\)")
  (set (make-local-variable (quote comment-end-skip)) (concat "[
]*\\(\\s>" (if comment-quote-nested "" "+") "\\|" (regexp-quote ...) (if
... "" "+") (regexp-quote ...) "\\)"))
  (let ((ce ...)) (set (make-local-variable ...) (concat "[  ]*\\(\\s>"
... "\\|" ... ... ... "\\)")))
  (if (and comment-end-skip (string-match comment-end-skip comment-end))
nil (let (...) (set ... ...)))
  (unless (and comment-end-skip (string-match comment-end-skip
comment-end)) (let (...) (set ... ...)))
  (if (and (not comment-start) noerror) nil (unless comment-start (let
... ...)) (when (eq comment-use-syntax ...) (set ... ...)) (unless
comment-padding (setq comment-padding 0)) (when (integerp
comment-padding) (setq comment-padding ...)) (unless (or
comment-continue ...) (set ... ...)) (unless (and comment-start-skip
...) (set ... ...)) (unless (and comment-end-skip ...) (let ... ...)))
  (unless (and (not comment-start) noerror) (unless comment-start (let
... ...)) (when (eq comment-use-syntax ...) (set ... ...)) (unless
comment-padding (setq comment-padding 0)) (when (integerp
comment-padding) (setq comment-padding ...)) (unless (or
comment-continue ...) (set ... ...)) (unless (and comment-start-skip
...) (set ... ...)) (unless (and comment-end-skip ...) (let ... ...)))
  comment-normalize-vars()
  comment-dwim(nil)
  call-interactively(comment-dwim)




Richard Bielawski 
612-667-5039