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