emacs-pretest-bug
[Top][All Lists]
Advanced

[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.






reply via email to

[Prev in Thread] Current Thread [Next in Thread]