[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Backtrace from texinfo-insert-quote
From: |
Jesper Harder |
Subject: |
Backtrace from texinfo-insert-quote |
Date: |
Sat, 07 Jun 2003 04:29:23 +0200 |
User-agent: |
Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50 (gnu/linux) |
In GNU Emacs 21.3.50.109 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2003-06-06 on defun.localdomain
Hi!
I get this backtrace from pressing " in texinfo-mode:
Debugger entered--Lisp error: (wrong-type-argument stringp
("@\\(code\\|samp\\|kbd\\)\\>"))
looking-at(("@\\(code\\|samp\\|kbd\\)\\>"))
(save-excursion (backward-sexp 1) (looking-at macro))
(condition-case nil (save-excursion (backward-sexp 1) (looking-at macro))
(scan-error nil))
(not (condition-case nil (save-excursion ... ...) (scan-error nil)))
(progn (up-list -1) (not (condition-case nil ... ...)))
(while (progn (up-list -1) (not ...)))
(save-restriction (narrow-to-region bound (point)) (while (progn ... ...)) t)
(save-excursion (save-restriction (narrow-to-region bound ...) (while ...) t))
(condition-case nil (save-excursion (save-restriction ... ... t)) (scan-error
nil))
texinfo-inside-macro-p(("@\\(code\\|samp\\|kbd\\)\\>") 1)
(or arg (= (preceding-char) 92) (save-excursion (backward-char ...) (when ...
... t)) (texinfo-inside-macro-p texinfo-enable-quote-macros top) (let (...)
(dolist ... ...)))
(if (or arg (= ... 92) (save-excursion ... ...) (texinfo-inside-macro-p
texinfo-enable-quote-macros top) (let ... ...)) (self-insert-command
(prefix-numeric-value arg)) (insert (if ... texinfo-open-quote
texinfo-close-quote)))
(let ((top ...)) (if (or arg ... ... ... ...) (self-insert-command ...)
(insert ...)))
texinfo-insert-quote(nil)
call-interactively(texinfo-insert-quote)
Steps to reproduce:
1. Insert these lines in an empty buffer and enter texinfo-mode:
layout (the @code{nnspool} back end accesses news via the common
spool directory format, the @code{nnml} back end access mail via a
2. Place point at the beginning of the second line, and press ".
I think the problem is that `texinfo-enable-quote-macros' should be a
string rather than a list, i.e.
diff -c /home/harder/emacs/lisp/textmodes/texinfo.el /home/harder/texinfo.el
*** /home/harder/emacs/lisp/textmodes/texinfo.el Sat Mar 15 20:52:53 2003
--- /home/harder/texinfo.el Sat Jun 7 04:26:49 2003
***************
*** 666,672 ****
(and (re-search-backward (concat "@\\(end\\s +\\)?" env) bound t)
(not (match-end 1)))))
! (defvar texinfo-enable-quote-macros '("@\\(code\\|samp\\|kbd\\)\\>"))
(defvar texinfo-enable-quote-envs '("example\\>" "lisp\\>"))
(defun texinfo-insert-quote (&optional arg)
"Insert the appropriate quote mark for TeXinfo.
--- 666,672 ----
(and (re-search-backward (concat "@\\(end\\s +\\)?" env) bound t)
(not (match-end 1)))))
! (defvar texinfo-enable-quote-macros "@\\(code\\|samp\\|kbd\\)\\>")
(defvar texinfo-enable-quote-envs '("example\\>" "lisp\\>"))
(defun texinfo-insert-quote (&optional arg)
"Insert the appropriate quote mark for TeXinfo.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Backtrace from texinfo-insert-quote,
Jesper Harder <=