> Uwe Brauer <[email protected]> writes: > Hi Uwe,
> Could you please try reproducing the error without having the reftex
> files byte-compiled? Finding an error in an unknown compiled function
> From reftex-toc.elc is a bit hard to do.
Ok, I did this. There are two types of error, I can detect so far:
- when running reftex-toc, there is an error which has to do with
the defcustom setting, GNU emacs allows 3, Xemacs only two
arguments. This is easy to repair, I attach the bug trace, but
don't start fixing it, because the second error looks much more serious:
- when running reftex-label or reftex-ref, there is an error
concerning regexp, this looks harder to fix.
Both bug traces are attached.
Uwe
Debugger entered--Lisp error: (invalid-regexp "Invalid regular expression")
re-search-forward("\\(?:\\\\label{\\(?1:[^}]*\\)}\\|\\[[^]]*\\<label[[:space:]]*=[[:space:]]*{?\\(?1:[^],}]+\\)}?\\)\\|\\(^\\)[
]*\\\\\\(begin{SaveListing}\\|part\\|chapter\\|section\\|subsection\\|subsubsection\\|paragraph\\|subparagraph\\|addchap\\|addsec\\)\\*?\\(\\[[^]]*\\]\\)?[[{
\n\\]\\|\\(^\\)[ ]*\\\\\\(include\\|input\\|subfile\\)[{
]+\\([^} \n
]+\\)\\|\\(^\\)[
]*\\(\\\\appendix\\)\\|\\(\\\\glossary\\|\\\\index\\|\\\\nomenclature\\)[[{]"
nil t)
(while (re-search-forward regexp nil t) (cond (... ...) (... ... ... ... ...)
(... ... ...) (... ... ...) (... ...) (... ...) (t ...)))
(save-restriction (widen) (goto-char 1) (while (re-search-forward regexp nil
t) (cond ... ... ... ... ... ... ...)) (when (setq tmp ...) (push ...
docstruct)) (goto-char 1) (when (re-search-forward "\\(\\`\\|[\n
]\\)[ ]*\\\\begin{thebibliography}" nil t) (push ... docstruct)) (goto-char
1) (while (re-search-forward "[\n
][ ]*\\\\externaldocument\\(\\[\\([^]]*\\)\\]\\)?{\\([^}]+\\)}" nil t)
(push ... docstruct)) (push (list ... file) docstruct))
(save-excursion (save-restriction (widen) (goto-char 1) (while ... ...) (when
... ...) (goto-char 1) (when ... ...) (goto-char 1) (while ... ...) (push ...
docstruct)))
(let ((case-fold-search nil)) (save-excursion (save-restriction ... ... ...
... ... ... ... ... ...)))
(progn (set-syntax-table reftex-syntax-table) (let (...) (save-excursion
...)))
(unwind-protect (progn (set-syntax-table reftex-syntax-table) (let ... ...))
(set-syntax-table saved-syntax))
(let ((saved-syntax ...)) (unwind-protect (progn ... ...) (set-syntax-table
saved-syntax)))
(reftex-with-special-syntax (save-excursion (save-restriction ... ... ... ...
... ... ... ... ...)))
(save-excursion (message "Scanning file %s" file) (set-buffer (setq next-buf
...)) (setq file (buffer-file-name)) (push (list ... file) docstruct)
(reftex-with-special-syntax (save-excursion ...)))
(catch (quote exit) (setq file-found (reftex-locate-file file "tex"
master-dir)) (if (and ... ...) (setq file-found ...)) (unless file-found (push
... docstruct) (throw ... nil)) (save-excursion (message "Scanning file %s"
file) (set-buffer ...) (setq file ...) (push ... docstruct)
(reftex-with-special-syntax ...)) (reftex-kill-temporary-buffers next-buf))
(let ((regexp ...) (bound 0) file-found tmp include-file (level 1)
(highest-level 100) toc-entry index-entry next-buf buf) (catch (quote exit)
(setq file-found ...) (if ... ...) (unless file-found ... ...) (save-excursion
... ... ... ... ...) (reftex-kill-temporary-buffers next-buf)) docstruct)
reftex-parse-from-file("/home/oub/ALLES/Karp/Static-Solutions/EulerPoisson_Uwe/proto-euler-poisson-banach.tex"
nil "/home/oub/ALLES/Karp/Static-Solutions/EulerPoisson_Uwe/")
(setq docstruct (reftex-parse-from-file from-file docstruct master-dir))
(unwind-protect (setq docstruct (reftex-parse-from-file from-file docstruct
master-dir)) (reftex-kill-temporary-buffers))
(save-excursion (unwind-protect (setq docstruct ...)
(reftex-kill-temporary-buffers)))
(progn (save-excursion (unwind-protect ... ...)))
(unwind-protect (progn (save-excursion ...)) (set-window-configuration
#:G85164))
(let ((#:G85164 ...)) (unwind-protect (progn ...) (set-window-configuration
#:G85164)))
(save-window-excursion (save-excursion (unwind-protect ... ...)))
(let ((case-fold-search nil)) (save-window-excursion (save-excursion ...)))
(progn (set-syntax-table reftex-syntax-table) (let (...)
(save-window-excursion ...)))
(unwind-protect (progn (set-syntax-table reftex-syntax-table) (let ... ...))
(set-syntax-table saved-syntax))
(let ((saved-syntax ...)) (unwind-protect (progn ... ...) (set-syntax-table
saved-syntax)))
(reftex-with-special-syntax (save-window-excursion (save-excursion ...)))
(let* ((old-list ...) (master ...) (true-master ...) (master-dir ...) (file
...) (true-file ...) (bibview-cache ...) (index-tags ...) from-file appendix
docstruct tmp) (when (and ... ...) (setq rescan 1)) (when (string= true-file
true-master) (setq rescan 1)) (setq from-file (cond ... ... ...)) (if (equal
rescan 1) (setq index-tags nil)) (setq reftex-active-toc
(reftex-last-assoc-before-elt ... ... old-list) appendix
(reftex-last-assoc-before-elt ... ... old-list)) (reftex-init-section-numbers
reftex-active-toc appendix) (if (eq rescan 1) (message "Scanning entire
document...") (message "Scanning document from %s..." from-file))
(reftex-with-special-syntax (save-window-excursion ...)) (message "Scanning
document... done") (setq docstruct (nreverse docstruct)) (setq docstruct
(reftex-replace-label-list-segment old-list docstruct ...)) (unless (assq ...
docstruct) (push ... docstruct)) (unless (assq ... docstruct) (push ...
docstruct)) (unless (assq ... docstruct) (push ... docstruct)) (let* (... ...
... ...) (setcdr entry ...)) (and index-tags (setq index-tags ...)) (let (...)
(if index-tag-cell ... ...)) (unless (assq ... docstruct) (let* ... ...)) (set
reftex-docstruct-symbol docstruct) (put reftex-docstruct-symbol (quote
modified) t))
reftex-do-parse(1 nil)
(cond ((equal rescan -1)) ((not ...) (reftex-do-parse 1 file)) ((member
rescan ...) (reftex-do-parse rescan file)))
reftex-access-scan-info(nil)
(lambda (&optional type no-insert cut) "Make a LaTeX reference. Look only
for labels of a certain TYPE.\nWith prefix arg, force to rescan buffer for
labels. This should only be\nnecessary if you have recently entered labels
yourself without using\nreftex-label. Rescanning of the buffer can also be
requested from the\nlabel selection menu.\nThe function returns the selected
label or nil.\nIf NO-INSERT is non-nil, do not insert \\ref command, just
return label.\nWhen called with 2 C-u prefix args, disable magic word
recognition." (interactive) (reftex-check-recursive-edit)
(reftex-access-scan-info current-prefix-arg) (let (... ... ... label labels sep
sep1 style-alist) (unless reftex-refstyle ...) (unless type ...) (set-marker
reftex-select-return-marker ...) (setq labels ...)
(reftex-ensure-compiled-variables) (set-marker reftex-select-return-marker nil)
(if ... ...) (setq type ... form ...) (cond ... ... ...)))()
call-interactively(reftex-reference)
recursive-edit()
byte-code("..." [buffer-read-only noninteractive debugger-buffer middlestart
debugger-args debugger-batch-max-lines pop-to-buffer debugger-mode
debugger-setup-buffer count-lines 2 "...\n" message buffer-string kill-emacs
debug backtrace-debug 3 t debugger-reenable "" nil recursive-edit
standard-output] 3)
debug(error (wrong-number-of-arguments define-obsolete-variable-alias 3))
define-obsolete-variable-alias(reftex-toc-map reftex-toc-mode-map "24.1")
load-internal("reftex-toc" nil nil nil undecided)
load("reftex-toc" nil nil nil)
apply(load ("reftex-toc" nil nil nil))
dired-handler-fn(load "reftex-toc" nil nil nil)
load("reftex-toc" nil nil nil)
Debugger entered--Lisp error: (wrong-number-of-arguments
define-obsolete-variable-alias 3)
define-obsolete-variable-alias(reftex-toc-map reftex-toc-mode-map "24.1")
load-internal("reftex-toc" nil nil nil undecided)
load("reftex-toc" nil nil nil)
apply(load ("reftex-toc" nil nil nil))
dired-handler-fn(load "reftex-toc" nil nil nil)
load("reftex-toc" nil nil nil)
smime.p7s
Description: S/MIME cryptographic signature
_______________________________________________ bug-auctex mailing list [email protected] https://lists.gnu.org/mailman/listinfo/bug-auctex
