sgml-mode.el: wrong-type-argument

[Felix Natter]

In GNU Emacs 21.2.1 (i386-debian-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2002-03-22 on raven, modified by Debian
configured using `configure  i386-debian-linux-gnu --prefix=/usr 
--sharedstatedir=/var/lib --libexecdir=/usr/lib --localstatedir=/var/lib 
--infodir=/usr/share/info --mandir=/usr/share/man --with-pop=yes --with-x=yes 
--with-x-toolkit=athena --without-gif'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

I am using sgml-mode.el from cvs:
http://savannah.gnu.org/cgi-bin/viewcvs/*checkout*/emacs/emacs/lisp/textmodes/sgml-mode.el?rev=HEAD&content-type=text/plain

in this file:
<?xml version="1.0"?>

<root>

  <!-- apply templates based on whether it's
-->
  <!-- don't sort the top-level topics -->

</root>

put point before the first "-->" and indent.


Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  >(34 nil)
  (and (not unclosed) (skip-chars-backward "    ") (< (skip-chars-backward "    
\n") 0) (back-to-indentation) (> (point) (cdr lcon)))
  (if (and (not unclosed) (skip-chars-backward "        ") (< ... 0) 
(back-to-indentation) (> ... ...)) nil (goto-char here) (nreverse 
(sgml-get-context ...)))
  (let* ((here ...) (unclosed ...) (context ...) (there ...)) (while (and 
context unclosed ...) (setq context ...)) (cond (... ... ...) (... ...) (t ... 
...)))
  (cond ((eql ... ...) (while ...) (if ... ... ... ...)) ((eql ... ...) (let 
... ... ... ... ...)) ((eql ... ...) nil) ((eql ... ...) (goto-char ...) 
(skip-chars-forward "^    \n") (skip-chars-forward "      ") (if ... ... ... 
...)) ((eql ... ...) (while ... ... ...) (let* ... ... ...)) (t (error 
"Unrecognised context %s" ...)))
  (case (car lcon) (string (while ...) (if ... ... ... ...)) (comment (let ... 
... ... ... ...)) (cdata nil) (tag (goto-char ...) (skip-chars-forward "^       
 \n") (skip-chars-forward "      ") (if ... ... ... ...)) (text (while ... ... 
...) (let* ... ... ...)) (otherwise (error "Unrecognised context %s" ...)))
  sgml-calculate-indent()
  (save-excursion (back-to-indentation) (if (>= ... savep) (setq savep nil)) 
(sgml-calculate-indent))
  (let* ((savep ...) (indent-col ...)) (if (null indent-col) (quote noindent) 
(if savep ... ...)))
  sgml-indent-line()
  indent-for-tab-command(nil)
  call-interactively(indent-for-tab-command)

Please tell me if I can (try to) help with this.
thanks,

-- 
Felix Natter
C-x C-s the_world.tex