From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: [LibreOffice] (void-variable org-line) Date: Thu, 28 Jun 2012 09:43:37 +0200 Message-ID: <80d34jkhjq.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org 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 (me= ssage "%s" (match-string 1)) (when (equal (match-string 2 org-line) "START"= ) (org-close-par-maybe) (insert "\n
") (org-open-par)) (when (equal (match-string 2 org-line) "END") (or= g-close-par-maybe) (insert "\n
") (org-open-par)) (throw (quote nextli= ne) nil))) (when (string-match "^ORG-\\(.*\\)-\\(START\\|END\\)$" org-line) (message= "%s" (match-string 1)) (when (equal (match-string 2 org-line) "START") (or= g-close-par-maybe) (insert "\n
") (org-open-par)) (throw (quote nextline) n= il)) 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 (quo= te quote)) (string-match org-outline-regexp-bol line)) (org-lparse-end-envi= ronment (quote quote))) (when (org-lparse-current-environment-p (quote quot= e)) (org-lparse-insert (quote LINE) line) (throw (quote nextline) nil)) (wh= en (and org-export-with-fixed-width (string-match "^[ ]*:\\(\\([ ]\\|$\\)= \\(.*\\)\\)" line)) (when (not (org-lparse-current-environment-p (quote fix= edwidth))) (org-lparse-begin-environment (quote fixedwidth))) (org-lparse-i= nsert (quote LINE) (match-string 3 line)) (when (or (not lines) (not (strin= g-match "^[ ]*:\\(\\([ ]\\|$\\)\\(.*\\)\\)" (car lines)))) (org-lparse-en= d-environment (quote fixedwidth))) (throw (quote nextline) nil)) (when (and= (get-text-property 0 (quote org-native-text) line) (not (< (or (next-singl= e-property-change 0 (quote org-native-text) line) 10000) (length line)))) (= let ((ind (get-text-property 0 (quote original-indentation) line))) (org-lp= arse-begin-environment (quote native)) (org-lparse-insert (quote LINE) line= ) (while (and lines (or (=3D (length ...) 0) (not ind) (equal ind (get-text= -property 0 ... ...))) (or (=3D (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) ni= l)) (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 (=3D (length= ...) 0) (not ind) (equal ind (get-text-property 0 ... ...))) (or (=3D (len= gth ...) 0) (get-text-property 0 (quote org-protected) (car lines)))) (org-= lparse-insert (quote LINE) (pop lines)))) (throw (quote nextline) nil)) (wh= en (string-match "^ORG-\\(.+\\)-\\(START\\|END\\)\\([ ]+.*\\)?$" line) (le= t* ((style (intern (downcase (match-string 1 line)))) (env-options-plist (o= rg-lparse-get-block-params (match-string 3 line))) (f (cdr (assoc (match-st= ring 2 line) (quote ...))))) (when (memq style (append (quote (blockquote v= erse center)) (mapcar (quote intern) org-lparse-special-blocks))) (funcall = f style env-options-plist) (throw (quote nextline) nil)))) (run-hooks (quot= e org-export-html-after-blockquotes-hook)) (when (org-lparse-current-enviro= nment-p (quote verse)) (let ((i (org-get-string-indentation line))) (if (> = i 0) (setq line (concat (let (...) (org-lparse-format ... ...)) " " (org-tr= im line)))) (unless (string-match "\\\\\\\\[ ]*$" line) (setq line (concat= line "\\\\"))))) (setq start 0) (while (string-match "<<]*\\)>>>?= \\((INVISIBLE)\\)?[ ]*\n?" line start) (cond ((get-text-property (match-be= ginning 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)) (s= etq 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-tim= e-stamps line))) (or (string-match org-table-hline-regexp line) (string-mat= ch "^[ ]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ ]*$" line) (setq line (org-xml-enc= ode-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-rege= xp line) (match-beginning 2)) (setq line (concat (substring line 0 (match-b= eginning 2)) (org-lparse-format (quote TODO) (match-string 2 line)) (substr= ing line (match-end 2))))) (when org-export-with-footnotes (setq start 0) (= while (string-match "\\([^* ].*?\\)[ ]*\\[\\([0-9]+\\)\\]" line start) (i= f (or (get-text-property (match-beginning 2) (quote org-protected) line) (n= ot (get-text-property (match-beginning 2) (quote org-footnote) line))) (set= q 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 re= fcnt 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-beginn= ing 1) level-offset)) txt (match-string 2 line)) (if (string-match quote-re= 0 txt) (setq txt (replace-match "" t t txt))) (if (<=3D level (max umax uma= x-toc)) (setq head-count (+ head-count 1))) (unless org-lparse-dyn-first-he= ading-pos (setq org-lparse-dyn-first-heading-pos (point))) (org-lparse-begi= n-level level txt umax head-count) (when (string-match quote-re line) (org-= lparse-begin-environment (quote quote)))) ((and org-export-with-tables (str= ing-match "^\\([ ]*\\)\\(|\\|\\+-+\\+\\)" line)) (when (not table-open) (s= etq table-open t table-buffer nil table-orig-buffer nil)) (setq table-buffe= r (cons line table-buffer) table-orig-buffer (cons origline table-orig-buff= er)) (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-or= ig-buffer))) (t (when (get-text-property 0 (quote list-item) line) (setq li= ne (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,\\}[ ]*$" lin= e) (with-org-lparse-preserve-paragraph-state (org-lparse-insert (quote HORI= ZONTAL-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 "^" foo= tnote-section-tag-regexp) line)) (throw (quote nextline) nil)) (when (strin= g-match "^[ ]*\\[\\([0-9]+\\)\\]" line) (org-lparse-end-paragraph) (setq o= rg-lparse-footnote-number (match-string 1 line)) (setq line (replace-match = "" t t line)) (org-lparse-begin-footnote-definition org-lparse-footnote-num= ber))) (cond ((string-match "\\\\\\\\[ ]*$" line) (setq line (replace-matc= h (org-lparse-format ...) t t line))) (org-export-preserve-breaks (setq lin= e (concat line (org-lparse-format ...))))) (let ((start 0)) (while (and org= -lparse-par-open (string-match "\\\\par\\>" line start)) (error "FIXME") (i= f (not (get-text-property ... ... line)) (setq line (replace-match "

" t t line))) (setq start (match-end 0)))) (org-lparse-insert (quote LINE= ) line)))) (while (setq line (pop lines) origline line) (catch (quote nextline) (whe= n (and (org-lparse-current-environment-p (quote quote)) (string-match org-o= utline-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-e= nvironment (quote fixedwidth))) (org-lparse-insert (quote LINE) (match-stri= ng 3 line)) (when (or (not lines) (not (string-match "^[ ]*:\\(\\([ ]\\|$= \\)\\(.*\\)\\)" (car lines)))) (org-lparse-end-environment (quote fixedwidt= h))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quote o= rg-native-text) line) (not (< (or (next-single-property-change 0 ... line) = 10000) (length line)))) (let ((ind (get-text-property 0 (quote original-ind= entation) line))) (org-lparse-begin-environment (quote native)) (org-lparse= -insert (quote LINE) line) (while (and lines (or (=3D ... 0) (not ind) (equ= al ind ...)) (or (=3D ... 0) (get-text-property 0 ... ...))) (org-lparse-in= sert (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-indentat= ion) line))) (org-lparse-insert (quote LINE) line) (while (and lines (or (= =3D ... 0) (not ind) (equal ind ...)) (or (=3D ... 0) (get-text-property 0 = ... ...))) (org-lparse-insert (quote LINE) (pop lines)))) (throw (quote nex= tline) 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-block= s))) (funcall f style env-options-plist) (throw (quote nextline) nil)))) (r= un-hooks (quote org-export-html-after-blockquotes-hook)) (when (org-lparse-= current-environment-p (quote verse)) (let ((i (org-get-string-indentation l= ine))) (if (> i 0) (setq line (concat (let ... ...) " " (org-trim line)))) = (unless (string-match "\\\\\\\\[ ]*$" line) (setq line (concat line "\\\\"= ))))) (setq start 0) (while (string-match "<<]*\\)>>>?\\((INVISIBL= E)\\)?[ ]*\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 (e= qual (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 li= ne))) (or (string-match org-table-hline-regexp line) (string-match "^[ ]*\= \([+]-\\||[ ]\\)[-+ |]*[+|][ ]*$" line) (setq line (org-xml-encode-org-tex= t-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) (m= atch-beginning 2)) (setq line (concat (substring line 0 (match-beginning 2)= ) (org-lparse-format (quote TODO) (match-string 2 line)) (substring line (m= atch-end 2))))) (when org-export-with-footnotes (setq start 0) (while (stri= ng-match "\\([^* ].*?\\)[ ]*\\[\\([0-9]+\\)\\]" line start) (if (or (get-= text-property (match-beginning 2) (quote org-protected) line) (not (get-tex= t-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 (s= tring-match quote-re0 txt) (setq txt (replace-match "" t t txt))) (if (<=3D= 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-exp= ort-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 orig= line 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-e= nd-paragraph) (when org-lparse-list-table-p (error "Regular tables are not = allowed in a list-table block")) (org-lparse-insert (quote TABLE) table-buf= fer table-orig-buffer))) (t (when (get-text-property 0 (quote list-item) li= ne) (setq line (org-lparse-export-list-line line (get-text-property 0 ... l= ine) (get-text-property 0 ... line) (get-text-property 0 ... line)))) (when= (string-match "^[ ]*-\\{5,\\}[ ]*$" line) (with-org-lparse-preserve-para= graph-state (org-lparse-insert (quote HORIZONTAL-LINE))) (throw (quote next= line) nil)) (when (string-match "^ [-+*]-\\|^[ ]*$" line) (when org-lparse= -footnote-number (org-lparse-end-footnote-definition org-lparse-footnote-nu= mber) (setq org-lparse-footnote-number nil)) (org-lparse-begin-paragraph)) = (when org-export-with-footnotes (when (and (boundp ...) (string-match ... l= ine)) (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-b= egin-footnote-definition org-lparse-footnote-number))) (cond ((string-match= "\\\\\\\\[ ]*$" line) (setq line (replace-match ... t t line))) (org-expo= rt-preserve-breaks (setq line (concat line ...)))) (let ((start 0)) (while = (and org-lparse-par-open (string-match "\\\\par\\>" line start)) (error "FI= XME") (if (not ...) (setq line ...)) (setq start (match-end 0)))) (org-lpar= se-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-e= xport-plist-vars) (setq umax (if arg (prefix-numeric-value arg) org-export-= headline-levels)) (setq umax-toc (if (integerp org-export-with-toc) (min or= g-export-with-toc umax) umax)) (setq org-lparse-opt-plist (plist-put org-lp= arse-opt-plist :headline-levels umax)) (when (and org-export-with-toc (not = body-only)) (setq lines (org-lparse-prepare-toc lines level-offset opt-plis= t umax-toc))) (unless body-only (org-lparse-begin (quote DOCUMENT-CONTENT) = opt-plist) (org-lparse-begin (quote DOCUMENT-BODY) opt-plist)) (setq head-c= ount 0) (org-init-section-numbers) (org-lparse-begin-paragraph) (while (set= q line (pop lines) origline line) (catch (quote nextline) (when (and (org-l= parse-current-environment-p (quote quote)) (string-match org-outline-regexp= -bol line)) (org-lparse-end-environment (quote quote))) (when (org-lparse-c= urrent-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 (q= uote 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 ne= xtline) 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-lp= arse-insert (quote LINE) (pop lines))) (org-lparse-end-environment (quote n= ative))) (throw (quote nextline) nil)) (when (and (get-text-property 0 (quo= te org-protected) line) (not (< (or ... 10000) (length line)))) (let ((ind = (get-text-property 0 ... line))) (org-lparse-insert (quote LINE) line) (whi= le (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 (q= uote 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 "<<]*\\)>>>?\\((INVIS= IBLE)\\)?[ ]*\n?" line start) (cond ((get-text-property (match-beginning 1= ) (quote org-protected) line) (setq start (match-end 1))) ((match-end 2) (s= etq line (replace-match ... t t line))) ((and org-export-with-toc (equal ..= . 42)) (setq line (replace-match ... t t line))) (t (setq line (replace-mat= ch ... t t line))))) (let ((org-lparse-encode-pending t)) (setq line (org-l= parse-handle-time-stamps line))) (or (string-match org-table-hline-regexp l= ine) (string-match "^[ ]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ ]*$" line) (setq l= ine (org-xml-encode-org-text-skip-links line))) (setq line (org-lparse-form= at-org-link line opt-plist)) (if (and org-todo-line-regexp (string-match or= g-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 sta= rt (match-end 2)) (let (... refcnt a) (if ... ... ... ...) (setq line ...))= ))) (cond ((string-match "^\\(\\*+\\)\\(?: +\\(.*?\\)\\)?[ ]*$" line) (set= q 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= (<=3D level (max umax umax-toc)) (setq head-count (+ head-count 1))) (unle= ss 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 o= rg-export-with-tables (string-match "^\\([ ]*\\)\\(|\\|\\+-+\\+\\)" line))= (when (not table-open) (setq table-open t table-buffer nil table-orig-buff= er nil)) (setq table-buffer (cons line table-buffer) table-orig-buffer (con= s 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-lpar= se-insert (quote TABLE) table-buffer table-orig-buffer))) (t (when (get-tex= t-property 0 (quote list-item) line) (setq line (org-lparse-export-list-lin= e line ... ... ...))) (when (string-match "^[ ]*-\\{5,\\}[ ]*$" line) (wi= th-org-lparse-preserve-paragraph-state (org-lparse-insert ...)) (throw (quo= te nextline) nil)) (when (string-match "^ [-+*]-\\|^[ ]*$" line) (when org= -lparse-footnote-number (org-lparse-end-footnote-definition org-lparse-foot= note-number) (setq org-lparse-footnote-number nil)) (org-lparse-begin-parag= raph)) (when org-export-with-footnotes (when (and ... ...) (throw ... nil))= (when (string-match "^[ ]*\\[\\([0-9]+\\)\\]" line) (org-lparse-end-parag= raph) (setq org-lparse-footnote-number ...) (setq line ...) (org-lparse-beg= in-footnote-definition org-lparse-footnote-number))) (cond ((string-match "= \\\\\\\\[ ]*$" line) (setq line ...)) (org-export-preserve-breaks (setq li= ne ...))) (let ((start 0)) (while (and org-lparse-par-open ...) (error "FIX= ME") (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 (> uma= x 0) org-lparse-dyn-first-heading-pos) (org-lparse-end-outline-text-or-outl= ine)) (org-lparse-end (quote DOCUMENT-BODY) opt-plist) (unless body-only (o= rg-lparse-end (quote DOCUMENT-CONTENT))) (org-lparse-end (quote EXPORT)) (w= hen org-lparse-collect-buffer (kill-buffer org-lparse-collect-buffer)) (got= o-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-back= end org-lparse-other-backend)) (org-lparse-do-convert buffer-file-name (sym= bol-name org-lparse-other-backend))) (current-buffer))) ((eq to-buffer (quo= te 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-lp= arse-list-table-p org-lparse-list-table:table-cell-open org-lparse-list-tab= le:table-row org-lparse-list-table:lines org-lparse-outline-text-open (org-= lparse-latex-fragment-fallback (or (ignore-errors (org-lparse-get (quote LA= TEX-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-buff= er to-buffer) (org-lparse-body-only body-only) (org-lparse-entity-control-c= allbacks-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-p= list) ext-plist (org-infile-export-plist)))) (body-only (or body-only (plis= t-get opt-plist :body-only))) valid org-lparse-dyn-first-heading-pos (odd o= rg-odd-levels-only) (region-p (org-region-active-p)) (rbeg (and region-p (r= egion-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) (>=3D ... rend)))))) (level-offset (if s= ubtree-p (save-excursion (goto-char rbeg) (+ (funcall outline-level) (if or= g-odd-levels-only 1 0))) 0)) (opt-plist (setq org-export-opt-plist (if subt= ree-p (org-export-add-subtree-options opt-plist rbeg) opt-plist))) (org-cur= rent-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-f= ile-name (concat (file-name-sans-extension (or ... ...)) "." (org-lparse-ge= t (quote FILE-NAME-EXTENSION) opt-plist)) (file-name-as-directory (or pub-d= ir (org-lparse-get ... opt-plist)))))) (current-dir (if buffer-file-name (f= ile-name-directory buffer-file-name) default-directory)) (auto-insert nil) = (buffer (if to-buffer (cond ((eq to-buffer (quote string)) (get-buffer-crea= te (org-lparse-get ...))) (t (get-buffer-create to-buffer))) (find-file-nos= elect (or (let (...) (and f ... ...)) filename)))) (org-levels-open (make-v= ector org-level-max nil)) (dummy (mapc (lambda (p) (let* ((val ...) (val ..= .)) (setq opt-plist (plist-put opt-plist p val)))) (quote (:date :author :k= eywords :description)))) (date (plist-get opt-plist :date)) (date (cond ((a= nd 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-link= s (or (and subtree-p (org-export-get-title-from-subtree)) (plist-get opt-pl= ist :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-qu= ote-string "\\( +\\|[ ]*$\\)")) (quote-re (format org-heading-keyword-rege= xp-format org-quote-string)) ...) (let ((inhibit-read-only t)) (org-unmodif= ied (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 ((i= nhibit-read-only t)) (erase-buffer)) (fundamental-mode) (org-install-letbin= d) (and (fboundp (quote set-buffer-file-coding-system)) (set-buffer-file-co= ding-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 (p= refix-numeric-value arg) org-export-headline-levels)) (setq umax-toc (if (i= ntegerp org-export-with-toc) (min org-export-with-toc umax) umax)) (setq or= g-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-pre= pare-toc lines level-offset opt-plist umax-toc))) (unless body-only (org-lp= arse-begin (quote DOCUMENT-CONTENT) opt-plist) (org-lparse-begin (quote DOC= UMENT-BODY) opt-plist)) (setq head-count 0) (org-init-section-numbers) (org= -lparse-begin-paragraph) (while (setq line (pop lines) origline line) (catc= h (quote nextline) (when (and (org-lparse-current-environment-p (quote quot= e)) (string-match org-outline-regexp-bol line)) (org-lparse-end-environment= (quote quote))) (when (org-lparse-current-environment-p (quote quote)) (or= g-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) (ma= tch-string 3 line)) (when (or (not lines) (not ...)) (org-lparse-end-enviro= nment (quote fixedwidth))) (throw (quote nextline) nil)) (when (and (get-te= xt-property 0 (quote org-native-text) line) (not (< ... ...))) (let ((ind .= ..)) (org-lparse-begin-environment (quote native)) (org-lparse-insert (quot= e 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 (st= ring-match "^ORG-\\(.+\\)-\\(START\\|END\\)\\([ ]+.*\\)?$" line) (let* ((s= tyle ...) (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 (quot= e verse)) (let ((i ...)) (if (> i 0) (setq line ...)) (unless (string-match= "\\\\\\\\[ ]*$" line) (setq line ...)))) (setq start 0) (while (string-ma= tch "<<]*\\)>>>?\\((INVISIBLE)\\)?[ ]*\n?" line start) (cond ((ge= t-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-sta= mps line))) (or (string-match org-table-hline-regexp line) (string-match "^= [ ]*\\([+]-\\||[ ]\\)[-+ |]*[+|][ ]*$" line) (setq line (org-xml-encode-o= rg-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 li= ne) (match-beginning 2)) (setq line (concat (substring line 0 ...) (org-lpa= rse-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 tx= t) (setq txt ...)) (if (<=3D 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-ope= n) (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-or= ig-buffer ...) (org-lparse-end-paragraph) (when org-lparse-list-table-p ...= ) (org-lparse-insert ... table-buffer table-orig-buffer))) (t (when (get-te= xt-property 0 ... line) (setq line ...)) (when (string-match "^[ ]*-\\{5,\= \}[ ]*$" line) (with-org-lparse-preserve-paragraph-state ...) (throw ... n= il)) (when (string-match "^ [-+*]-\\|^[ ]*$" line) (when org-lparse-footno= te-number ... ...) (org-lparse-begin-paragraph)) (when org-export-with-foot= notes (when ... ...) (when ... ... ... ... ...)) (cond (... ...) (org-expor= t-preserve-breaks ...)) (let (...) (while ... ... ... ...)) (org-lparse-ins= ert (quote LINE) line))))) (when (org-lparse-current-environment-p (quote q= uote)) (org-lparse-end-environment (quote quote))) (org-lparse-end-level 1 = umax) (when (and (> umax 0) org-lparse-dyn-first-heading-pos) (org-lparse-e= nd-outline-text-or-outline)) (org-lparse-end (quote DOCUMENT-BODY) opt-plis= t) (unless body-only (org-lparse-end (quote DOCUMENT-CONTENT))) (org-lparse= -end (quote EXPORT)) (when org-lparse-collect-buffer (kill-buffer org-lpars= e-collect-buffer)) (goto-char (point-min)) (or (org-export-push-to-kill-rin= g (upcase (symbol-name org-lparse-backend))) (message "Exporting... done"))= (cond ((not to-buffer) (let ((f (org-lparse-get ...))) (or (and f (functio= np f) (funcall f filename opt-plist)) (save-buffer))) (or (and (boundp (quo= te org-lparse-other-backend)) org-lparse-other-backend (not (equal org-lpar= se-backend org-lparse-other-backend)) (org-lparse-do-convert buffer-file-na= me (symbol-name org-lparse-other-backend))) (current-buffer))) ((eq to-buff= er (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-bac= kend (and target-backend (intern target-backend)))) (unless (org-lparse-bac= kend-is-native-p native-backend) (error "Don't know how to export natively = to backend %s" native-backend)) (unless (or (equal native-backend target-ba= ckend) (org-lparse-reachable-p native-backend target-backend)) (error "Don'= t know how to export to backend %s %s" target-backend (format "via %s" nati= ve-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 hidd= en))) (let (f (file-or-buf (or file-or-buf (org-lparse target-backend native-ba= ckend 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 (er= ror "org-lparse-and-open: This shouldn't happen")))) (message "Opening file= %s" f) (org-open-file f) (when org-export-kill-product-buffer-when-display= ed (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-activ= e-p))) (let ((p (start-process (concat "Exporting " (file-name-nondirectory= (buffer-file-name))) "*Org Processes*" (expand-file-name invocation-name i= nvocation-directory) "-batch" "-l" user-init-file "--eval" "(require 'org-e= xp)" "--eval" "(setq org-wait .2)" (buffer-file-name) "-f" (symbol-name (nt= h 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-w= indow (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 ex= port 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 buffe= r\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 tem= porary buffer\n[p] export as LaTeX and process to PDF [d] ... an= d open PDF file\n\n[D] export as DocBook [V] export as DocBook, process t= o 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 us= ing 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 combi= ned 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-e= xport-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 o= rg-export-region-as-html nil) (120 org-export-as-xoxo t) (103 org-export-ge= neric t) (68 org-export-as-docbook t) (86 org-export-as-docbook-pdf-and-ope= n t) (111 org-export-as-odt t) (79 org-export-as-odt-and-open t) (106 org-e= xport-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-c= urrent-file t) (80 org-publish-current-project t) (88 org-publish t) (69 or= g-publish-all t)))) r1 r2 ass (cpos (point)) (cbuf (current-buffer)) bpos) = (save-excursion (save-window-excursion (if subtree-p (message "Export subtr= ee: ") (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 (set= q r1 (read-char-exclusive)) 49) (cond (subtree-p (setq subtree-p nil) (mess= age "Export buffer: ")) ((not subtree-p) (setq subtree-p t) (setq bpos (poi= nt)) (message "Export subtree: ")))) (when (eq r1 32) (let ((case-fold-sear= ch 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 bp= os ...) (message "Select command (for subtree): ") (setq r1 ...)) (error "N= o 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)) (er= ror "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-fi= le "--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-inter= actively (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/sr= c/org-mode/lisp/) Best regards, Seb --=20 Sebastien Vauban