[LibreOffice] (void-variable org-line)

[LibreOffice] (void-variable org-line)

[Sebastien Vauban]

Hello,

When trying to export to LibreOffice, I get this error message:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (void-variable org-line)
  (string-match "^ORG-\\(.*\\)-\\(START\\|END\\)$" org-line)
  (if (string-match "^ORG-\\(.*\\)-\\(START\\|END\\)$" org-line) (progn (message "%s" (match-string 1)) (when (equal (match-string 2 org-line) "START") (org-close-par-maybe) (insert "\n<div class=\"" (match-string 1 org-line) "\">") (org-open-par)) (when (equal (match-string 2 org-line) "END") (org-close-par-maybe) (insert "\n</div>") (org-open-par)) (throw (quote nextline) nil)))
  (when (string-match "^ORG-\\(.*\\)-\\(START\\|END\\)$" org-line) (message "%s" (match-string 1)) (when (equal (match-string 2 org-line) "START") (org-close-par-maybe) (insert "\n<div class=\"" (match-string 1 org-line) "\">") (org-open-par)) (when (equal (match-string 2 org-line) "END") (org-close-par-maybe) (insert "\n</div>") (org-open-par)) (throw (quote nextline) nil))
  org-special-blocks-convert-html-special-cookies()
  run-hooks(org-export-html-after-blockquotes-hook)
  (catch (quote nextline) (when (and (org-lparse-current-environment-p (quote quote)) (string-match org-outline-regexp-bol line)) (org-lparse-end-environment (quote quote))) (when (org-lparse-current-environment-p (quote quote)) (org-lparse-insert (quote LINE) line) (throw (quote nextline) nil)) (when (and org-export-with-fixed-width (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" line)) (when (not (org-lparse-current-environment-p (quote fixedwidth))) (org-lparse-begin-environment (quote fixedwidth))) (org-lparse-insert (quote LINE) (match-string 3 line)) (when (or (not lines) (not (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" (car lines)))) (org-lparse-end-environment (quote fixedwidth))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-native-text) line) (not (< (or (next-single-property-change 0 (quote org-native-text) line) 10000) (length line)))) (let ((ind (get-text-property 0 (quote original-indentation) line))) (org-lparse-begin-environment (quote native)) (org-lparse-insert (quote LINE) line) (while (and lines (or (= (length ...) 0) (not ind) (equal ind (get-text-property 0 ... ...))) (or (= (length ...) 0) (get-text-property 0 (quote org-native-text) (car lines)))) (org-lparse-insert (quote LINE) (pop lines))) (org-lparse-end-environment (quote native))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-protected) line) (not (< (or (next-single-property-change 0 (quote org-protected) line) 10000) (length line)))) (let ((ind (get-text-property 0 (quote original-indentation) line))) (org-lparse-insert (quote LINE) line) (while (and lines (or (= (length ...) 0) (not ind) (equal ind (get-text-property 0 ... ...))) (or (= (length ...) 0) (get-text-property 0 (quote org-protected) (car lines)))) (org-lparse-insert (quote LINE) (pop lines)))) (throw (quote nextline) nil)) (when (string-match "^ORG-\\(.+\\)-\\(START\\|END\\)\\([ 	]+.*\\)?$" line) (let* ((style (intern (downcase (match-string 1 line)))) (env-options-plist (org-lparse-get-block-params (match-string 3 line))) (f (cdr (assoc (match-string 2 line) (quote ...))))) (when (memq style (append (quote (blockquote verse center)) (mapcar (quote intern) org-lparse-special-blocks))) (funcall f style env-options-plist) (throw (quote nextline) nil)))) (run-hooks (quote org-export-html-after-blockquotes-hook)) (when (org-lparse-current-environment-p (quote verse)) (let ((i (org-get-string-indentation line))) (if (> i 0) (setq line (concat (let (...) (org-lparse-format ... ...)) " " (org-trim line)))) (unless (string-match "\\\\\\\\[ 	]*$" line) (setq line (concat line "\\\\"))))) (setq start 0) (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ 	]*\n?" line start) (cond ((get-text-property (match-beginning 1) (quote org-protected) line) (setq start (match-end 1))) ((match-end 2) (setq line (replace-match (let (...) (org-lparse-format ... "" ...)) t t line))) ((and org-export-with-toc (equal (string-to-char line) 42)) (setq line (replace-match (let (...) (org-lparse-format ... ... "target")) t t line))) (t (setq line (replace-match (concat (let ... ...) " ") t t line))))) (let ((org-lparse-encode-pending t)) (setq line (org-lparse-handle-time-stamps line))) (or (string-match org-table-hline-regexp line) (string-match "^[ 	]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ 	]*$" line) (setq line (org-xml-encode-org-text-skip-links line))) (setq line (org-lparse-format-org-link line opt-plist)) (if (and org-todo-line-regexp (string-match org-todo-line-regexp line) (match-beginning 2)) (setq line (concat (substring line 0 (match-beginning 2)) (org-lparse-format (quote TODO) (match-string 2 line)) (substring line (match-end 2))))) (when org-export-with-footnotes (setq start 0) (while (string-match "\\([^* 	].*?\\)[ 	]*\\[\\([0-9]+\\)\\]" line start) (if (or (get-text-property (match-beginning 2) (quote org-protected) line) (not (get-text-property (match-beginning 2) (quote org-footnote) line))) (setq start (match-end 2)) (let ((n (match-string 2 line)) refcnt a) (if (setq a (assoc n footref-seen)) (progn (setcdr a ...) (setq refcnt ...)) (setq refcnt 1) (push (cons n 1) footref-seen)) (setq line (replace-match (concat ... ... ...) t t line)))))) (cond ((string-match "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ 	]*$" line) (setq level (org-tr-level (- (match-end 1) (match-beginning 1) level-offset)) txt (match-string 2 line)) (if (string-match quote-re0 txt) (setq txt (replace-match "" t t txt))) (if (<= level (max umax umax-toc)) (setq head-count (+ head-count 1))) (unless org-lparse-dyn-first-heading-pos (setq org-lparse-dyn-first-heading-pos (point))) (org-lparse-begin-level level txt umax head-count) (when (string-match quote-re line) (org-lparse-begin-environment (quote quote)))) ((and org-export-with-tables (string-match "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" line)) (when (not table-open) (setq table-open t table-buffer nil table-orig-buffer nil)) (setq table-buffer (cons line table-buffer) table-orig-buffer (cons origline table-orig-buffer)) (when (or (not lines) (not (string-match "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" (car lines)))) (setq table-open nil table-buffer (nreverse table-buffer) table-orig-buffer (nreverse table-orig-buffer)) (org-lparse-end-paragraph) (when org-lparse-list-table-p (error "Regular tables are not allowed in a list-table block")) (org-lparse-insert (quote TABLE) table-buffer table-orig-buffer))) (t (when (get-text-property 0 (quote list-item) line) (setq line (org-lparse-export-list-line line (get-text-property 0 (quote list-item) line) (get-text-property 0 (quote list-struct) line) (get-text-property 0 (quote list-prevs) line)))) (when (string-match "^[ 	]*-\\{5,\\}[ 	]*$" line) (with-org-lparse-preserve-paragraph-state (org-lparse-insert (quote HORIZONTAL-LINE))) (throw (quote nextline) nil)) (when (string-match "^ [-+*]-\\|^[ 	]*$" line) (when org-lparse-footnote-number (org-lparse-end-footnote-definition org-lparse-footnote-number) (setq org-lparse-footnote-number nil)) (org-lparse-begin-paragraph)) (when org-export-with-footnotes (when (and (boundp (quote footnote-section-tag-regexp)) (string-match (concat "^" footnote-section-tag-regexp) line)) (throw (quote nextline) nil)) (when (string-match "^[ 	]*\\[\\([0-9]+\\)\\]" line) (org-lparse-end-paragraph) (setq org-lparse-footnote-number (match-string 1 line)) (setq line (replace-match "" t t line)) (org-lparse-begin-footnote-definition org-lparse-footnote-number))) (cond ((string-match "\\\\\\\\[ 	]*$" line) (setq line (replace-match (org-lparse-format ...) t t line))) (org-export-preserve-breaks (setq line (concat line (org-lparse-format ...))))) (let ((start 0)) (while (and org-lparse-par-open (string-match "\\\\par\\>" line start)) (error "FIXME") (if (not (get-text-property ... ... line)) (setq line (replace-match "</p ><p >" t t line))) (setq start (match-end 0)))) (org-lparse-insert (quote LINE) line))))
  (while (setq line (pop lines) origline line) (catch (quote nextline) (when (and (org-lparse-current-environment-p (quote quote)) (string-match org-outline-regexp-bol line)) (org-lparse-end-environment (quote quote))) (when (org-lparse-current-environment-p (quote quote)) (org-lparse-insert (quote LINE) line) (throw (quote nextline) nil)) (when (and org-export-with-fixed-width (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" line)) (when (not (org-lparse-current-environment-p (quote fixedwidth))) (org-lparse-begin-environment (quote fixedwidth))) (org-lparse-insert (quote LINE) (match-string 3 line)) (when (or (not lines) (not (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" (car lines)))) (org-lparse-end-environment (quote fixedwidth))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-native-text) line) (not (< (or (next-single-property-change 0 ... line) 10000) (length line)))) (let ((ind (get-text-property 0 (quote original-indentation) line))) (org-lparse-begin-environment (quote native)) (org-lparse-insert (quote LINE) line) (while (and lines (or (= ... 0) (not ind) (equal ind ...)) (or (= ... 0) (get-text-property 0 ... ...))) (org-lparse-insert (quote LINE) (pop lines))) (org-lparse-end-environment (quote native))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-protected) line) (not (< (or (next-single-property-change 0 ... line) 10000) (length line)))) (let ((ind (get-text-property 0 (quote original-indentation) line))) (org-lparse-insert (quote LINE) line) (while (and lines (or (= ... 0) (not ind) (equal ind ...)) (or (= ... 0) (get-text-property 0 ... ...))) (org-lparse-insert (quote LINE) (pop lines)))) (throw (quote nextline) nil)) (when (string-match "^ORG-\\(.+\\)-\\(START\\|END\\)\\([ 	]+.*\\)?$" line) (let* ((style (intern (downcase ...))) (env-options-plist (org-lparse-get-block-params (match-string 3 line))) (f (cdr (assoc ... ...)))) (when (memq style (append (quote ...) (mapcar ... org-lparse-special-blocks))) (funcall f style env-options-plist) (throw (quote nextline) nil)))) (run-hooks (quote org-export-html-after-blockquotes-hook)) (when (org-lparse-current-environment-p (quote verse)) (let ((i (org-get-string-indentation line))) (if (> i 0) (setq line (concat (let ... ...) " " (org-trim line)))) (unless (string-match "\\\\\\\\[ 	]*$" line) (setq line (concat line "\\\\"))))) (setq start 0) (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ 	]*\n?" line start) (cond ((get-text-property (match-beginning 1) (quote org-protected) line) (setq start (match-end 1))) ((match-end 2) (setq line (replace-match (let ... ...) t t line))) ((and org-export-with-toc (equal (string-to-char line) 42)) (setq line (replace-match (let ... ...) t t line))) (t (setq line (replace-match (concat ... " ") t t line))))) (let ((org-lparse-encode-pending t)) (setq line (org-lparse-handle-time-stamps line))) (or (string-match org-table-hline-regexp line) (string-match "^[ 	]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ 	]*$" line) (setq line (org-xml-encode-org-text-skip-links line))) (setq line (org-lparse-format-org-link line opt-plist)) (if (and org-todo-line-regexp (string-match org-todo-line-regexp line) (match-beginning 2)) (setq line (concat (substring line 0 (match-beginning 2)) (org-lparse-format (quote TODO) (match-string 2 line)) (substring line (match-end 2))))) (when org-export-with-footnotes (setq start 0) (while (string-match "\\([^* 	].*?\\)[ 	]*\\[\\([0-9]+\\)\\]" line start) (if (or (get-text-property (match-beginning 2) (quote org-protected) line) (not (get-text-property ... ... line))) (setq start (match-end 2)) (let ((n ...) refcnt a) (if (setq a ...) (progn ... ...) (setq refcnt 1) (push ... footref-seen)) (setq line (replace-match ... t t line)))))) (cond ((string-match "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ 	]*$" line) (setq level (org-tr-level (- (match-end 1) (match-beginning 1) level-offset)) txt (match-string 2 line)) (if (string-match quote-re0 txt) (setq txt (replace-match "" t t txt))) (if (<= level (max umax umax-toc)) (setq head-count (+ head-count 1))) (unless org-lparse-dyn-first-heading-pos (setq org-lparse-dyn-first-heading-pos (point))) (org-lparse-begin-level level txt umax head-count) (when (string-match quote-re line) (org-lparse-begin-environment (quote quote)))) ((and org-export-with-tables (string-match "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" line)) (when (not table-open) (setq table-open t table-buffer nil table-orig-buffer nil)) (setq table-buffer (cons line table-buffer) table-orig-buffer (cons origline table-orig-buffer)) (when (or (not lines) (not (string-match "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" ...))) (setq table-open nil table-buffer (nreverse table-buffer) table-orig-buffer (nreverse table-orig-buffer)) (org-lparse-end-paragraph) (when org-lparse-list-table-p (error "Regular tables are not allowed in a list-table block")) (org-lparse-insert (quote TABLE) table-buffer table-orig-buffer))) (t (when (get-text-property 0 (quote list-item) line) (setq line (org-lparse-export-list-line line (get-text-property 0 ... line) (get-text-property 0 ... line) (get-text-property 0 ... line)))) (when (string-match "^[ 	]*-\\{5,\\}[ 	]*$" line) (with-org-lparse-preserve-paragraph-state (org-lparse-insert (quote HORIZONTAL-LINE))) (throw (quote nextline) nil)) (when (string-match "^ [-+*]-\\|^[ 	]*$" line) (when org-lparse-footnote-number (org-lparse-end-footnote-definition org-lparse-footnote-number) (setq org-lparse-footnote-number nil)) (org-lparse-begin-paragraph)) (when org-export-with-footnotes (when (and (boundp ...) (string-match ... line)) (throw (quote nextline) nil)) (when (string-match "^[ 	]*\\[\\([0-9]+\\)\\]" line) (org-lparse-end-paragraph) (setq org-lparse-footnote-number (match-string 1 line)) (setq line (replace-match "" t t line)) (org-lparse-begin-footnote-definition org-lparse-footnote-number))) (cond ((string-match "\\\\\\\\[ 	]*$" line) (setq line (replace-match ... t t line))) (org-export-preserve-breaks (setq line (concat line ...)))) (let ((start 0)) (while (and org-lparse-par-open (string-match "\\\\par\\>" line start)) (error "FIXME") (if (not ...) (setq line ...)) (setq start (match-end 0)))) (org-lparse-insert (quote LINE) line)))))
  (let ((case-fold-search nil) (org-odd-levels-only odd)) (mapc (lambda (x) (set (make-local-variable (nth 2 x)) (plist-get opt-plist (car x)))) org-export-plist-vars) (setq umax (if arg (prefix-numeric-value arg) org-export-headline-levels)) (setq umax-toc (if (integerp org-export-with-toc) (min org-export-with-toc umax) umax)) (setq org-lparse-opt-plist (plist-put org-lparse-opt-plist :headline-levels umax)) (when (and org-export-with-toc (not body-only)) (setq lines (org-lparse-prepare-toc lines level-offset opt-plist umax-toc))) (unless body-only (org-lparse-begin (quote DOCUMENT-CONTENT) opt-plist) (org-lparse-begin (quote DOCUMENT-BODY) opt-plist)) (setq head-count 0) (org-init-section-numbers) (org-lparse-begin-paragraph) (while (setq line (pop lines) origline line) (catch (quote nextline) (when (and (org-lparse-current-environment-p (quote quote)) (string-match org-outline-regexp-bol line)) (org-lparse-end-environment (quote quote))) (when (org-lparse-current-environment-p (quote quote)) (org-lparse-insert (quote LINE) line) (throw (quote nextline) nil)) (when (and org-export-with-fixed-width (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" line)) (when (not (org-lparse-current-environment-p (quote fixedwidth))) (org-lparse-begin-environment (quote fixedwidth))) (org-lparse-insert (quote LINE) (match-string 3 line)) (when (or (not lines) (not (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" ...))) (org-lparse-end-environment (quote fixedwidth))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-native-text) line) (not (< (or ... 10000) (length line)))) (let ((ind (get-text-property 0 ... line))) (org-lparse-begin-environment (quote native)) (org-lparse-insert (quote LINE) line) (while (and lines (or ... ... ...) (or ... ...)) (org-lparse-insert (quote LINE) (pop lines))) (org-lparse-end-environment (quote native))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-protected) line) (not (< (or ... 10000) (length line)))) (let ((ind (get-text-property 0 ... line))) (org-lparse-insert (quote LINE) line) (while (and lines (or ... ... ...) (or ... ...)) (org-lparse-insert (quote LINE) (pop lines)))) (throw (quote nextline) nil)) (when (string-match "^ORG-\\(.+\\)-\\(START\\|END\\)\\([ 	]+.*\\)?$" line) (let* ((style (intern ...)) (env-options-plist (org-lparse-get-block-params ...)) (f (cdr ...))) (when (memq style (append ... ...)) (funcall f style env-options-plist) (throw (quote nextline) nil)))) (run-hooks (quote org-export-html-after-blockquotes-hook)) (when (org-lparse-current-environment-p (quote verse)) (let ((i (org-get-string-indentation line))) (if (> i 0) (setq line (concat ... " " ...))) (unless (string-match "\\\\\\\\[ 	]*$" line) (setq line (concat line "\\\\"))))) (setq start 0) (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ 	]*\n?" line start) (cond ((get-text-property (match-beginning 1) (quote org-protected) line) (setq start (match-end 1))) ((match-end 2) (setq line (replace-match ... t t line))) ((and org-export-with-toc (equal ... 42)) (setq line (replace-match ... t t line))) (t (setq line (replace-match ... t t line))))) (let ((org-lparse-encode-pending t)) (setq line (org-lparse-handle-time-stamps line))) (or (string-match org-table-hline-regexp line) (string-match "^[ 	]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ 	]*$" line) (setq line (org-xml-encode-org-text-skip-links line))) (setq line (org-lparse-format-org-link line opt-plist)) (if (and org-todo-line-regexp (string-match org-todo-line-regexp line) (match-beginning 2)) (setq line (concat (substring line 0 (match-beginning 2)) (org-lparse-format (quote TODO) (match-string 2 line)) (substring line (match-end 2))))) (when org-export-with-footnotes (setq start 0) (while (string-match "\\([^* 	].*?\\)[ 	]*\\[\\([0-9]+\\)\\]" line start) (if (or (get-text-property ... ... line) (not ...)) (setq start (match-end 2)) (let (... refcnt a) (if ... ... ... ...) (setq line ...))))) (cond ((string-match "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ 	]*$" line) (setq level (org-tr-level (- ... ... level-offset)) txt (match-string 2 line)) (if (string-match quote-re0 txt) (setq txt (replace-match "" t t txt))) (if (<= level (max umax umax-toc)) (setq head-count (+ head-count 1))) (unless org-lparse-dyn-first-heading-pos (setq org-lparse-dyn-first-heading-pos (point))) (org-lparse-begin-level level txt umax head-count) (when (string-match quote-re line) (org-lparse-begin-environment (quote quote)))) ((and org-export-with-tables (string-match "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" line)) (when (not table-open) (setq table-open t table-buffer nil table-orig-buffer nil)) (setq table-buffer (cons line table-buffer) table-orig-buffer (cons origline table-orig-buffer)) (when (or (not lines) (not ...)) (setq table-open nil table-buffer (nreverse table-buffer) table-orig-buffer (nreverse table-orig-buffer)) (org-lparse-end-paragraph) (when org-lparse-list-table-p (error "Regular tables are not allowed in a list-table block")) (org-lparse-insert (quote TABLE) table-buffer table-orig-buffer))) (t (when (get-text-property 0 (quote list-item) line) (setq line (org-lparse-export-list-line line ... ... ...))) (when (string-match "^[ 	]*-\\{5,\\}[ 	]*$" line) (with-org-lparse-preserve-paragraph-state (org-lparse-insert ...)) (throw (quote nextline) nil)) (when (string-match "^ [-+*]-\\|^[ 	]*$" line) (when org-lparse-footnote-number (org-lparse-end-footnote-definition org-lparse-footnote-number) (setq org-lparse-footnote-number nil)) (org-lparse-begin-paragraph)) (when org-export-with-footnotes (when (and ... ...) (throw ... nil)) (when (string-match "^[ 	]*\\[\\([0-9]+\\)\\]" line) (org-lparse-end-paragraph) (setq org-lparse-footnote-number ...) (setq line ...) (org-lparse-begin-footnote-definition org-lparse-footnote-number))) (cond ((string-match "\\\\\\\\[ 	]*$" line) (setq line ...)) (org-export-preserve-breaks (setq line ...))) (let ((start 0)) (while (and org-lparse-par-open ...) (error "FIXME") (if ... ...) (setq start ...))) (org-lparse-insert (quote LINE) line))))) (when (org-lparse-current-environment-p (quote quote)) (org-lparse-end-environment (quote quote))) (org-lparse-end-level 1 umax) (when (and (> umax 0) org-lparse-dyn-first-heading-pos) (org-lparse-end-outline-text-or-outline)) (org-lparse-end (quote DOCUMENT-BODY) opt-plist) (unless body-only (org-lparse-end (quote DOCUMENT-CONTENT))) (org-lparse-end (quote EXPORT)) (when org-lparse-collect-buffer (kill-buffer org-lparse-collect-buffer)) (goto-char (point-min)) (or (org-export-push-to-kill-ring (upcase (symbol-name org-lparse-backend))) (message "Exporting... done")) (cond ((not to-buffer) (let ((f (org-lparse-get (quote SAVE-METHOD)))) (or (and f (functionp f) (funcall f filename opt-plist)) (save-buffer))) (or (and (boundp (quote org-lparse-other-backend)) org-lparse-other-backend (not (equal org-lparse-backend org-lparse-other-backend)) (org-lparse-do-convert buffer-file-name (symbol-name org-lparse-other-backend))) (current-buffer))) ((eq to-buffer (quote string)) (prog1 (buffer-substring (point-min) (point-max)) (kill-buffer (current-buffer)))) (t (current-buffer))))
  (let* (hfy-user-sheet-assoc org-lparse-encode-pending org-lparse-par-open (org-lparse-par-open-stashed 0) (org-lparse-list-stack (quote nil)) org-lparse-list-table-p org-lparse-list-table:table-cell-open org-lparse-list-table:table-row org-lparse-list-table:lines org-lparse-outline-text-open (org-lparse-latex-fragment-fallback (or (ignore-errors (org-lparse-get (quote LATEX-FRAGMENT-FALLBACK))) (if (and (org-check-external-command "latex" "" t) (org-check-external-command "dvipng" "" t)) (quote dvipng) (quote verbatim)))) (org-lparse-insert-tag-with-newlines (quote both)) (org-lparse-to-buffer to-buffer) (org-lparse-body-only body-only) (org-lparse-entity-control-callbacks-alist (org-lparse-get (quote ENTITY-CONTROL))) (org-lparse-entity-format-callbacks-alist (org-lparse-get (quote ENTITY-FORMAT))) (opt-plist (org-export-process-option-filters (org-combine-plists (org-default-export-plist) ext-plist (org-infile-export-plist)))) (body-only (or body-only (plist-get opt-plist :body-only))) valid org-lparse-dyn-first-heading-pos (odd org-odd-levels-only) (region-p (org-region-active-p)) (rbeg (and region-p (region-beginning))) (rend (and region-p (region-end))) (subtree-p (if (plist-get opt-plist :ignore-subtree-p) nil (when region-p (save-excursion (goto-char rbeg) (and (org-at-heading-p) (>= ... rend)))))) (level-offset (if subtree-p (save-excursion (goto-char rbeg) (+ (funcall outline-level) (if org-odd-levels-only 1 0))) 0)) (opt-plist (setq org-export-opt-plist (if subtree-p (org-export-add-subtree-options opt-plist rbeg) opt-plist))) (org-current-export-dir (or pub-dir (org-lparse-get (quote EXPORT-DIR) opt-plist))) (org-current-export-file buffer-file-name) (level 0) (line "") (origline "") txt todo (umax nil) (umax-toc nil) (filename (if to-buffer nil (expand-file-name (concat (file-name-sans-extension (or ... ...)) "." (org-lparse-get (quote FILE-NAME-EXTENSION) opt-plist)) (file-name-as-directory (or pub-dir (org-lparse-get ... opt-plist)))))) (current-dir (if buffer-file-name (file-name-directory buffer-file-name) default-directory)) (auto-insert nil) (buffer (if to-buffer (cond ((eq to-buffer (quote string)) (get-buffer-create (org-lparse-get ...))) (t (get-buffer-create to-buffer))) (find-file-noselect (or (let (...) (and f ... ...)) filename)))) (org-levels-open (make-vector org-level-max nil)) (dummy (mapc (lambda (p) (let* ((val ...) (val ...)) (setq opt-plist (plist-put opt-plist p val)))) (quote (:date :author :keywords :description)))) (date (plist-get opt-plist :date)) (date (cond ((and date (string-match "%" date)) (format-time-string date)) (date date) (t (format-time-string "%Y-%m-%d %T %Z")))) (dummy (setq opt-plist (plist-put opt-plist :effective-date date))) (title (org-xml-encode-org-text-skip-links (or (and subtree-p (org-export-get-title-from-subtree)) (plist-get opt-plist :title) (and (not body-only) (not (plist-get opt-plist :skip-before-1st-heading)) (org-export-grab-title-from-buffer)) (and buffer-file-name (file-name-sans-extension (file-name-nondirectory buffer-file-name))) "UNTITLED"))) (dummy (setq opt-plist (plist-put opt-plist :title title))) (html-table-tag (plist-get opt-plist :html-table-tag)) (quote-re0 (concat "^ *" org-quote-string "\\( +\\|[ 	]*$\\)")) (quote-re (format org-heading-keyword-regexp-format org-quote-string)) ...) (let ((inhibit-read-only t)) (org-unmodified (remove-text-properties (point-min) (point-max) (quote (:org-license-to-kill t))))) (message "Exporting...") (org-init-section-numbers) (setq org-lparse-output-buffer buffer) (set-buffer org-lparse-output-buffer) (let ((inhibit-read-only t)) (erase-buffer)) (fundamental-mode) (org-install-letbind) (and (fboundp (quote set-buffer-file-coding-system)) (set-buffer-file-coding-system coding-system-for-write)) (let ((case-fold-search nil) (org-odd-levels-only odd)) (mapc (lambda (x) (set (make-local-variable (nth 2 x)) (plist-get opt-plist (car x)))) org-export-plist-vars) (setq umax (if arg (prefix-numeric-value arg) org-export-headline-levels)) (setq umax-toc (if (integerp org-export-with-toc) (min org-export-with-toc umax) umax)) (setq org-lparse-opt-plist (plist-put org-lparse-opt-plist :headline-levels umax)) (when (and org-export-with-toc (not body-only)) (setq lines (org-lparse-prepare-toc lines level-offset opt-plist umax-toc))) (unless body-only (org-lparse-begin (quote DOCUMENT-CONTENT) opt-plist) (org-lparse-begin (quote DOCUMENT-BODY) opt-plist)) (setq head-count 0) (org-init-section-numbers) (org-lparse-begin-paragraph) (while (setq line (pop lines) origline line) (catch (quote nextline) (when (and (org-lparse-current-environment-p (quote quote)) (string-match org-outline-regexp-bol line)) (org-lparse-end-environment (quote quote))) (when (org-lparse-current-environment-p (quote quote)) (org-lparse-insert (quote LINE) line) (throw (quote nextline) nil)) (when (and org-export-with-fixed-width (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" line)) (when (not (org-lparse-current-environment-p ...)) (org-lparse-begin-environment (quote fixedwidth))) (org-lparse-insert (quote LINE) (match-string 3 line)) (when (or (not lines) (not ...)) (org-lparse-end-environment (quote fixedwidth))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-native-text) line) (not (< ... ...))) (let ((ind ...)) (org-lparse-begin-environment (quote native)) (org-lparse-insert (quote LINE) line) (while (and lines ... ...) (org-lparse-insert ... ...)) (org-lparse-end-environment (quote native))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-protected) line) (not (< ... ...))) (let ((ind ...)) (org-lparse-insert (quote LINE) line) (while (and lines ... ...) (org-lparse-insert ... ...))) (throw (quote nextline) nil)) (when (string-match "^ORG-\\(.+\\)-\\(START\\|END\\)\\([ 	]+.*\\)?$" line) (let* ((style ...) (env-options-plist ...) (f ...)) (when (memq style ...) (funcall f style env-options-plist) (throw ... nil)))) (run-hooks (quote org-export-html-after-blockquotes-hook)) (when (org-lparse-current-environment-p (quote verse)) (let ((i ...)) (if (> i 0) (setq line ...)) (unless (string-match "\\\\\\\\[ 	]*$" line) (setq line ...)))) (setq start 0) (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ 	]*\n?" line start) (cond ((get-text-property ... ... line) (setq start ...)) ((match-end 2) (setq line ...)) ((and org-export-with-toc ...) (setq line ...)) (t (setq line ...)))) (let ((org-lparse-encode-pending t)) (setq line (org-lparse-handle-time-stamps line))) (or (string-match org-table-hline-regexp line) (string-match "^[ 	]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ 	]*$" line) (setq line (org-xml-encode-org-text-skip-links line))) (setq line (org-lparse-format-org-link line opt-plist)) (if (and org-todo-line-regexp (string-match org-todo-line-regexp line) (match-beginning 2)) (setq line (concat (substring line 0 ...) (org-lparse-format ... ...) (substring line ...)))) (when org-export-with-footnotes (setq start 0) (while (string-match "\\([^* 	].*?\\)[ 	]*\\[\\([0-9]+\\)\\]" line start) (if (or ... ...) (setq start ...) (let ... ... ...)))) (cond ((string-match "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ 	]*$" line) (setq level (org-tr-level ...) txt (match-string 2 line)) (if (string-match quote-re0 txt) (setq txt ...)) (if (<= level ...) (setq head-count ...)) (unless org-lparse-dyn-first-heading-pos (setq org-lparse-dyn-first-heading-pos ...)) (org-lparse-begin-level level txt umax head-count) (when (string-match quote-re line) (org-lparse-begin-environment ...))) ((and org-export-with-tables (string-match "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" line)) (when (not table-open) (setq table-open t table-buffer nil table-orig-buffer nil)) (setq table-buffer (cons line table-buffer) table-orig-buffer (cons origline table-orig-buffer)) (when (or ... ...) (setq table-open nil table-buffer ... table-orig-buffer ...) (org-lparse-end-paragraph) (when org-lparse-list-table-p ...) (org-lparse-insert ... table-buffer table-orig-buffer))) (t (when (get-text-property 0 ... line) (setq line ...)) (when (string-match "^[ 	]*-\\{5,\\}[ 	]*$" line) (with-org-lparse-preserve-paragraph-state ...) (throw ... nil)) (when (string-match "^ [-+*]-\\|^[ 	]*$" line) (when org-lparse-footnote-number ... ...) (org-lparse-begin-paragraph)) (when org-export-with-footnotes (when ... ...) (when ... ... ... ... ...)) (cond (... ...) (org-export-preserve-breaks ...)) (let (...) (while ... ... ... ...)) (org-lparse-insert (quote LINE) line))))) (when (org-lparse-current-environment-p (quote quote)) (org-lparse-end-environment (quote quote))) (org-lparse-end-level 1 umax) (when (and (> umax 0) org-lparse-dyn-first-heading-pos) (org-lparse-end-outline-text-or-outline)) (org-lparse-end (quote DOCUMENT-BODY) opt-plist) (unless body-only (org-lparse-end (quote DOCUMENT-CONTENT))) (org-lparse-end (quote EXPORT)) (when org-lparse-collect-buffer (kill-buffer org-lparse-collect-buffer)) (goto-char (point-min)) (or (org-export-push-to-kill-ring (upcase (symbol-name org-lparse-backend))) (message "Exporting... done")) (cond ((not to-buffer) (let ((f (org-lparse-get ...))) (or (and f (functionp f) (funcall f filename opt-plist)) (save-buffer))) (or (and (boundp (quote org-lparse-other-backend)) org-lparse-other-backend (not (equal org-lparse-backend org-lparse-other-backend)) (org-lparse-do-convert buffer-file-name (symbol-name org-lparse-other-backend))) (current-buffer))) ((eq to-buffer (quote string)) (prog1 (buffer-substring (point-min) (point-max)) (kill-buffer (current-buffer)))) (t (current-buffer)))))
  org-do-lparse(nil hidden nil nil nil nil)
  (let* ((org-lparse-backend (intern native-backend)) (org-lparse-other-backend (and target-backend (intern target-backend)))) (unless (org-lparse-backend-is-native-p native-backend) (error "Don't know how to export natively to backend %s" native-backend)) (unless (or (equal native-backend target-backend) (org-lparse-reachable-p native-backend target-backend)) (error "Don't know how to export to backend %s %s" target-backend (format "via %s" native-backend))) (run-hooks (quote org-export-first-hook)) (org-do-lparse arg hidden ext-plist to-buffer body-only pub-dir))
  org-lparse("odt" "odt" nil hidden)
  (or file-or-buf (org-lparse target-backend native-backend arg (quote hidden)))
  (let (f (file-or-buf (or file-or-buf (org-lparse target-backend native-backend arg (quote hidden))))) (when file-or-buf (setq f (cond ((bufferp file-or-buf) buffer-file-name) ((file-exists-p file-or-buf) file-or-buf) (t (error "org-lparse-and-open: This shouldn't happen")))) (message "Opening file %s" f) (org-open-file f) (when org-export-kill-product-buffer-when-displayed (kill-buffer (current-buffer)))))
  org-lparse-and-open("odt" "odt" nil)
  org-export-as-odt-and-open(nil)
  call-interactively(org-export-as-odt-and-open)
  (if (and bg (nth 2 ass) (not (buffer-base-buffer)) (not (org-region-active-p))) (let ((p (start-process (concat "Exporting " (file-name-nondirectory (buffer-file-name))) "*Org Processes*" (expand-file-name invocation-name invocation-directory) "-batch" "-l" user-init-file "--eval" "(require 'org-exp)" "--eval" "(setq org-wait .2)" (buffer-file-name) "-f" (symbol-name (nth 1 ass))))) (set-process-sentinel p (quote org-export-process-sentinel)) (message "Background process \"%s\": started" p)) (if subtree-p (progn (org-mark-subtree) (org-activate-mark))) (call-interactively (nth 1 ass)) (when (and bpos (get-buffer-window cbuf)) (let ((cw (selected-window))) (select-window (get-buffer-window cbuf)) (goto-char cpos) (deactivate-mark) (select-window cw))))
  (let* ((bg (org-xor (equal arg (quote (16))) org-export-run-in-background)) (subtree-p (or (org-region-active-p) (eq org-export-initial-scope (quote subtree)))) (help "[t]   insert the export option template\n[v]   limit export to visible part of outline tree\n[1]   switch buffer/subtree export\n[SPC] publish enclosing subtree (with LaTeX_CLASS or EXPORT_FILE_NAME prop)\n\n[a/n/u] export as ASCII/Latin-1/UTF-8         [A/N/U] to temporary buffer\n\n[h] export as HTML      [H] to temporary buffer   [R] export region\n[b] export as HTML and open in browser\n\n[l] export as LaTeX     [L] to temporary buffer\n[p] export as LaTeX and process to PDF            [d] ... and open PDF file\n\n[D] export as DocBook   [V] export as DocBook, process to PDF, and open\n\n[o] export as OpenDocument Text                   [O] ... and open\n\n[j] export as TaskJuggler                         [J] ... and open\n\n[m] export as Freemind mind map\n[x] export as XOXO\n[g] export using Wes Hardaker's generic exporter\n\n[i] export current file as iCalendar file\n[I] export all agenda files as iCalendar files   [c] ...as one combined file\n\n[F] publish current file          [P] publish current project\n[X] publish a project...          [E] publish every projects") (cmds (quote ((116 org-insert-export-options-template nil) (118 org-export-visible nil) (97 org-export-as-ascii t) (65 org-export-as-ascii-to-buffer t) (110 org-export-as-latin1 t) (78 org-export-as-latin1-to-buffer t) (117 org-export-as-utf8 t) (85 org-export-as-utf8-to-buffer t) (104 org-export-as-html t) (98 org-export-as-html-and-open t) (72 org-export-as-html-to-buffer nil) (82 org-export-region-as-html nil) (120 org-export-as-xoxo t) (103 org-export-generic t) (68 org-export-as-docbook t) (86 org-export-as-docbook-pdf-and-open t) (111 org-export-as-odt t) (79 org-export-as-odt-and-open t) (106 org-export-as-taskjuggler t) (74 org-export-as-taskjuggler-and-open t) (109 org-export-as-freemind t) (108 org-export-as-latex t) (112 org-export-as-pdf t) (100 org-export-as-pdf-and-open t) (76 org-export-as-latex-to-buffer nil) (105 org-export-icalendar-this-file t) (73 org-export-icalendar-all-agenda-files t) (99 org-export-icalendar-combine-agenda-files t) (70 org-publish-current-file t) (80 org-publish-current-project t) (88 org-publish t) (69 org-publish-all t)))) r1 r2 ass (cpos (point)) (cbuf (current-buffer)) bpos) (save-excursion (save-window-excursion (if subtree-p (message "Export subtree: ") (message "Export buffer: ")) (delete-other-windows) (with-output-to-temp-buffer "*Org Export/Publishing Help*" (princ help)) (org-fit-window-to-buffer (get-buffer-window "*Org Export/Publishing Help*")) (while (eq (setq r1 (read-char-exclusive)) 49) (cond (subtree-p (setq subtree-p nil) (message "Export buffer: ")) ((not subtree-p) (setq subtree-p t) (setq bpos (point)) (message "Export subtree: ")))) (when (eq r1 32) (let ((case-fold-search t) (end (save-excursion ... ...))) (outline-next-heading) (if (re-search-backward "^[ 	]+\\(:latex_class:\\|:export_title:\\|:export_file_name:\\)[ 	]+\\S-" end t) (progn (org-back-to-heading t) (setq subtree-p t) (setq bpos ...) (message "Select command (for subtree): ") (setq r1 ...)) (error "No enclosing node with LaTeX_CLASS or EXPORT_TITLE or EXPORT_FILE_NAME")))))) (if (fboundp (quote redisplay)) (redisplay)) (and bpos (goto-char bpos)) (setq r2 (if (< r1 27) (+ r1 96) r1)) (unless (setq ass (assq r2 cmds)) (error "No command associated with key %c" r1)) (if (and bg (nth 2 ass) (not (buffer-base-buffer)) (not (org-region-active-p))) (let ((p (start-process (concat "Exporting " (file-name-nondirectory ...)) "*Org Processes*" (expand-file-name invocation-name invocation-directory) "-batch" "-l" user-init-file "--eval" "(require 'org-exp)" "--eval" "(setq org-wait .2)" (buffer-file-name) "-f" (symbol-name (nth 1 ass))))) (set-process-sentinel p (quote org-export-process-sentinel)) (message "Background process \"%s\": started" p)) (if subtree-p (progn (org-mark-subtree) (org-activate-mark))) (call-interactively (nth 1 ass)) (when (and bpos (get-buffer-window cbuf)) (let ((cw (selected-window))) (select-window (get-buffer-window cbuf)) (goto-char cpos) (deactivate-mark) (select-window cw)))))
  org-export(nil)
  call-interactively(org-export nil nil)
--8<---------------cut here---------------end--------------->8---

Info:
- Windows XP with Cygwin's zip utility
- GNU Emacs 24.1.1 (i386-mingw-nt5.1.2600) of 2012-06-02 on MARVIN
- Org-mode version 7.8.11 (release_7.8.11-89-gcf8d97.dirty @ c:/home/sva/src/org-mode/lisp/)

Best regards,
  Seb

-- 
Sebastien Vauban

Re: [LibreOffice] (void-variable org-line)

[Bastien]

Hi Sébastien,

"Sebastien Vauban"
<wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org> writes:

> When trying to export to LibreOffice, I get this error message:

This should be fixed.  Can you test and report?

Thanks,

-- 
 Bastien

Re: [LibreOffice] (void-variable org-line)

[Jambunathan K]

"Sebastien Vauban"
<wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org> writes:

> When trying to export to LibreOffice, I get this error message:
>
> Debugger entered--Lisp error: (void-variable org-line)

Fixed in both master and maint.
-- 

Re: [LibreOffice] (void-variable org-line)

[Sebastien Vauban]

Hi Jambunathan,

Jambunathan K wrote:
> "Sebastien Vauban" writes:
>
>> When trying to export to LibreOffice, I get this error message:
>>
>> Debugger entered--Lisp error: (void-variable org-line)
>
> Fixed in both master and maint.

That does work. Thanks for your speedy answer and fix!

However, I'm now blocked by this:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (error "Cannot determine style name for entity default of type character")
  signal(error ("Cannot determine style name for entity default of type character"))
  error("Cannot determine style name for entity %s of type %s" default character)
  (or (cdr (assoc entity (cdr (assoc category org-export-odt-org-styles-alist)))) (cdr (assoc entity (cdr (assoc category org-export-odt-default-org-styles-alist)))) (error "Cannot determine style name for entity %s of type %s" entity category))
  (let ((entity (or entity (quote default)))) (or (cdr (assoc entity (cdr (assoc category org-export-odt-org-styles-alist)))) (cdr (assoc entity (cdr (assoc category org-export-odt-default-org-styles-alist)))) (error "Cannot determine style name for entity %s of type %s" entity category)))
  org-odt-get-style-name-for-entity(character nil)
  (cond ((stringp style) (org-odt-remap-stylenames style)) ((symbolp style) (org-odt-get-style-name-for-entity (quote character) style)) ((listp style) (assert (< 1 (length style))) (let ((parent-style (pop style))) (mapconcat (lambda (s) (org-odt-remap-stylenames s)) style "") (org-odt-remap-stylenames parent-style))) (t (error "Don't how to handle style %s" style)))
  (let* ((style-name (cond ((stringp style) (org-odt-remap-stylenames style)) ((symbolp style) (org-odt-get-style-name-for-entity (quote character) style)) ((listp style) (assert (< 1 (length style))) (let ((parent-style ...)) (mapconcat (lambda ... ...) style "") (org-odt-remap-stylenames parent-style))) (t (error "Don't how to handle style %s" style))))) (org-odt-format-tags (quote ("<text:span text:style-name=\"%s\">" . "</text:span>")) text style-name))
  org-odt-format-fontify(#("(XXX to be tested)" 0 18 (fontified nil list-item 3001 list-struct ((2845 0 "- " nil nil nil 2959) (2868 2 "+ " nil nil nil 2938) (2938 2 "+ " nil nil nil 2959) (2959 0 "- " nil nil nil 3056) (2980 2 "+ " nil nil nil 3001) (3001 2 "+ " nil nil nil 3056) (3056 0 "- " nil nil nil 3121) (3096 2 "+ " nil nil nil 3121)) list-prevs ((2845) (2868) (2938 . 2868) (2959 . 2845) (2980) (3001 . 2980) (3056 . 2959) (3096)) list-context nil)) nil)
  apply(org-odt-format-fontify (#("(XXX to be tested)" 0 18 (fontified nil list-item 3001 list-struct ((2845 0 "- " nil nil nil 2959) (2868 2 "+ " nil nil nil 2938) (2938 2 "+ " nil nil nil 2959) (2959 0 "- " nil nil nil 3056) (2980 2 "+ " nil nil nil 3001) (3001 2 "+ " nil nil nil 3056) (3056 0 "- " nil nil nil 3121) (3096 2 "+ " nil nil nil 3121)) list-prevs ((2845) (2868) (2938 . 2868) (2959 . 2845) (2980) (3001 . 2980) (3056 . 2959) (3096)) list-context nil)) nil))
  (let ((f (cdr (assoc entity org-lparse-entity-format-callbacks-alist)))) (unless f (error "Unknown entity: %s" entity)) (apply f args))
  (cond ((consp entity) (let ((text (pop args))) (apply (quote org-lparse-format) (quote TAGS) entity text args))) (t (let ((f (cdr (assoc entity org-lparse-entity-format-callbacks-alist)))) (unless f (error "Unknown entity: %s" entity)) (apply f args))))
  org-lparse-format(FONTIFY #("(XXX to be tested)" 0 18 (fontified nil list-item 3001 list-struct ((2845 0 "- " nil nil nil 2959) (2868 2 "+ " nil nil nil 2938) (2938 2 "+ " nil nil nil 2959) (2959 0 "- " nil nil nil 3056) (2980 2 "+ " nil nil nil 3001) (3001 2 "+ " nil nil nil 3056) (3056 0 "- " nil nil nil 3121) (3096 2 "+ " nil nil nil 3121)) list-prevs ((2845) (2868) (2938 . 2868) (2959 . 2845) (2980) (3001 . 2980) (3056 . 2959) (3096)) list-context nil)) nil)
  (concat (match-string 1 string) (org-lparse-format (quote FONTIFY) (match-string 4 string) (nth 1 (assoc (match-string 3 string) org-lparse-char-styles))) (match-string 5 string))
  (setq s (match-beginning 0) rpl (concat (match-string 1 string) (org-lparse-format (quote FONTIFY) (match-string 4 string) (nth 1 (assoc (match-string 3 string) org-lparse-char-styles))) (match-string 5 string)) string (replace-match rpl t t string) s (+ s (- (length rpl) 2)))
  (if (not (equal (substring string (match-beginning 3) (1+ (match-beginning 3))) (substring string (match-beginning 4) (1+ (match-beginning 4))))) (setq s (match-beginning 0) rpl (concat (match-string 1 string) (org-lparse-format (quote FONTIFY) (match-string 4 string) (nth 1 (assoc (match-string 3 string) org-lparse-char-styles))) (match-string 5 string)) string (replace-match rpl t t string) s (+ s (- (length rpl) 2))) (setq s (1+ s)))
  (while (string-match org-emph-re string s) (if (not (equal (substring string (match-beginning 3) (1+ (match-beginning 3))) (substring string (match-beginning 4) (1+ (match-beginning 4))))) (setq s (match-beginning 0) rpl (concat (match-string 1 string) (org-lparse-format (quote FONTIFY) (match-string 4 string) (nth 1 (assoc (match-string 3 string) org-lparse-char-styles))) (match-string 5 string)) string (replace-match rpl t t string) s (+ s (- (length rpl) 2))) (setq s (1+ s))))
  (let ((s 0) rpl) (while (string-match org-emph-re string s) (if (not (equal (substring string (match-beginning 3) (1+ (match-beginning 3))) (substring string (match-beginning 4) (1+ (match-beginning 4))))) (setq s (match-beginning 0) rpl (concat (match-string 1 string) (org-lparse-format (quote FONTIFY) (match-string 4 string) (nth 1 (assoc ... org-lparse-char-styles))) (match-string 5 string)) string (replace-match rpl t t string) s (+ s (- (length rpl) 2))) (setq s (1+ s)))) string)
  org-lparse-apply-char-styles(#("  + Android tablet with Firefox @(XXX to be tested)@." 0 53 (list-context nil list-prevs ((2845) (2868) (2938 . 2868) (2959 . 2845) (2980) (3001 . 2980) (3056 . 2959) (3096)) list-struct ((2845 0 "- " nil nil nil 2959) (2868 2 "+ " nil nil nil 2938) (2938 2 "+ " nil nil nil 2959) (2959 0 "- " nil nil nil 3056) (2980 2 "+ " nil nil nil 3001) (3001 2 "+ " nil nil nil 3056) (3056 0 "- " nil nil nil 3121) (3096 2 "+ " nil nil nil 3121)) list-item 3001 fontified nil)))
  (setq s (org-lparse-apply-char-styles s))
  (if org-export-with-emphasize (setq s (org-lparse-apply-char-styles s)))
  org-xml-encode-org-text(#("  + Android tablet with Firefox @(XXX to be tested)@." 0 53 (list-context nil list-prevs ((2845) (2868) (2938 . 2868) (2959 . 2845) (2980) (3001 . 2980) (3056 . 2959) (3096)) list-struct ((2845 0 "- " nil nil nil 2959) (2868 2 "+ " nil nil nil 2938) (2938 2 "+ " nil nil nil 2959) (2959 0 "- " nil nil nil 3056) (2980 2 "+ " nil nil nil 3001) (3001 2 "+ " nil nil nil 3056) (3056 0 "- " nil nil nil 3121) (3096 2 "+ " nil nil nil 3121)) list-item 3001 fontified nil)))
  (cons (org-xml-encode-org-text string) res)
  (setq res (cons (org-xml-encode-org-text string) res))
  (push (org-xml-encode-org-text string) res)
  (let* ((re (concat org-bracket-link-regexp "\\|" (org-re "[ 	]+\\(:[[:alnum:]_@#%:]+:\\)[ 	]*$"))) m s l res) (while (setq m (string-match re string)) (setq s (substring string 0 m) l (match-string 0 string) string (substring string (match-end 0))) (push (org-xml-encode-org-text s) res) (push l res)) (push (org-xml-encode-org-text string) res) (apply (quote concat) (nreverse res)))
  (progn (let* ((re (concat org-bracket-link-regexp "\\|" (org-re "[ 	]+\\(:[[:alnum:]_@#%:]+:\\)[ 	]*$"))) m s l res) (while (setq m (string-match re string)) (setq s (substring string 0 m) l (match-string 0 string) string (substring string (match-end 0))) (push (org-xml-encode-org-text s) res) (push l res)) (push (org-xml-encode-org-text string) res) (apply (quote concat) (nreverse res))))
  (if string (progn (let* ((re (concat org-bracket-link-regexp "\\|" (org-re "[ 	]+\\(:[[:alnum:]_@#%:]+:\\)[ 	]*$"))) m s l res) (while (setq m (string-match re string)) (setq s (substring string 0 m) l (match-string 0 string) string (substring string (match-end 0))) (push (org-xml-encode-org-text s) res) (push l res)) (push (org-xml-encode-org-text string) res) (apply (quote concat) (nreverse res)))))
  (when string (let* ((re (concat org-bracket-link-regexp "\\|" (org-re "[ 	]+\\(:[[:alnum:]_@#%:]+:\\)[ 	]*$"))) m s l res) (while (setq m (string-match re string)) (setq s (substring string 0 m) l (match-string 0 string) string (substring string (match-end 0))) (push (org-xml-encode-org-text s) res) (push l res)) (push (org-xml-encode-org-text string) res) (apply (quote concat) (nreverse res))))
  org-xml-encode-org-text-skip-links(#("  + Android tablet with Firefox @(XXX to be tested)@." 0 53 (list-context nil list-prevs ((2845) (2868) (2938 . 2868) (2959 . 2845) (2980) (3001 . 2980) (3056 . 2959) (3096)) list-struct ((2845 0 "- " nil nil nil 2959) (2868 2 "+ " nil nil nil 2938) (2938 2 "+ " nil nil nil 2959) (2959 0 "- " nil nil nil 3056) (2980 2 "+ " nil nil nil 3001) (3001 2 "+ " nil nil nil 3056) (3056 0 "- " nil nil nil 3121) (3096 2 "+ " nil nil nil 3121)) list-item 3001 fontified nil)))
  (setq line (org-xml-encode-org-text-skip-links line))
  (or (string-match org-table-hline-regexp line) (string-match "^[ 	]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ 	]*$" line) (setq line (org-xml-encode-org-text-skip-links line)))
  (catch (quote nextline) (when (and (org-lparse-current-environment-p (quote quote)) (string-match org-outline-regexp-bol line)) (org-lparse-end-environment (quote quote))) (when (org-lparse-current-environment-p (quote quote)) (org-lparse-insert (quote LINE) line) (throw (quote nextline) nil)) (when (and org-export-with-fixed-width (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" line)) (when (not (org-lparse-current-environment-p (quote fixedwidth))) (org-lparse-begin-environment (quote fixedwidth))) (org-lparse-insert (quote LINE) (match-string 3 line)) (when (or (not lines) (not (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" (car lines)))) (org-lparse-end-environment (quote fixedwidth))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-native-text) line) (not (< (or (next-single-property-change 0 (quote org-native-text) line) 10000) (length line)))) (let ((ind (get-text-property 0 (quote original-indentation) line))) (org-lparse-begin-environment (quote native)) (org-lparse-insert (quote LINE) line) (while (and lines (or (= (length ...) 0) (not ind) (equal ind (get-text-property 0 ... ...))) (or (= (length ...) 0) (get-text-property 0 (quote org-native-text) (car lines)))) (org-lparse-insert (quote LINE) (pop lines))) (org-lparse-end-environment (quote native))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-protected) line) (not (< (or (next-single-property-change 0 (quote org-protected) line) 10000) (length line)))) (let ((ind (get-text-property 0 (quote original-indentation) line))) (org-lparse-insert (quote LINE) line) (while (and lines (or (= (length ...) 0) (not ind) (equal ind (get-text-property 0 ... ...))) (or (= (length ...) 0) (get-text-property 0 (quote org-protected) (car lines)))) (org-lparse-insert (quote LINE) (pop lines)))) (throw (quote nextline) nil)) (when (string-match "^ORG-\\(.+\\)-\\(START\\|END\\)\\([ 	]+.*\\)?$" line) (let* ((style (intern (downcase (match-string 1 line)))) (env-options-plist (org-lparse-get-block-params (match-string 3 line))) (f (cdr (assoc (match-string 2 line) (quote ...))))) (when (memq style (append (quote (blockquote verse center)) (mapcar (quote intern) org-lparse-special-blocks))) (funcall f style env-options-plist) (throw (quote nextline) nil)))) (when (org-lparse-current-environment-p (quote verse)) (let ((i (org-get-string-indentation line))) (if (> i 0) (setq line (concat (let (...) (org-lparse-format ... ...)) " " (org-trim line)))) (unless (string-match "\\\\\\\\[ 	]*$" line) (setq line (concat line "\\\\"))))) (setq start 0) (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ 	]*\n?" line start) (cond ((get-text-property (match-beginning 1) (quote org-protected) line) (setq start (match-end 1))) ((match-end 2) (setq line (replace-match (let (...) (org-lparse-format ... "" ...)) t t line))) ((and org-export-with-toc (equal (string-to-char line) 42)) (setq line (replace-match (let (...) (org-lparse-format ... ... "target")) t t line))) (t (setq line (replace-match (concat (let ... ...) " ") t t line))))) (let ((org-lparse-encode-pending t)) (setq line (org-lparse-handle-time-stamps line))) (or (string-match org-table-hline-regexp line) (string-match "^[ 	]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ 	]*$" line) (setq line (org-xml-encode-org-text-skip-links line))) (setq line (org-lparse-format-org-link line opt-plist)) (if (and org-todo-line-regexp (string-match org-todo-line-regexp line) (match-beginning 2)) (setq line (concat (substring line 0 (match-beginning 2)) (org-lparse-format (quote TODO) (match-string 2 line)) (substring line (match-end 2))))) (when org-export-with-footnotes (setq start 0) (while (string-match "\\([^* 	].*?\\)[ 	]*\\[\\([0-9]+\\)\\]" line start) (if (or (get-text-property (match-beginning 2) (quote org-protected) line) (not (get-text-property (match-beginning 2) (quote org-footnote) line))) (setq start (match-end 2)) (let ((n (match-string 2 line)) refcnt a) (if (setq a (assoc n footref-seen)) (progn (setcdr a ...) (setq refcnt ...)) (setq refcnt 1) (push (cons n 1) footref-seen)) (setq line (replace-match (concat ... ... ...) t t line)))))) (cond ((string-match "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ 	]*$" line) (setq level (org-tr-level (- (match-end 1) (match-beginning 1) level-offset)) txt (match-string 2 line)) (if (string-match quote-re0 txt) (setq txt (replace-match "" t t txt))) (if (<= level (max umax umax-toc)) (setq head-count (+ head-count 1))) (unless org-lparse-dyn-first-heading-pos (setq org-lparse-dyn-first-heading-pos (point))) (org-lparse-begin-level level txt umax head-count) (when (string-match quote-re line) (org-lparse-begin-environment (quote quote)))) ((and org-export-with-tables (string-match "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" line)) (when (not table-open) (setq table-open t table-buffer nil table-orig-buffer nil)) (setq table-buffer (cons line table-buffer) table-orig-buffer (cons origline table-orig-buffer)) (when (or (not lines) (not (string-match "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" (car lines)))) (setq table-open nil table-buffer (nreverse table-buffer) table-orig-buffer (nreverse table-orig-buffer)) (org-lparse-end-paragraph) (when org-lparse-list-table-p (error "Regular tables are not allowed in a list-table block")) (org-lparse-insert (quote TABLE) table-buffer table-orig-buffer))) (t (when (get-text-property 0 (quote list-item) line) (setq line (org-lparse-export-list-line line (get-text-property 0 (quote list-item) line) (get-text-property 0 (quote list-struct) line) (get-text-property 0 (quote list-prevs) line)))) (when (string-match "^[ 	]*-\\{5,\\}[ 	]*$" line) (with-org-lparse-preserve-paragraph-state (org-lparse-insert (quote HORIZONTAL-LINE))) (throw (quote nextline) nil)) (when (string-match "^ [-+*]-\\|^[ 	]*$" line) (when org-lparse-footnote-number (org-lparse-end-footnote-definition org-lparse-footnote-number) (setq org-lparse-footnote-number nil)) (org-lparse-begin-paragraph)) (when org-export-with-footnotes (when (and (boundp (quote footnote-section-tag-regexp)) (string-match (concat "^" footnote-section-tag-regexp) line)) (throw (quote nextline) nil)) (when (string-match "^[ 	]*\\[\\([0-9]+\\)\\]" line) (org-lparse-end-paragraph) (setq org-lparse-footnote-number (match-string 1 line)) (setq line (replace-match "" t t line)) (org-lparse-begin-footnote-definition org-lparse-footnote-number))) (cond ((string-match "\\\\\\\\[ 	]*$" line) (setq line (replace-match (org-lparse-format ...) t t line))) (org-export-preserve-breaks (setq line (concat line (org-lparse-format ...))))) (let ((start 0)) (while (and org-lparse-par-open (string-match "\\\\par\\>" line start)) (error "FIXME") (if (not (get-text-property ... ... line)) (setq line (replace-match "</p ><p >" t t line))) (setq start (match-end 0)))) (org-lparse-insert (quote LINE) line))))
  (while (setq line (pop lines) origline line) (catch (quote nextline) (when (and (org-lparse-current-environment-p (quote quote)) (string-match org-outline-regexp-bol line)) (org-lparse-end-environment (quote quote))) (when (org-lparse-current-environment-p (quote quote)) (org-lparse-insert (quote LINE) line) (throw (quote nextline) nil)) (when (and org-export-with-fixed-width (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" line)) (when (not (org-lparse-current-environment-p (quote fixedwidth))) (org-lparse-begin-environment (quote fixedwidth))) (org-lparse-insert (quote LINE) (match-string 3 line)) (when (or (not lines) (not (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" (car lines)))) (org-lparse-end-environment (quote fixedwidth))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-native-text) line) (not (< (or (next-single-property-change 0 ... line) 10000) (length line)))) (let ((ind (get-text-property 0 (quote original-indentation) line))) (org-lparse-begin-environment (quote native)) (org-lparse-insert (quote LINE) line) (while (and lines (or (= ... 0) (not ind) (equal ind ...)) (or (= ... 0) (get-text-property 0 ... ...))) (org-lparse-insert (quote LINE) (pop lines))) (org-lparse-end-environment (quote native))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-protected) line) (not (< (or (next-single-property-change 0 ... line) 10000) (length line)))) (let ((ind (get-text-property 0 (quote original-indentation) line))) (org-lparse-insert (quote LINE) line) (while (and lines (or (= ... 0) (not ind) (equal ind ...)) (or (= ... 0) (get-text-property 0 ... ...))) (org-lparse-insert (quote LINE) (pop lines)))) (throw (quote nextline) nil)) (when (string-match "^ORG-\\(.+\\)-\\(START\\|END\\)\\([ 	]+.*\\)?$" line) (let* ((style (intern (downcase ...))) (env-options-plist (org-lparse-get-block-params (match-string 3 line))) (f (cdr (assoc ... ...)))) (when (memq style (append (quote ...) (mapcar ... org-lparse-special-blocks))) (funcall f style env-options-plist) (throw (quote nextline) nil)))) (when (org-lparse-current-environment-p (quote verse)) (let ((i (org-get-string-indentation line))) (if (> i 0) (setq line (concat (let ... ...) " " (org-trim line)))) (unless (string-match "\\\\\\\\[ 	]*$" line) (setq line (concat line "\\\\"))))) (setq start 0) (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ 	]*\n?" line start) (cond ((get-text-property (match-beginning 1) (quote org-protected) line) (setq start (match-end 1))) ((match-end 2) (setq line (replace-match (let ... ...) t t line))) ((and org-export-with-toc (equal (string-to-char line) 42)) (setq line (replace-match (let ... ...) t t line))) (t (setq line (replace-match (concat ... " ") t t line))))) (let ((org-lparse-encode-pending t)) (setq line (org-lparse-handle-time-stamps line))) (or (string-match org-table-hline-regexp line) (string-match "^[ 	]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ 	]*$" line) (setq line (org-xml-encode-org-text-skip-links line))) (setq line (org-lparse-format-org-link line opt-plist)) (if (and org-todo-line-regexp (string-match org-todo-line-regexp line) (match-beginning 2)) (setq line (concat (substring line 0 (match-beginning 2)) (org-lparse-format (quote TODO) (match-string 2 line)) (substring line (match-end 2))))) (when org-export-with-footnotes (setq start 0) (while (string-match "\\([^* 	].*?\\)[ 	]*\\[\\([0-9]+\\)\\]" line start) (if (or (get-text-property (match-beginning 2) (quote org-protected) line) (not (get-text-property ... ... line))) (setq start (match-end 2)) (let ((n ...) refcnt a) (if (setq a ...) (progn ... ...) (setq refcnt 1) (push ... footref-seen)) (setq line (replace-match ... t t line)))))) (cond ((string-match "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ 	]*$" line) (setq level (org-tr-level (- (match-end 1) (match-beginning 1) level-offset)) txt (match-string 2 line)) (if (string-match quote-re0 txt) (setq txt (replace-match "" t t txt))) (if (<= level (max umax umax-toc)) (setq head-count (+ head-count 1))) (unless org-lparse-dyn-first-heading-pos (setq org-lparse-dyn-first-heading-pos (point))) (org-lparse-begin-level level txt umax head-count) (when (string-match quote-re line) (org-lparse-begin-environment (quote quote)))) ((and org-export-with-tables (string-match "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" line)) (when (not table-open) (setq table-open t table-buffer nil table-orig-buffer nil)) (setq table-buffer (cons line table-buffer) table-orig-buffer (cons origline table-orig-buffer)) (when (or (not lines) (not (string-match "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" ...))) (setq table-open nil table-buffer (nreverse table-buffer) table-orig-buffer (nreverse table-orig-buffer)) (org-lparse-end-paragraph) (when org-lparse-list-table-p (error "Regular tables are not allowed in a list-table block")) (org-lparse-insert (quote TABLE) table-buffer table-orig-buffer))) (t (when (get-text-property 0 (quote list-item) line) (setq line (org-lparse-export-list-line line (get-text-property 0 ... line) (get-text-property 0 ... line) (get-text-property 0 ... line)))) (when (string-match "^[ 	]*-\\{5,\\}[ 	]*$" line) (with-org-lparse-preserve-paragraph-state (org-lparse-insert (quote HORIZONTAL-LINE))) (throw (quote nextline) nil)) (when (string-match "^ [-+*]-\\|^[ 	]*$" line) (when org-lparse-footnote-number (org-lparse-end-footnote-definition org-lparse-footnote-number) (setq org-lparse-footnote-number nil)) (org-lparse-begin-paragraph)) (when org-export-with-footnotes (when (and (boundp ...) (string-match ... line)) (throw (quote nextline) nil)) (when (string-match "^[ 	]*\\[\\([0-9]+\\)\\]" line) (org-lparse-end-paragraph) (setq org-lparse-footnote-number (match-string 1 line)) (setq line (replace-match "" t t line)) (org-lparse-begin-footnote-definition org-lparse-footnote-number))) (cond ((string-match "\\\\\\\\[ 	]*$" line) (setq line (replace-match ... t t line))) (org-export-preserve-breaks (setq line (concat line ...)))) (let ((start 0)) (while (and org-lparse-par-open (string-match "\\\\par\\>" line start)) (error "FIXME") (if (not ...) (setq line ...)) (setq start (match-end 0)))) (org-lparse-insert (quote LINE) line)))))
  (let ((case-fold-search nil) (org-odd-levels-only odd)) (mapc (lambda (x) (set (make-local-variable (nth 2 x)) (plist-get opt-plist (car x)))) org-export-plist-vars) (setq umax (if arg (prefix-numeric-value arg) org-export-headline-levels)) (setq umax-toc (if (integerp org-export-with-toc) (min org-export-with-toc umax) umax)) (setq org-lparse-opt-plist (plist-put org-lparse-opt-plist :headline-levels umax)) (when (and org-export-with-toc (not body-only)) (setq lines (org-lparse-prepare-toc lines level-offset opt-plist umax-toc))) (unless body-only (org-lparse-begin (quote DOCUMENT-CONTENT) opt-plist) (org-lparse-begin (quote DOCUMENT-BODY) opt-plist)) (setq head-count 0) (org-init-section-numbers) (org-lparse-begin-paragraph) (while (setq line (pop lines) origline line) (catch (quote nextline) (when (and (org-lparse-current-environment-p (quote quote)) (string-match org-outline-regexp-bol line)) (org-lparse-end-environment (quote quote))) (when (org-lparse-current-environment-p (quote quote)) (org-lparse-insert (quote LINE) line) (throw (quote nextline) nil)) (when (and org-export-with-fixed-width (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" line)) (when (not (org-lparse-current-environment-p (quote fixedwidth))) (org-lparse-begin-environment (quote fixedwidth))) (org-lparse-insert (quote LINE) (match-string 3 line)) (when (or (not lines) (not (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" ...))) (org-lparse-end-environment (quote fixedwidth))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-native-text) line) (not (< (or ... 10000) (length line)))) (let ((ind (get-text-property 0 ... line))) (org-lparse-begin-environment (quote native)) (org-lparse-insert (quote LINE) line) (while (and lines (or ... ... ...) (or ... ...)) (org-lparse-insert (quote LINE) (pop lines))) (org-lparse-end-environment (quote native))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-protected) line) (not (< (or ... 10000) (length line)))) (let ((ind (get-text-property 0 ... line))) (org-lparse-insert (quote LINE) line) (while (and lines (or ... ... ...) (or ... ...)) (org-lparse-insert (quote LINE) (pop lines)))) (throw (quote nextline) nil)) (when (string-match "^ORG-\\(.+\\)-\\(START\\|END\\)\\([ 	]+.*\\)?$" line) (let* ((style (intern ...)) (env-options-plist (org-lparse-get-block-params ...)) (f (cdr ...))) (when (memq style (append ... ...)) (funcall f style env-options-plist) (throw (quote nextline) nil)))) (when (org-lparse-current-environment-p (quote verse)) (let ((i (org-get-string-indentation line))) (if (> i 0) (setq line (concat ... " " ...))) (unless (string-match "\\\\\\\\[ 	]*$" line) (setq line (concat line "\\\\"))))) (setq start 0) (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ 	]*\n?" line start) (cond ((get-text-property (match-beginning 1) (quote org-protected) line) (setq start (match-end 1))) ((match-end 2) (setq line (replace-match ... t t line))) ((and org-export-with-toc (equal ... 42)) (setq line (replace-match ... t t line))) (t (setq line (replace-match ... t t line))))) (let ((org-lparse-encode-pending t)) (setq line (org-lparse-handle-time-stamps line))) (or (string-match org-table-hline-regexp line) (string-match "^[ 	]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ 	]*$" line) (setq line (org-xml-encode-org-text-skip-links line))) (setq line (org-lparse-format-org-link line opt-plist)) (if (and org-todo-line-regexp (string-match org-todo-line-regexp line) (match-beginning 2)) (setq line (concat (substring line 0 (match-beginning 2)) (org-lparse-format (quote TODO) (match-string 2 line)) (substring line (match-end 2))))) (when org-export-with-footnotes (setq start 0) (while (string-match "\\([^* 	].*?\\)[ 	]*\\[\\([0-9]+\\)\\]" line start) (if (or (get-text-property ... ... line) (not ...)) (setq start (match-end 2)) (let (... refcnt a) (if ... ... ... ...) (setq line ...))))) (cond ((string-match "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ 	]*$" line) (setq level (org-tr-level (- ... ... level-offset)) txt (match-string 2 line)) (if (string-match quote-re0 txt) (setq txt (replace-match "" t t txt))) (if (<= level (max umax umax-toc)) (setq head-count (+ head-count 1))) (unless org-lparse-dyn-first-heading-pos (setq org-lparse-dyn-first-heading-pos (point))) (org-lparse-begin-level level txt umax head-count) (when (string-match quote-re line) (org-lparse-begin-environment (quote quote)))) ((and org-export-with-tables (string-match "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" line)) (when (not table-open) (setq table-open t table-buffer nil table-orig-buffer nil)) (setq table-buffer (cons line table-buffer) table-orig-buffer (cons origline table-orig-buffer)) (when (or (not lines) (not ...)) (setq table-open nil table-buffer (nreverse table-buffer) table-orig-buffer (nreverse table-orig-buffer)) (org-lparse-end-paragraph) (when org-lparse-list-table-p (error "Regular tables are not allowed in a list-table block")) (org-lparse-insert (quote TABLE) table-buffer table-orig-buffer))) (t (when (get-text-property 0 (quote list-item) line) (setq line (org-lparse-export-list-line line ... ... ...))) (when (string-match "^[ 	]*-\\{5,\\}[ 	]*$" line) (with-org-lparse-preserve-paragraph-state (org-lparse-insert ...)) (throw (quote nextline) nil)) (when (string-match "^ [-+*]-\\|^[ 	]*$" line) (when org-lparse-footnote-number (org-lparse-end-footnote-definition org-lparse-footnote-number) (setq org-lparse-footnote-number nil)) (org-lparse-begin-paragraph)) (when org-export-with-footnotes (when (and ... ...) (throw ... nil)) (when (string-match "^[ 	]*\\[\\([0-9]+\\)\\]" line) (org-lparse-end-paragraph) (setq org-lparse-footnote-number ...) (setq line ...) (org-lparse-begin-footnote-definition org-lparse-footnote-number))) (cond ((string-match "\\\\\\\\[ 	]*$" line) (setq line ...)) (org-export-preserve-breaks (setq line ...))) (let ((start 0)) (while (and org-lparse-par-open ...) (error "FIXME") (if ... ...) (setq start ...))) (org-lparse-insert (quote LINE) line))))) (when (org-lparse-current-environment-p (quote quote)) (org-lparse-end-environment (quote quote))) (org-lparse-end-level 1 umax) (when (and (> umax 0) org-lparse-dyn-first-heading-pos) (org-lparse-end-outline-text-or-outline)) (org-lparse-end (quote DOCUMENT-BODY) opt-plist) (unless body-only (org-lparse-end (quote DOCUMENT-CONTENT))) (org-lparse-end (quote EXPORT)) (when org-lparse-collect-buffer (kill-buffer org-lparse-collect-buffer)) (goto-char (point-min)) (or (org-export-push-to-kill-ring (upcase (symbol-name org-lparse-backend))) (message "Exporting... done")) (cond ((not to-buffer) (let ((f (org-lparse-get (quote SAVE-METHOD)))) (or (and f (functionp f) (funcall f filename opt-plist)) (save-buffer))) (or (and (boundp (quote org-lparse-other-backend)) org-lparse-other-backend (not (equal org-lparse-backend org-lparse-other-backend)) (org-lparse-do-convert buffer-file-name (symbol-name org-lparse-other-backend))) (current-buffer))) ((eq to-buffer (quote string)) (prog1 (buffer-substring (point-min) (point-max)) (kill-buffer (current-buffer)))) (t (current-buffer))))
  (let* (hfy-user-sheet-assoc org-lparse-encode-pending org-lparse-par-open (org-lparse-par-open-stashed 0) (org-lparse-list-stack (quote nil)) org-lparse-list-table-p org-lparse-list-table:table-cell-open org-lparse-list-table:table-row org-lparse-list-table:lines org-lparse-outline-text-open (org-lparse-latex-fragment-fallback (or (ignore-errors (org-lparse-get (quote LATEX-FRAGMENT-FALLBACK))) (if (and (org-check-external-command "latex" "" t) (org-check-external-command "dvipng" "" t)) (quote dvipng) (quote verbatim)))) (org-lparse-insert-tag-with-newlines (quote both)) (org-lparse-to-buffer to-buffer) (org-lparse-body-only body-only) (org-lparse-entity-control-callbacks-alist (org-lparse-get (quote ENTITY-CONTROL))) (org-lparse-entity-format-callbacks-alist (org-lparse-get (quote ENTITY-FORMAT))) (opt-plist (org-export-process-option-filters (org-combine-plists (org-default-export-plist) ext-plist (org-infile-export-plist)))) (body-only (or body-only (plist-get opt-plist :body-only))) valid org-lparse-dyn-first-heading-pos (odd org-odd-levels-only) (region-p (org-region-active-p)) (rbeg (and region-p (region-beginning))) (rend (and region-p (region-end))) (subtree-p (if (plist-get opt-plist :ignore-subtree-p) nil (when region-p (save-excursion (goto-char rbeg) (and (org-at-heading-p) (>= ... rend)))))) (level-offset (if subtree-p (save-excursion (goto-char rbeg) (+ (funcall outline-level) (if org-odd-levels-only 1 0))) 0)) (opt-plist (setq org-export-opt-plist (if subtree-p (org-export-add-subtree-options opt-plist rbeg) opt-plist))) (org-current-export-dir (or pub-dir (org-lparse-get (quote EXPORT-DIR) opt-plist))) (org-current-export-file buffer-file-name) (level 0) (line "") (origline "") txt todo (umax nil) (umax-toc nil) (filename (if to-buffer nil (expand-file-name (concat (file-name-sans-extension (or ... ...)) "." (org-lparse-get (quote FILE-NAME-EXTENSION) opt-plist)) (file-name-as-directory (or pub-dir (org-lparse-get ... opt-plist)))))) (current-dir (if buffer-file-name (file-name-directory buffer-file-name) default-directory)) (auto-insert nil) (buffer (if to-buffer (cond ((eq to-buffer (quote string)) (get-buffer-create (org-lparse-get ...))) (t (get-buffer-create to-buffer))) (find-file-noselect (or (let (...) (and f ... ...)) filename)))) (org-levels-open (make-vector org-level-max nil)) (dummy (mapc (lambda (p) (let* ((val ...) (val ...)) (setq opt-plist (plist-put opt-plist p val)))) (quote (:date :author :keywords :description)))) (date (plist-get opt-plist :date)) (date (cond ((and date (string-match "%" date)) (format-time-string date)) (date date) (t (format-time-string "%Y-%m-%d %T %Z")))) (dummy (setq opt-plist (plist-put opt-plist :effective-date date))) (title (org-xml-encode-org-text-skip-links (or (and subtree-p (org-export-get-title-from-subtree)) (plist-get opt-plist :title) (and (not body-only) (not (plist-get opt-plist :skip-before-1st-heading)) (org-export-grab-title-from-buffer)) (and buffer-file-name (file-name-sans-extension (file-name-nondirectory buffer-file-name))) "UNTITLED"))) (dummy (setq opt-plist (plist-put opt-plist :title title))) (html-table-tag (plist-get opt-plist :html-table-tag)) (quote-re0 (concat "^ *" org-quote-string "\\( +\\|[ 	]*$\\)")) (quote-re (format org-heading-keyword-regexp-format org-quote-string)) ...) (let ((inhibit-read-only t)) (org-unmodified (remove-text-properties (point-min) (point-max) (quote (:org-license-to-kill t))))) (message "Exporting...") (org-init-section-numbers) (setq org-lparse-output-buffer buffer) (set-buffer org-lparse-output-buffer) (let ((inhibit-read-only t)) (erase-buffer)) (fundamental-mode) (org-install-letbind) (and (fboundp (quote set-buffer-file-coding-system)) (set-buffer-file-coding-system coding-system-for-write)) (let ((case-fold-search nil) (org-odd-levels-only odd)) (mapc (lambda (x) (set (make-local-variable (nth 2 x)) (plist-get opt-plist (car x)))) org-export-plist-vars) (setq umax (if arg (prefix-numeric-value arg) org-export-headline-levels)) (setq umax-toc (if (integerp org-export-with-toc) (min org-export-with-toc umax) umax)) (setq org-lparse-opt-plist (plist-put org-lparse-opt-plist :headline-levels umax)) (when (and org-export-with-toc (not body-only)) (setq lines (org-lparse-prepare-toc lines level-offset opt-plist umax-toc))) (unless body-only (org-lparse-begin (quote DOCUMENT-CONTENT) opt-plist) (org-lparse-begin (quote DOCUMENT-BODY) opt-plist)) (setq head-count 0) (org-init-section-numbers) (org-lparse-begin-paragraph) (while (setq line (pop lines) origline line) (catch (quote nextline) (when (and (org-lparse-current-environment-p (quote quote)) (string-match org-outline-regexp-bol line)) (org-lparse-end-environment (quote quote))) (when (org-lparse-current-environment-p (quote quote)) (org-lparse-insert (quote LINE) line) (throw (quote nextline) nil)) (when (and org-export-with-fixed-width (string-match "^[ 	]*:\\(\\([ 	]\\|$\\)\\(.*\\)\\)" line)) (when (not (org-lparse-current-environment-p ...)) (org-lparse-begin-environment (quote fixedwidth))) (org-lparse-insert (quote LINE) (match-string 3 line)) (when (or (not lines) (not ...)) (org-lparse-end-environment (quote fixedwidth))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-native-text) line) (not (< ... ...))) (let ((ind ...)) (org-lparse-begin-environment (quote native)) (org-lparse-insert (quote LINE) line) (while (and lines ... ...) (org-lparse-insert ... ...)) (org-lparse-end-environment (quote native))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote org-protected) line) (not (< ... ...))) (let ((ind ...)) (org-lparse-insert (quote LINE) line) (while (and lines ... ...) (org-lparse-insert ... ...))) (throw (quote nextline) nil)) (when (string-match "^ORG-\\(.+\\)-\\(START\\|END\\)\\([ 	]+.*\\)?$" line) (let* ((style ...) (env-options-plist ...) (f ...)) (when (memq style ...) (funcall f style env-options-plist) (throw ... nil)))) (when (org-lparse-current-environment-p (quote verse)) (let ((i ...)) (if (> i 0) (setq line ...)) (unless (string-match "\\\\\\\\[ 	]*$" line) (setq line ...)))) (setq start 0) (while (string-match "<<<?\\([^<>]*\\)>>>?\\((INVISIBLE)\\)?[ 	]*\n?" line start) (cond ((get-text-property ... ... line) (setq start ...)) ((match-end 2) (setq line ...)) ((and org-export-with-toc ...) (setq line ...)) (t (setq line ...)))) (let ((org-lparse-encode-pending t)) (setq line (org-lparse-handle-time-stamps line))) (or (string-match org-table-hline-regexp line) (string-match "^[ 	]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ 	]*$" line) (setq line (org-xml-encode-org-text-skip-links line))) (setq line (org-lparse-format-org-link line opt-plist)) (if (and org-todo-line-regexp (string-match org-todo-line-regexp line) (match-beginning 2)) (setq line (concat (substring line 0 ...) (org-lparse-format ... ...) (substring line ...)))) (when org-export-with-footnotes (setq start 0) (while (string-match "\\([^* 	].*?\\)[ 	]*\\[\\([0-9]+\\)\\]" line start) (if (or ... ...) (setq start ...) (let ... ... ...)))) (cond ((string-match "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ 	]*$" line) (setq level (org-tr-level ...) txt (match-string 2 line)) (if (string-match quote-re0 txt) (setq txt ...)) (if (<= level ...) (setq head-count ...)) (unless org-lparse-dyn-first-heading-pos (setq org-lparse-dyn-first-heading-pos ...)) (org-lparse-begin-level level txt umax head-count) (when (string-match quote-re line) (org-lparse-begin-environment ...))) ((and org-export-with-tables (string-match "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" line)) (when (not table-open) (setq table-open t table-buffer nil table-orig-buffer nil)) (setq table-buffer (cons line table-buffer) table-orig-buffer (cons origline table-orig-buffer)) (when (or ... ...) (setq table-open nil table-buffer ... table-orig-buffer ...) (org-lparse-end-paragraph) (when org-lparse-list-table-p ...) (org-lparse-insert ... table-buffer table-orig-buffer))) (t (when (get-text-property 0 ... line) (setq line ...)) (when (string-match "^[ 	]*-\\{5,\\}[ 	]*$" line) (with-org-lparse-preserve-paragraph-state ...) (throw ... nil)) (when (string-match "^ [-+*]-\\|^[ 	]*$" line) (when org-lparse-footnote-number ... ...) (org-lparse-begin-paragraph)) (when org-export-with-footnotes (when ... ...) (when ... ... ... ... ...)) (cond (... ...) (org-export-preserve-breaks ...)) (let (...) (while ... ... ... ...)) (org-lparse-insert (quote LINE) line))))) (when (org-lparse-current-environment-p (quote quote)) (org-lparse-end-environment (quote quote))) (org-lparse-end-level 1 umax) (when (and (> umax 0) org-lparse-dyn-first-heading-pos) (org-lparse-end-outline-text-or-outline)) (org-lparse-end (quote DOCUMENT-BODY) opt-plist) (unless body-only (org-lparse-end (quote DOCUMENT-CONTENT))) (org-lparse-end (quote EXPORT)) (when org-lparse-collect-buffer (kill-buffer org-lparse-collect-buffer)) (goto-char (point-min)) (or (org-export-push-to-kill-ring (upcase (symbol-name org-lparse-backend))) (message "Exporting... done")) (cond ((not to-buffer) (let ((f (org-lparse-get ...))) (or (and f (functionp f) (funcall f filename opt-plist)) (save-buffer))) (or (and (boundp (quote org-lparse-other-backend)) org-lparse-other-backend (not (equal org-lparse-backend org-lparse-other-backend)) (org-lparse-do-convert buffer-file-name (symbol-name org-lparse-other-backend))) (current-buffer))) ((eq to-buffer (quote string)) (prog1 (buffer-substring (point-min) (point-max)) (kill-buffer (current-buffer)))) (t (current-buffer)))))
  org-do-lparse(nil hidden nil nil nil nil)
  (let* ((org-lparse-backend (intern native-backend)) (org-lparse-other-backend (and target-backend (intern target-backend)))) (unless (org-lparse-backend-is-native-p native-backend) (error "Don't know how to export natively to backend %s" native-backend)) (unless (or (equal native-backend target-backend) (org-lparse-reachable-p native-backend target-backend)) (error "Don't know how to export to backend %s %s" target-backend (format "via %s" native-backend))) (run-hooks (quote org-export-first-hook)) (org-do-lparse arg hidden ext-plist to-buffer body-only pub-dir))
  org-lparse("odt" "odt" nil hidden)
  (or file-or-buf (org-lparse target-backend native-backend arg (quote hidden)))
  (let (f (file-or-buf (or file-or-buf (org-lparse target-backend native-backend arg (quote hidden))))) (when file-or-buf (setq f (cond ((bufferp file-or-buf) buffer-file-name) ((file-exists-p file-or-buf) file-or-buf) (t (error "org-lparse-and-open: This shouldn't happen")))) (message "Opening file %s" f) (org-open-file f) (when org-export-kill-product-buffer-when-displayed (kill-buffer (current-buffer)))))
  org-lparse-and-open("odt" "odt" nil)
  org-export-as-odt-and-open(nil)
  call-interactively(org-export-as-odt-and-open)
  (if (and bg (nth 2 ass) (not (buffer-base-buffer)) (not (org-region-active-p))) (let ((p (start-process (concat "Exporting " (file-name-nondirectory (buffer-file-name))) "*Org Processes*" (expand-file-name invocation-name invocation-directory) "-batch" "-l" user-init-file "--eval" "(require 'org-exp)" "--eval" "(setq org-wait .2)" (buffer-file-name) "-f" (symbol-name (nth 1 ass))))) (set-process-sentinel p (quote org-export-process-sentinel)) (message "Background process \"%s\": started" p)) (if subtree-p (progn (org-mark-subtree) (org-activate-mark))) (call-interactively (nth 1 ass)) (when (and bpos (get-buffer-window cbuf)) (let ((cw (selected-window))) (select-window (get-buffer-window cbuf)) (goto-char cpos) (deactivate-mark) (select-window cw))))
  (let* ((bg (org-xor (equal arg (quote (16))) org-export-run-in-background)) (subtree-p (or (org-region-active-p) (eq org-export-initial-scope (quote subtree)))) (help "[t]   insert the export option template\n[v]   limit export to visible part of outline tree\n[1]   switch buffer/subtree export\n[SPC] publish enclosing subtree (with LaTeX_CLASS or EXPORT_FILE_NAME prop)\n\n[a/n/u] export as ASCII/Latin-1/UTF-8         [A/N/U] to temporary buffer\n\n[h] export as HTML      [H] to temporary buffer   [R] export region\n[b] export as HTML and open in browser\n\n[l] export as LaTeX     [L] to temporary buffer\n[p] export as LaTeX and process to PDF            [d] ... and open PDF file\n\n[D] export as DocBook   [V] export as DocBook, process to PDF, and open\n\n[o] export as OpenDocument Text                   [O] ... and open\n\n[j] export as TaskJuggler                         [J] ... and open\n\n[m] export as Freemind mind map\n[x] export as XOXO\n[g] export using Wes Hardaker's generic exporter\n\n[i] export current file as iCalendar file\n[I] export all agenda files as iCalendar files   [c] ...as one combined file\n\n[F] publish current file          [P] publish current project\n[X] publish a project...          [E] publish every projects") (cmds (quote ((116 org-insert-export-options-template nil) (118 org-export-visible nil) (97 org-export-as-ascii t) (65 org-export-as-ascii-to-buffer t) (110 org-export-as-latin1 t) (78 org-export-as-latin1-to-buffer t) (117 org-export-as-utf8 t) (85 org-export-as-utf8-to-buffer t) (104 org-export-as-html t) (98 org-export-as-html-and-open t) (72 org-export-as-html-to-buffer nil) (82 org-export-region-as-html nil) (120 org-export-as-xoxo t) (103 org-export-generic t) (68 org-export-as-docbook t) (86 org-export-as-docbook-pdf-and-open t) (111 org-export-as-odt t) (79 org-export-as-odt-and-open t) (106 org-export-as-taskjuggler t) (74 org-export-as-taskjuggler-and-open t) (109 org-export-as-freemind t) (108 org-export-as-latex t) (112 org-export-as-pdf t) (100 org-export-as-pdf-and-open t) (76 org-export-as-latex-to-buffer nil) (105 org-export-icalendar-this-file t) (73 org-export-icalendar-all-agenda-files t) (99 org-export-icalendar-combine-agenda-files t) (70 org-publish-current-file t) (80 org-publish-current-project t) (88 org-publish t) (69 org-publish-all t)))) r1 r2 ass (cpos (point)) (cbuf (current-buffer)) bpos) (save-excursion (save-window-excursion (if subtree-p (message "Export subtree: ") (message "Export buffer: ")) (delete-other-windows) (with-output-to-temp-buffer "*Org Export/Publishing Help*" (princ help)) (org-fit-window-to-buffer (get-buffer-window "*Org Export/Publishing Help*")) (while (eq (setq r1 (read-char-exclusive)) 49) (cond (subtree-p (setq subtree-p nil) (message "Export buffer: ")) ((not subtree-p) (setq subtree-p t) (setq bpos (point)) (message "Export subtree: ")))) (when (eq r1 32) (let ((case-fold-search t) (end (save-excursion ... ...))) (outline-next-heading) (if (re-search-backward "^[ 	]+\\(:latex_class:\\|:export_title:\\|:export_file_name:\\)[ 	]+\\S-" end t) (progn (org-back-to-heading t) (setq subtree-p t) (setq bpos ...) (message "Select command (for subtree): ") (setq r1 ...)) (error "No enclosing node with LaTeX_CLASS or EXPORT_TITLE or EXPORT_FILE_NAME")))))) (if (fboundp (quote redisplay)) (redisplay)) (and bpos (goto-char bpos)) (setq r2 (if (< r1 27) (+ r1 96) r1)) (unless (setq ass (assq r2 cmds)) (error "No command associated with key %c" r1)) (if (and bg (nth 2 ass) (not (buffer-base-buffer)) (not (org-region-active-p))) (let ((p (start-process (concat "Exporting " (file-name-nondirectory ...)) "*Org Processes*" (expand-file-name invocation-name invocation-directory) "-batch" "-l" user-init-file "--eval" "(require 'org-exp)" "--eval" "(setq org-wait .2)" (buffer-file-name) "-f" (symbol-name (nth 1 ass))))) (set-process-sentinel p (quote org-export-process-sentinel)) (message "Background process \"%s\": started" p)) (if subtree-p (progn (org-mark-subtree) (org-activate-mark))) (call-interactively (nth 1 ass)) (when (and bpos (get-buffer-window cbuf)) (let ((cw (selected-window))) (select-window (get-buffer-window cbuf)) (goto-char cpos) (deactivate-mark) (select-window cw)))))
  org-export(nil)
  call-interactively(org-export nil nil)
