[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
sgml-mode.el: wrong-type-argument
From: |
Felix Natter |
Subject: |
sgml-mode.el: wrong-type-argument |
Date: |
Sun, 28 Mar 2004 13:46:32 +0200 |
User-agent: |
Gnus/5.1002 (Gnus v5.10.2) Emacs/21.2 (gnu/linux) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- sgml-mode.el: wrong-type-argument,
Felix Natter <=