Nick Dokos wrote:
> emacs version? org version? backtrace?
> I cannot reproduce with ...
>
Ok I thought the org-submit-bug takes care of all this. Find it is partly
true -- dont see emacs version in my report. So
GNU Emacs 23.4.1 (x86_64-pc-linux-gnu, GTK+ Version 2.24.12) of 2012-09-22
on allspice, modified by Debian
Org-mode version 8.0.3 (release_8.0.3-295-g91a4c8.dirty @
~/pdsw/org-mode-8/lisp/)
$ git pull
Already up-to-date.
$ make autoloads
$ make all done
Now I find the crash occurs between
org-export-preprocess-string and org-footnote-normalize
edebug messages attached
However the 'dirty' in may subject line (created by org-submit-bug) makes
me suspicious
Saving file /home/rusi/courses/vertis/withdebug.txt...
Wrote /home/rusi/courses/vertis/withdebug.txt
Quit
Making completion list... [3 times]
Quit
Type C-x 1 to delete the help window.
org-export-preprocess-string
help-follow: No cross-reference here
call-interactively: Command attempted to use minibuffer while in minibuffer [3
times]
Quit
org-footnote-normalize
Exporting...
progn: Wrong number of arguments: (lambda (&optional sort-only) "Collect the
footnotes in various formats and normalize them.
This finds the different sorts of footnotes allowed in Org, and
normalizes them to the usual [N] format.
When SORT-ONLY is set, only sort the footnote definitions into the
referenced sequence." (let* ((limit-level (and (boundp (quote
org-inlinetask-min-level)) org-inlinetask-min-level (1-
org-inlinetask-min-level))) (nstars (and limit-level (if org-odd-levels-only
(1- (* limit-level 2)) limit-level))) (org-outline-regexp (concat "\\*" (if
nstars (format "\\{1,%d\\} " nstars) "+ "))) (count 0) ins-point ref ref-table)
(save-excursion (goto-char (point-min)) (while (setq ref
(org-footnote-get-next-reference)) (let* ((lbl (car ref)) (pos (nth 1 ref)) (a
(and lbl (assoc lbl ref-table))) (marker (or (nth 1 a) (incf count))) (inlinep
(or (stringp (nth 3 ref)) (nth 3 a)))) (if sort-only (goto-char (nth 2 ref))
(delete-region (nth 1 ref) (nth 2 ref)) (goto-char (nth 1 ref)) (insert (format
"[%d]" marker)) (and inlinep org-footnote-fill-after-inline-note-extraction
(org-fill-paragraph))) (unless a (let ((def (or ... ...))) (push (list lbl
marker def inlinep (copy-marker pos)) ref-table))))) (cond ((and
org-footnote-section (derived-mode-p (quote org-mode))) (goto-char (point-min))
(if (re-search-forward (concat "^\\*[ ]+" (regexp-quote
org-footnote-section) "[ ]*$") nil t) (delete-region (match-beginning 0)
(org-end-of-subtree t t))) (goto-char (point-max)) (skip-chars-backward "
") (forward-line) (unless (bolp) (newline))) ((derived-mode-p (quote
org-mode))) (t (when org-footnote-tag-for-non-org-mode-files (let ((tag (concat
"^" ... "[ ]*$"))) (goto-char (point-min)) (while (re-search-forward
tag nil t) (replace-match "") (delete-region (point) (progn ... ...))))) (if
(and (derived-mode-p (quote message-mode)) (goto-char (point-max))
(re-search-backward message-signature-separator nil t)) (beginning-of-line)
(goto-char (point-max))))) (setq ins-point (point-marker)) (setq ref-table
(delq nil (mapcar (lambda (x) (cond ((and sort-only ...) (set-marker ... nil)
nil) ((not ...) (append ... ...)) (t x))) ref-table))) (setq ref-table
(nreverse ref-table)) (mapc (lambda (x) (unless (nth 3 x)
(org-footnote-delete-definitions (car x)))) ref-table) (goto-char ins-point)
(cond ((not ref-table)) ((or (not (derived-mode-p (quote org-mode)))
org-footnote-section) (if (not (derived-mode-p (quote org-mode))) (progn
(skip-chars-backward "
") (delete-region (point) ins-point) (unless (bolp) (newline)) (when
org-footnote-tag-for-non-org-mode-files (insert "
" org-footnote-tag-for-non-org-mode-files "
"))) (when (and (cdr (assq ... org-blank-before-new-entry)) (zerop
(save-excursion ...))) (insert "
")) (insert "* " org-footnote-section "
")) (set-marker ins-point nil) (insert (mapconcat (lambda (x) (set-marker (nth
4 x) nil) (format "
[%s] %s" (nth ... x) (nth 2 x))) ref-table "
")) (unless (eobp) (insert "
"))) (t (mapc (lambda (x) (let ((pos ...)) (goto-char pos) (set-marker pos
nil)) (org-footnote-goto-local-insertion-point) (insert (format "
[%s] %s
" (if sort-only ... ...) (nth 2 x)))) ref-table)))))), 2
Mark set