--8<---------------cut here---------------end--------------->8---

Am I missing something?

Best regards,
  Seb

-- 
Sebastien Vauban

Re: [LibreOffice] (void-variable org-line)

[Jambunathan K]

> Debugger entered--Lisp error: (error "Cannot determine style name for
> entity default of type character")

I have pushed a fix.  The problem is:

There is a string that matches `org-emph-re'.  (May be you are using
@...@ for marking things specially).  But there is no entry for it in
`org-lparse-char-styles'.  Since a style name was not found, org-odt.el
is complaining.  For now, such text spans will be marked with "Default"
character style.

If you want them to be marked with emphasis (or any of the known styles)
then do,

 (eval-after-load 'org-lparse
   '(push (quote ("@" emphasis)) org-lparse-char-styles))

If want to roll out your own style (for example highlight the text
span), you need to add relevant entries to `org-lparse-char-styles',
`org-export-odt-default-org-styles-alist' and also the styles.xml.
i.e., changes are going to be a bit elaborate.

Jambunathan K.










-- 

Re: [LibreOffice] (void-variable org-line)

[Sebastien Vauban]

Hi Jambunathan,

Jambunathan K wrote:
>> Debugger entered--Lisp error: (error "Cannot determine style name for
>> entity default of type character")
>
> I have pushed a fix.  The problem is:
>
> There is a string that matches `org-emph-re'. (May be you are using @...@
> for marking things specially).

You must have a crystal ball... That's exactly it -- and I would never have
thought at that, despite the message.

> But there is no entry for it in `org-lparse-char-styles'. Since a style name
> was not found, org-odt.el is complaining. For now, such text spans will be
> marked with "Default" character style.
>
> If you want them to be marked with emphasis (or any of the known styles)
> then do,
>
>  (eval-after-load 'org-lparse
>    '(push (quote ("@" emphasis)) org-lparse-char-styles))
>
> If want to roll out your own style (for example highlight the text span),
> you need to add relevant entries to `org-lparse-char-styles',
> `org-export-odt-default-org-styles-alist' and also the styles.xml. i.e.,
> changes are going to be a bit elaborate.

I've updated Org, and retried the export -- without changing one single line
to my document.

It works perfectly. Thanks a lot, Jambunathan!

Best regards,
  Seb

-- 
Sebastien Vauban