From mboxrd@z Thu Jan 1 00:00:00 1970 From: Thomas Holst Subject: [new exporter] fails on double backslashes Date: Tue, 17 Jul 2012 11:05:34 +0200 Message-ID: Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=Multipart0o0o0o0o0o0o0o" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:40659) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Sr3r0-0002iv-8E for emacs-orgmode@gnu.org; Tue, 17 Jul 2012 05:14:09 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Sr3qq-0006UA-EU for emacs-orgmode@gnu.org; Tue, 17 Jul 2012 05:14:02 -0400 Received: from imta21.fe.bosch.de ([139.15.243.226]:13233) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Sr3qp-0006Tz-T2 for emacs-orgmode@gnu.org; Tue, 17 Jul 2012 05:13:52 -0400 Received: from smtp2-v.fe.bosch.de (imta23.fe.bosch.de [139.15.243.227]) by imta21.fe.bosch.de (Postfix) with ESMTP id 88CDD280513 for ; Tue, 17 Jul 2012 11:06:15 +0200 (CEST) Received: from vsmta11.fe.internet.bosch.com (unknown [10.4.98.30]) by imta23.fe.bosch.de (Postfix) with ESMTP id 0458328C0218 for ; Tue, 17 Jul 2012 11:06:13 +0200 (CEST) Received: from localhost (vsgw4.fe.internet.bosch.com [10.4.98.12]) by vsmta11.fe.internet.bosch.com (Postfix) with SMTP id 0C76443C0290 for ; Tue, 17 Jul 2012 11:06:13 +0200 (CEST) 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@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode Mode --=Multipart0o0o0o0o0o0o0o Content-Type: text/plain Hello, right now I am testing the new exporter. It works very well except on backslashes. Here is a minimal example which shows the problem: #+BEGIN_SRC org #+TITLE: new-exporter.org #+AUTHOR: Thomas Holst #+EMAIL: thomas.holst@de.bosch.com #+DATE: 2012-07-16 Mo #+DESCRIPTION: #+KEYWORDS: #+LANGUAGE: en #+OPTIONS: H:3 num:t toc:t \n:nil @:t ::t |:t ^:{} -:t f:t *:t <:t #+OPTIONS: TeX:t LaTeX:t skip:nil d:t todo:t pri:nil tags:t #+INFOJS_OPT: view:nil toc:nil ltoc:t mouse:underline buttons:0 path:http://orgmode.org/org-info.js #+EXPORT_SELECT_TAGS: export #+EXPORT_EXCLUDE_TAGS: noexport #+LINK_UP: #+LINK_HOME: #+XSLT: * headline some text \\ more text #+END_SRC When I try to export to LaTeX (M-x org-export-dispatch L) there is an error: and: Invalid search bound (wrong side of point) No LaTeX code is produced. This is with emacs -Q and only the relevant org files loaded: emacs-vesion: GNU Emacs 24.0.50.1 (i386-mingw-nt5.1.2600) of 2011-09-19 on 3249CTO org-version: Org-mode version 7.8.11 (release_7.8.11-196-g5dbd13 @ c:/daten/users/de_hts2fe/git/org-mode/lisp/) OS: WinXP (also tested with emacs 23.2) I know that it does not make sense to have an empty line after the backslashes, but I think there should be no error. It only happens when there is an empty line after the backslashes. Without the empty line there is no error. Backtrace: --=Multipart0o0o0o0o0o0o0o Content-Type: text/plain Content-Disposition: inline; filename="backtrace" Content-Transfer-Encoding: quoted-printable Content-Description: backtrace of error Debugger entered--Lisp error: (error "Invalid search bound (wrong side of p= oint)") re-search-forward("[^\\\\]\\(\\\\\\\\\\)[ ]*$" 518 t) (and (re-search-forward "[^\\\\]\\(\\\\\\\\\\)[ ]*$" limit t) (goto-char= (match-beginning 1))) (let ((beg (and (re-search-forward "[^\\\\]\\(\\\\\\\\\\)[ ]*$" limit t)= (goto-char (match-beginning 1))))) (when (and beg (re-search-backward "\\S= -" (point-at-bol) t)) (cons (quote line-break) beg))) (save-excursion (let ((beg (and (re-search-forward "[^\\\\]\\(\\\\\\\\\\)= [ ]*$" limit t) (goto-char (match-beginning 1))))) (when (and beg (re-sear= ch-backward "\\S-" (point-at-bol) t)) (cons (quote line-break) beg)))) org-element-line-break-successor(518) funcall(org-element-line-break-successor 518) (let* ((successor-fun (intern (format "org-element-%s-successor" (or (cdr= (assq type org-element-object-successor-alist)) type)))) (obj (funcall suc= cessor-fun limit))) (and obj (push obj next-candidates))) (lambda (type) (let* ((successor-fun (intern (format "org-element-%s-succ= essor" (or (cdr ...) type)))) (obj (funcall successor-fun limit))) (and obj= (push obj next-candidates))))(line-break) mapc((lambda (type) (let* ((successor-fun (intern (format "org-element-%s= -successor" (or (cdr ...) type)))) (obj (funcall successor-fun limit))) (an= d obj (push obj next-candidates)))) (line-break)) (let (next-candidates types-to-search) (if (not objects) (setq types-to-s= earch restriction) (mapc (lambda (obj) (if (< (cdr obj) (point)) (push (car= obj) types-to-search) (push obj next-candidates))) objects)) (mapc (lambda= (type) (let* ((successor-fun (intern (format "org-element-%s-successor" ..= .))) (obj (funcall successor-fun limit))) (and obj (push obj next-candidate= s)))) types-to-search) next-candidates) org-element-get-next-object-candidates(518 (export-snippet footnote-refer= ence inline-babel-call inline-src-block latex-or-entity line-break link mac= ro radio-target statistics-cookie sub/superscript target text-markup timest= amp) ((line-break . 516))) (setq candidates (org-element-get-next-object-candidates end restriction = candidates)) (while (setq candidates (org-element-get-next-object-candidates end restr= iction candidates)) (let ((next-object (let ((pos (apply ... ...))) (save-e= xcursion (goto-char pos) (funcall (intern ...)))))) (let ((obj-beg (org-ele= ment-property :begin next-object))) (unless (=3D (point) obj-beg) (setq acc= (org-element-adopt-element acc (replace-regexp-in-string " " (make-string = tab-width 32) (buffer-substring-no-properties ... obj-beg)) t)))) (let ((ob= j-end (org-element-property :end next-object)) (cont-beg (org-element-prope= rty :contents-begin next-object))) (when (and (memq (car next-object) org-e= lement-recursive-objects) cont-beg) (save-restriction (narrow-to-region con= t-beg (org-element-property :contents-end next-object)) (org-element-parse-= objects (point-min) (point-max) next-object (org-element-restriction next-o= bject)))) (setq acc (org-element-adopt-element acc next-object t)) (goto-ch= ar obj-end)))) (save-excursion (goto-char beg) (while (setq candidates (org-element-get-= next-object-candidates end restriction candidates)) (let ((next-object (let= ((pos ...)) (save-excursion (goto-char pos) (funcall ...))))) (let ((obj-b= eg (org-element-property :begin next-object))) (unless (=3D (point) obj-beg= ) (setq acc (org-element-adopt-element acc (replace-regexp-in-string " " ..= . ...) t)))) (let ((obj-end (org-element-property :end next-object)) (cont-= beg (org-element-property :contents-begin next-object))) (when (and (memq (= car next-object) org-element-recursive-objects) cont-beg) (save-restriction= (narrow-to-region cont-beg (org-element-property :contents-end next-object= )) (org-element-parse-objects (point-min) (point-max) next-object (org-elem= ent-restriction next-object)))) (setq acc (org-element-adopt-element acc ne= xt-object t)) (goto-char obj-end)))) (unless (=3D (point) end) (setq acc (o= rg-element-adopt-element acc (replace-regexp-in-string " " (make-string tab= -width 32) (buffer-substring-no-properties (point) end)) t))) acc) (let (candidates) (save-excursion (goto-char beg) (while (setq candidates= (org-element-get-next-object-candidates end restriction candidates)) (let = ((next-object (let (...) (save-excursion ... ...)))) (let ((obj-beg (org-el= ement-property :begin next-object))) (unless (=3D (point) obj-beg) (setq ac= c (org-element-adopt-element acc ... t)))) (let ((obj-end (org-element-prop= erty :end next-object)) (cont-beg (org-element-property :contents-begin nex= t-object))) (when (and (memq ... org-element-recursive-objects) cont-beg) (= save-restriction (narrow-to-region cont-beg ...) (org-element-parse-objects= ... ... next-object ...))) (setq acc (org-element-adopt-element acc next-o= bject t)) (goto-char obj-end)))) (unless (=3D (point) end) (setq acc (org-e= lement-adopt-element acc (replace-regexp-in-string " " (make-string tab-wid= th 32) (buffer-substring-no-properties (point) end)) t))) acc)) org-element-parse-objects(506 518 (paragraph (:begin 506 :end 520 :conten= ts-begin 506 :contents-end 518 :post-blank 1) "some text " (line-break (:be= gin 516 :end 519 :post-blank 0 :parent #0))) (export-snippet footnote-refer= ence inline-babel-call inline-src-block latex-or-entity line-break link mac= ro radio-target statistics-cookie sub/superscript target text-markup timest= amp)) (cond ((or (and visible-only (org-element-property :hiddenp element)) (no= t cbeg))) ((and (memq type org-element-greater-elements) (or (memq granular= ity (quote (element object nil))) (and (eq granularity (quote greater-eleme= nt)) (eq type (quote section))) (eq type (quote headline)))) (org-element-p= arse-elements cbeg (org-element-property :contents-end element) (case type = (headline (if (org-element-property :quotedp element) (quote quote-section)= (quote section))) (plain-list (quote item)) (table (quote table-row))) (or= g-element-property :structure element) granularity visible-only element)) (= (memq granularity (quote (object nil))) (org-element-parse-objects cbeg (or= g-element-property :contents-end element) element (org-element-restriction = type)))) (let* ((element (org-element-current-element end granularity special stru= cture)) (type (org-element-type element)) (cbeg (org-element-property :cont= ents-begin element))) (goto-char (org-element-property :end element)) (cond= ((or (and visible-only (org-element-property :hiddenp element)) (not cbeg)= )) ((and (memq type org-element-greater-elements) (or (memq granularity (qu= ote (element object nil))) (and (eq granularity (quote greater-element)) (e= q type (quote section))) (eq type (quote headline)))) (org-element-parse-el= ements cbeg (org-element-property :contents-end element) (case type (headli= ne (if (org-element-property :quotedp element) (quote quote-section) (quote= section))) (plain-list (quote item)) (table (quote table-row))) (org-eleme= nt-property :structure element) granularity visible-only element)) ((memq g= ranularity (quote (object nil))) (org-element-parse-objects cbeg (org-eleme= nt-property :contents-end element) element (org-element-restriction type)))= ) (org-element-adopt-element acc element t)) (while (< (point) end) (let* ((element (org-element-current-element end g= ranularity special structure)) (type (org-element-type element)) (cbeg (org= -element-property :contents-begin element))) (goto-char (org-element-proper= ty :end element)) (cond ((or (and visible-only (org-element-property :hidde= np element)) (not cbeg))) ((and (memq type org-element-greater-elements) (o= r (memq granularity (quote ...)) (and (eq granularity ...) (eq type ...)) (= eq type (quote headline)))) (org-element-parse-elements cbeg (org-element-p= roperty :contents-end element) (case type (headline (if ... ... ...)) (plai= n-list (quote item)) (table (quote table-row))) (org-element-property :stru= cture element) granularity visible-only element)) ((memq granularity (quote= (object nil))) (org-element-parse-objects cbeg (org-element-property :cont= ents-end element) element (org-element-restriction type)))) (org-element-ad= opt-element acc element t))) (save-excursion (goto-char beg) (when (and (eq granularity (quote headlin= e)) (not (org-at-heading-p))) (org-with-limited-levels (outline-next-headin= g))) (while (< (point) end) (let* ((element (org-element-current-element en= d granularity special structure)) (type (org-element-type element)) (cbeg (= org-element-property :contents-begin element))) (goto-char (org-element-pro= perty :end element)) (cond ((or (and visible-only (org-element-property :hi= ddenp element)) (not cbeg))) ((and (memq type org-element-greater-elements)= (or (memq granularity ...) (and ... ...) (eq type ...))) (org-element-pars= e-elements cbeg (org-element-property :contents-end element) (case type (he= adline ...) (plain-list ...) (table ...)) (org-element-property :structure = element) granularity visible-only element)) ((memq granularity (quote (obje= ct nil))) (org-element-parse-objects cbeg (org-element-property :contents-e= nd element) element (org-element-restriction type)))) (org-element-adopt-el= ement acc element t))) acc) org-element-parse-elements(506 530 nil nil nil nil (section (:begin 506 := end 530 :contents-begin 506 :contents-end 530 :post-blank 0))) (cond ((or (and visible-only (org-element-property :hiddenp element)) (no= t cbeg))) ((and (memq type org-element-greater-elements) (or (memq granular= ity (quote (element object nil))) (and (eq granularity (quote greater-eleme= nt)) (eq type (quote section))) (eq type (quote headline)))) (org-element-p= arse-elements cbeg (org-element-property :contents-end element) (case type = (headline (if (org-element-property :quotedp element) (quote quote-section)= (quote section))) (plain-list (quote item)) (table (quote table-row))) (or= g-element-property :structure element) granularity visible-only element)) (= (memq granularity (quote (object nil))) (org-element-parse-objects cbeg (or= g-element-property :contents-end element) element (org-element-restriction = type)))) (let* ((element (org-element-current-element end granularity special stru= cture)) (type (org-element-type element)) (cbeg (org-element-property :cont= ents-begin element))) (goto-char (org-element-property :end element)) (cond= ((or (and visible-only (org-element-property :hiddenp element)) (not cbeg)= )) ((and (memq type org-element-greater-elements) (or (memq granularity (qu= ote (element object nil))) (and (eq granularity (quote greater-element)) (e= q type (quote section))) (eq type (quote headline)))) (org-element-parse-el= ements cbeg (org-element-property :contents-end element) (case type (headli= ne (if (org-element-property :quotedp element) (quote quote-section) (quote= section))) (plain-list (quote item)) (table (quote table-row))) (org-eleme= nt-property :structure element) granularity visible-only element)) ((memq g= ranularity (quote (object nil))) (org-element-parse-objects cbeg (org-eleme= nt-property :contents-end element) element (org-element-restriction type)))= ) (org-element-adopt-element acc element t)) (while (< (point) end) (let* ((element (org-element-current-element end g= ranularity special structure)) (type (org-element-type element)) (cbeg (org= -element-property :contents-begin element))) (goto-char (org-element-proper= ty :end element)) (cond ((or (and visible-only (org-element-property :hidde= np element)) (not cbeg))) ((and (memq type org-element-greater-elements) (o= r (memq granularity (quote ...)) (and (eq granularity ...) (eq type ...)) (= eq type (quote headline)))) (org-element-parse-elements cbeg (org-element-p= roperty :contents-end element) (case type (headline (if ... ... ...)) (plai= n-list (quote item)) (table (quote table-row))) (org-element-property :stru= cture element) granularity visible-only element)) ((memq granularity (quote= (object nil))) (org-element-parse-objects cbeg (org-element-property :cont= ents-end element) element (org-element-restriction type)))) (org-element-ad= opt-element acc element t))) (save-excursion (goto-char beg) (when (and (eq granularity (quote headlin= e)) (not (org-at-heading-p))) (org-with-limited-levels (outline-next-headin= g))) (while (< (point) end) (let* ((element (org-element-current-element en= d granularity special structure)) (type (org-element-type element)) (cbeg (= org-element-property :contents-begin element))) (goto-char (org-element-pro= perty :end element)) (cond ((or (and visible-only (org-element-property :hi= ddenp element)) (not cbeg))) ((and (memq type org-element-greater-elements)= (or (memq granularity ...) (and ... ...) (eq type ...))) (org-element-pars= e-elements cbeg (org-element-property :contents-end element) (case type (he= adline ...) (plain-list ...) (table ...)) (org-element-property :structure = element) granularity visible-only element)) ((memq granularity (quote (obje= ct nil))) (org-element-parse-objects cbeg (org-element-property :contents-e= nd element) element (org-element-restriction type)))) (org-element-adopt-el= ement acc element t))) acc) org-element-parse-elements(506 530 section nil nil nil (headline (:raw-va= lue "headline" :begin 495 :end 530 :pre-blank 0 :hiddenp outline :contents-= begin 506 :contents-end 530 :level 1 :priority nil :tags nil :todo-keyword = nil :todo-type nil :scheduled nil :deadline nil :timestamp nil :clock nil := post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quoted= p nil :category nil :title ("headline")))) (cond ((or (and visible-only (org-element-property :hiddenp element)) (no= t cbeg))) ((and (memq type org-element-greater-elements) (or (memq granular= ity (quote (element object nil))) (and (eq granularity (quote greater-eleme= nt)) (eq type (quote section))) (eq type (quote headline)))) (org-element-p= arse-elements cbeg (org-element-property :contents-end element) (case type = (headline (if (org-element-property :quotedp element) (quote quote-section)= (quote section))) (plain-list (quote item)) (table (quote table-row))) (or= g-element-property :structure element) granularity visible-only element)) (= (memq granularity (quote (object nil))) (org-element-parse-objects cbeg (or= g-element-property :contents-end element) element (org-element-restriction = type)))) (let* ((element (org-element-current-element end granularity special stru= cture)) (type (org-element-type element)) (cbeg (org-element-property :cont= ents-begin element))) (goto-char (org-element-property :end element)) (cond= ((or (and visible-only (org-element-property :hiddenp element)) (not cbeg)= )) ((and (memq type org-element-greater-elements) (or (memq granularity (qu= ote (element object nil))) (and (eq granularity (quote greater-element)) (e= q type (quote section))) (eq type (quote headline)))) (org-element-parse-el= ements cbeg (org-element-property :contents-end element) (case type (headli= ne (if (org-element-property :quotedp element) (quote quote-section) (quote= section))) (plain-list (quote item)) (table (quote table-row))) (org-eleme= nt-property :structure element) granularity visible-only element)) ((memq g= ranularity (quote (object nil))) (org-element-parse-objects cbeg (org-eleme= nt-property :contents-end element) element (org-element-restriction type)))= ) (org-element-adopt-element acc element t)) (while (< (point) end) (let* ((element (org-element-current-element end g= ranularity special structure)) (type (org-element-type element)) (cbeg (org= -element-property :contents-begin element))) (goto-char (org-element-proper= ty :end element)) (cond ((or (and visible-only (org-element-property :hidde= np element)) (not cbeg))) ((and (memq type org-element-greater-elements) (o= r (memq granularity (quote ...)) (and (eq granularity ...) (eq type ...)) (= eq type (quote headline)))) (org-element-parse-elements cbeg (org-element-p= roperty :contents-end element) (case type (headline (if ... ... ...)) (plai= n-list (quote item)) (table (quote table-row))) (org-element-property :stru= cture element) granularity visible-only element)) ((memq granularity (quote= (object nil))) (org-element-parse-objects cbeg (org-element-property :cont= ents-end element) element (org-element-restriction type)))) (org-element-ad= opt-element acc element t))) (save-excursion (goto-char beg) (when (and (eq granularity (quote headlin= e)) (not (org-at-heading-p))) (org-with-limited-levels (outline-next-headin= g))) (while (< (point) end) (let* ((element (org-element-current-element en= d granularity special structure)) (type (org-element-type element)) (cbeg (= org-element-property :contents-begin element))) (goto-char (org-element-pro= perty :end element)) (cond ((or (and visible-only (org-element-property :hi= ddenp element)) (not cbeg))) ((and (memq type org-element-greater-elements)= (or (memq granularity ...) (and ... ...) (eq type ...))) (org-element-pars= e-elements cbeg (org-element-property :contents-end element) (case type (he= adline ...) (plain-list ...) (table ...)) (org-element-property :structure = element) granularity visible-only element)) ((memq granularity (quote (obje= ct nil))) (org-element-parse-objects cbeg (org-element-property :contents-e= nd element) element (org-element-restriction type)))) (org-element-adopt-el= ement acc element t))) acc) org-element-parse-elements(1 530 nil nil nil nil (section (:begin 1 :end = 530 :contents-begin 1 :contents-end 530 :post-blank 0) (keyword (:key "TITL= E" :value "new-exporter.org" :begin 1 :end 31 :post-blank 0 :parent #0)) (k= eyword (:key "AUTHOR" :value "Thomas Holst" :begin 31 :end 57 :post-blank 0= :parent #0)) (keyword (:key "EMAIL" :value "thomas.holst@de.bosch.com" :be= gin 57 :end 96 :post-blank 0 :parent #0)) (keyword (:key "DATE" :value "201= 2-07-16 Mo" :begin 96 :end 123 :post-blank 0 :parent #0)) (keyword (:key "D= ESCRIPTION" :value "" :begin 123 :end 138 :post-blank 0 :parent #0)) (keywo= rd (:key "KEYWORDS" :value "" :begin 138 :end 150 :post-blank 0 :parent #0)= ) (keyword (:key "LANGUAGE" :value "en" :begin 150 :end 166 :post-blank 0 := parent #0)) (keyword (:key "OPTIONS" :value "H:3 num:t toc:t \\n:nil @:t ::= t |:t ^:{} -:t f:t *:t <:t" :begin 166 :end 235 :post-blank 0 :parent #0)) = (keyword (:key "OPTIONS" :value "TeX:t LaTeX:t skip:nil d:t todo:t pri:nil = tags:t" :begin 235 :end 297 :post-blank 0 :parent #0)) (keyword (:key "INFO= JS_OPT" :value "view:nil toc:nil ltoc:t mouse:underline buttons:0 path:http= ://orgmode.org/org-info.js" :begin 297 :end 397 :post-blank 0 :parent #0)) = (keyword (:key "EXPORT_SELECT_TAGS" :value "export" :begin 397 :end 426 :po= st-blank 0 :parent #0)) (keyword (:key "EXPORT_EXCLUDE_TAGS" :value "noexpo= rt" :begin 426 :end 458 :post-blank 0 :parent #0)) (keyword (:key "LINK_UP"= :value "" :begin 458 :end 472 :post-blank 0 :parent #0)) (keyword (:key "L= INK_HOME" :value "" :begin 472 :end 486 :post-blank 0 :parent #0)) (keyword= (:key "XSLT" :value "" :begin 486 :end 495 :post-blank 1 :parent #0)))) (cond ((or (and visible-only (org-element-property :hiddenp element)) (no= t cbeg))) ((and (memq type org-element-greater-elements) (or (memq granular= ity (quote (element object nil))) (and (eq granularity (quote greater-eleme= nt)) (eq type (quote section))) (eq type (quote headline)))) (org-element-p= arse-elements cbeg (org-element-property :contents-end element) (case type = (headline (if (org-element-property :quotedp element) (quote quote-section)= (quote section))) (plain-list (quote item)) (table (quote table-row))) (or= g-element-property :structure element) granularity visible-only element)) (= (memq granularity (quote (object nil))) (org-element-parse-objects cbeg (or= g-element-property :contents-end element) element (org-element-restriction = type)))) (let* ((element (org-element-current-element end granularity special stru= cture)) (type (org-element-type element)) (cbeg (org-element-property :cont= ents-begin element))) (goto-char (org-element-property :end element)) (cond= ((or (and visible-only (org-element-property :hiddenp element)) (not cbeg)= )) ((and (memq type org-element-greater-elements) (or (memq granularity (qu= ote (element object nil))) (and (eq granularity (quote greater-element)) (e= q type (quote section))) (eq type (quote headline)))) (org-element-parse-el= ements cbeg (org-element-property :contents-end element) (case type (headli= ne (if (org-element-property :quotedp element) (quote quote-section) (quote= section))) (plain-list (quote item)) (table (quote table-row))) (org-eleme= nt-property :structure element) granularity visible-only element)) ((memq g= ranularity (quote (object nil))) (org-element-parse-objects cbeg (org-eleme= nt-property :contents-end element) element (org-element-restriction type)))= ) (org-element-adopt-element acc element t)) (while (< (point) end) (let* ((element (org-element-current-element end g= ranularity special structure)) (type (org-element-type element)) (cbeg (org= -element-property :contents-begin element))) (goto-char (org-element-proper= ty :end element)) (cond ((or (and visible-only (org-element-property :hidde= np element)) (not cbeg))) ((and (memq type org-element-greater-elements) (o= r (memq granularity (quote ...)) (and (eq granularity ...) (eq type ...)) (= eq type (quote headline)))) (org-element-parse-elements cbeg (org-element-p= roperty :contents-end element) (case type (headline (if ... ... ...)) (plai= n-list (quote item)) (table (quote table-row))) (org-element-property :stru= cture element) granularity visible-only element)) ((memq granularity (quote= (object nil))) (org-element-parse-objects cbeg (org-element-property :cont= ents-end element) element (org-element-restriction type)))) (org-element-ad= opt-element acc element t))) (save-excursion (goto-char beg) (when (and (eq granularity (quote headlin= e)) (not (org-at-heading-p))) (org-with-limited-levels (outline-next-headin= g))) (while (< (point) end) (let* ((element (org-element-current-element en= d granularity special structure)) (type (org-element-type element)) (cbeg (= org-element-property :contents-begin element))) (goto-char (org-element-pro= perty :end element)) (cond ((or (and visible-only (org-element-property :hi= ddenp element)) (not cbeg))) ((and (memq type org-element-greater-elements)= (or (memq granularity ...) (and ... ...) (eq type ...))) (org-element-pars= e-elements cbeg (org-element-property :contents-end element) (case type (he= adline ...) (plain-list ...) (table ...)) (org-element-property :structure = element) granularity visible-only element)) ((memq granularity (quote (obje= ct nil))) (org-element-parse-objects cbeg (org-element-property :contents-e= nd element) element (org-element-restriction type)))) (org-element-adopt-el= ement acc element t))) acc) org-element-parse-elements(1 530 section nil nil nil (org-data nil)) (save-excursion (goto-char (point-min)) (org-skip-whitespace) (org-elemen= t-parse-elements (point-at-bol) (point-max) (quote section) nil granularity= visible-only (list (quote org-data) nil))) org-element-parse-buffer(nil nil) (progn (unless noexpand (org-export-expand-include-keyword) (let ((org-cu= rrent-export-file buf)) (org-export-blocks-preprocess))) (goto-char (point-= min)) (let ((org-export-current-backend backend)) (run-hooks (quote org-exp= ort-before-parsing-hook))) (org-element-parse-buffer nil visible-only)) (let ((buffer-invisibility-spec nil)) (org-clone-local-variables --origin= al-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$= \\)") (insert --buffer-string) (mapc (lambda (ov) (move-overlay ov (- (over= lay-start ov) --offset) (- (overlay-end ov) --offset) (current-buffer))) --= overlays) (goto-char (point-min)) (progn (unless noexpand (org-export-expan= d-include-keyword) (let ((org-current-export-file buf)) (org-export-blocks-= preprocess))) (goto-char (point-min)) (let ((org-export-current-backend bac= kend)) (run-hooks (quote org-export-before-parsing-hook))) (org-element-par= se-buffer nil visible-only))) (progn (let ((buffer-invisibility-spec nil)) (org-clone-local-variables -= -original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|le= vel\\)$\\)") (insert --buffer-string) (mapc (lambda (ov) (move-overlay ov (= - (overlay-start ov) --offset) (- (overlay-end ov) --offset) (current-buffe= r))) --overlays) (goto-char (point-min)) (progn (unless noexpand (org-expor= t-expand-include-keyword) (let ((org-current-export-file buf)) (org-export-= blocks-preprocess))) (goto-char (point-min)) (let ((org-export-current-back= end backend)) (run-hooks (quote org-export-before-parsing-hook))) (org-elem= ent-parse-buffer nil visible-only)))) (unwind-protect (progn (let ((buffer-invisibility-spec nil)) (org-clone-l= ocal-variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outlin= e-\\(regexp\\|level\\)$\\)") (insert --buffer-string) (mapc (lambda (ov) (m= ove-overlay ov (- (overlay-start ov) --offset) (- (overlay-end ov) --offset= ) (current-buffer))) --overlays) (goto-char (point-min)) (progn (unless noe= xpand (org-export-expand-include-keyword) (let ((org-current-export-file bu= f)) (org-export-blocks-preprocess))) (goto-char (point-min)) (let ((org-exp= ort-current-backend backend)) (run-hooks (quote org-export-before-parsing-h= ook))) (org-element-parse-buffer nil visible-only)))) (and (buffer-name tem= p-buffer) (kill-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let= ((buffer-invisibility-spec nil)) (org-clone-local-variables --original-buf= fer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") = (insert --buffer-string) (mapc (lambda (ov) (move-overlay ov (- ... --offse= t) (- ... --offset) (current-buffer))) --overlays) (goto-char (point-min)) = (progn (unless noexpand (org-export-expand-include-keyword) (let (...) (org= -export-blocks-preprocess))) (goto-char (point-min)) (let ((org-export-curr= ent-backend backend)) (run-hooks (quote org-export-before-parsing-hook))) (= org-element-parse-buffer nil visible-only)))) (and (buffer-name temp-buffer= ) (kill-buffer temp-buffer)))) (with-current-buffer temp-buffer (unwind-protect (progn (let ((buffer-inv= isibility-spec nil)) (org-clone-local-variables --original-buffer "^\\(org-= \\|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buf= fer-string) (mapc (lambda (ov) (move-overlay ov (- ... --offset) (- ... --o= ffset) (current-buffer))) --overlays) (goto-char (point-min)) (progn (unles= s noexpand (org-export-expand-include-keyword) (let (...) (org-export-block= s-preprocess))) (goto-char (point-min)) (let ((org-export-current-backend b= ackend)) (run-hooks (quote org-export-before-parsing-hook))) (org-element-p= arse-buffer nil visible-only)))) (and (buffer-name temp-buffer) (kill-buffe= r temp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-buffer= temp-buffer (unwind-protect (progn (let ((buffer-invisibility-spec nil)) (= org-clone-local-variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mod= e$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buffer-string) (mapc (lam= bda (ov) (move-overlay ov ... ... ...)) --overlays) (goto-char (point-min))= (progn (unless noexpand (org-export-expand-include-keyword) (let ... ...))= (goto-char (point-min)) (let (...) (run-hooks ...)) (org-element-parse-buf= fer nil visible-only)))) (and (buffer-name temp-buffer) (kill-buffer temp-b= uffer))))) (with-temp-buffer (let ((buffer-invisibility-spec nil)) (org-clone-local-= variables --original-buffer "^\\(org-\\|orgtbl-\\|major-mode$\\|outline-\\(= regexp\\|level\\)$\\)") (insert --buffer-string) (mapc (lambda (ov) (move-o= verlay ov (- (overlay-start ov) --offset) (- (overlay-end ov) --offset) (cu= rrent-buffer))) --overlays) (goto-char (point-min)) (progn (unless noexpand= (org-export-expand-include-keyword) (let ((org-current-export-file buf)) (= org-export-blocks-preprocess))) (goto-char (point-min)) (let ((org-export-c= urrent-backend backend)) (run-hooks (quote org-export-before-parsing-hook))= ) (org-element-parse-buffer nil visible-only)))) (let ((--original-buffer (current-buffer)) (--offset (1- (point-min))) (-= -buffer-string (buffer-string)) (--overlays (mapcar (quote copy-overlay) (o= verlays-in (point-min) (point-max))))) (with-temp-buffer (let ((buffer-invi= sibility-spec nil)) (org-clone-local-variables --original-buffer "^\\(org-\= \|orgtbl-\\|major-mode$\\|outline-\\(regexp\\|level\\)$\\)") (insert --buff= er-string) (mapc (lambda (ov) (move-overlay ov (- (overlay-start ov) --offs= et) (- (overlay-end ov) --offset) (current-buffer))) --overlays) (goto-char= (point-min)) (progn (unless noexpand (org-export-expand-include-keyword) (= let ((org-current-export-file buf)) (org-export-blocks-preprocess))) (goto-= char (point-min)) (let ((org-export-current-backend backend)) (run-hooks (q= uote org-export-before-parsing-hook))) (org-element-parse-buffer nil visibl= e-only))))) (org-export-with-current-buffer-copy (unless noexpand (org-export-expand-= include-keyword) (let ((org-current-export-file buf)) (org-export-blocks-pr= eprocess))) (goto-char (point-min)) (let ((org-export-current-backend backe= nd)) (run-hooks (quote org-export-before-parsing-hook))) (org-element-parse= -buffer nil visible-only)) (let ((buf (or (buffer-file-name (buffer-base-buffer)) (current-buffer)))= ) (org-export-with-current-buffer-copy (unless noexpand (org-export-expand-= include-keyword) (let ((org-current-export-file buf)) (org-export-blocks-pr= eprocess))) (goto-char (point-min)) (let ((org-export-current-backend backe= nd)) (run-hooks (quote org-export-before-parsing-hook))) (org-element-parse= -buffer nil visible-only))) (let ((info (org-export-install-filters (org-export-get-environment backe= nd subtreep ext-plist))) (tree (let ((buf (or (buffer-file-name ...) (curre= nt-buffer)))) (org-export-with-current-buffer-copy (unless noexpand (org-ex= port-expand-include-keyword) (let (...) (org-export-blocks-preprocess))) (g= oto-char (point-min)) (let ((org-export-current-backend backend)) (run-hook= s (quote org-export-before-parsing-hook))) (org-element-parse-buffer nil vi= sible-only))))) (setq tree (org-export-filter-apply-functions (plist-get in= fo :filter-parse-tree) tree info)) (setq info (org-combine-plists info (org= -export-collect-tree-properties tree info))) (let* ((body (org-element-norm= alize-string (org-export-data tree info))) (template (cdr (assq (quote temp= late) (plist-get info :translate-alist)))) (output (org-export-filter-apply= -functions (plist-get info :filter-final-output) (if (or (not ...) body-onl= y) body (funcall template body info)) info))) (when org-export-copy-to-kill= -ring (org-kill-new output)) output)) (save-restriction (cond ((org-region-active-p) (narrow-to-region (region-= beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-char (poi= nt-min)) (forward-line) (narrow-to-region (point) (point-max)))) (let ((inf= o (org-export-install-filters (org-export-get-environment backend subtreep = ext-plist))) (tree (let ((buf (or ... ...))) (org-export-with-current-buffe= r-copy (unless noexpand (org-export-expand-include-keyword) (let ... ...)) = (goto-char (point-min)) (let (...) (run-hooks ...)) (org-element-parse-buff= er nil visible-only))))) (setq tree (org-export-filter-apply-functions (pli= st-get info :filter-parse-tree) tree info)) (setq info (org-combine-plists = info (org-export-collect-tree-properties tree info))) (let* ((body (org-ele= ment-normalize-string (org-export-data tree info))) (template (cdr (assq (q= uote template) (plist-get info :translate-alist)))) (output (org-export-fil= ter-apply-functions (plist-get info :filter-final-output) (if (or ... body-= only) body (funcall template body info)) info))) (when org-export-copy-to-k= ill-ring (org-kill-new output)) output))) (save-excursion (save-restriction (cond ((org-region-active-p) (narrow-to= -region (region-beginning) (region-end))) (subtreep (org-narrow-to-subtree)= (goto-char (point-min)) (forward-line) (narrow-to-region (point) (point-ma= x)))) (let ((info (org-export-install-filters (org-export-get-environment b= ackend subtreep ext-plist))) (tree (let ((buf ...)) (org-export-with-curren= t-buffer-copy (unless noexpand ... ...) (goto-char ...) (let ... ...) (org-= element-parse-buffer nil visible-only))))) (setq tree (org-export-filter-ap= ply-functions (plist-get info :filter-parse-tree) tree info)) (setq info (o= rg-combine-plists info (org-export-collect-tree-properties tree info))) (le= t* ((body (org-element-normalize-string (org-export-data tree info))) (temp= late (cdr (assq ... ...))) (output (org-export-filter-apply-functions (plis= t-get info :filter-final-output) (if ... body ...) info))) (when org-export= -copy-to-kill-ring (org-kill-new output)) output)))) org-export-as(e-latex nil nil nil nil nil) (let ((out (org-export-as backend subtreep visible-only body-only ext-pli= st noexpand)) (buffer (get-buffer-create buffer))) (with-current-buffer buf= fer (erase-buffer) (insert out) (goto-char (point-min))) buffer) org-export-to-buffer(e-latex "*Org E-LaTeX Export*" nil nil nil) (let ((outbuf (org-export-to-buffer (quote e-latex) "*Org E-LaTeX Export*= " (memq (quote subtree) optns) (memq (quote visible) optns) (memq (quote bo= dy) optns)))) (with-current-buffer outbuf (latex-mode)) (when org-export-sh= ow-temporary-export-buffer (switch-to-buffer-other-window outbuf))) (cond ((eql --cl-var-- (quote 113)) nil) ((member* --cl-var-- (quote (65 = 78 85))) (let ((outbuf (org-export-to-buffer (quote e-ascii) "*Org E-ASCII = Export*" (memq (quote subtree) optns) (memq (quote visible) optns) (memq (q= uote body) optns) (\` (:ascii-charset ...))))) (with-current-buffer outbuf = (text-mode)) (when org-export-show-temporary-export-buffer (switch-to-buffe= r-other-window outbuf)))) ((member* --cl-var-- (quote (97 110 117))) (org-e= -ascii-export-to-ascii (memq (quote subtree) optns) (memq (quote visible) o= ptns) (memq (quote body) optns) (\` (:ascii-charset (\, (case raw-key (97 .= ..) (110 ...) (t ...))))))) ((eql --cl-var-- (quote 76)) (let ((outbuf (org= -export-to-buffer (quote e-latex) "*Org E-LaTeX Export*" (memq (quote subtr= ee) optns) (memq (quote visible) optns) (memq (quote body) optns)))) (with-= current-buffer outbuf (latex-mode)) (when org-export-show-temporary-export-= buffer (switch-to-buffer-other-window outbuf)))) ((eql --cl-var-- (quote 10= 8)) (org-e-latex-export-to-latex (memq (quote subtree) optns) (memq (quote = visible) optns) (memq (quote body) optns))) ((eql --cl-var-- (quote 112)) (= org-e-latex-export-to-pdf (memq (quote subtree) optns) (memq (quote visible= ) optns) (memq (quote body) optns))) ((eql --cl-var-- (quote 100)) (org-ope= n-file (org-e-latex-export-to-pdf (memq (quote subtree) optns) (memq (quote= visible) optns) (memq (quote body) optns)))) ((eql --cl-var-- (quote 72)) = (let ((outbuf (org-export-to-buffer (quote e-html) "*Org E-HTML Export*" (m= emq (quote subtree) optns) (memq (quote visible) optns) (memq (quote body) = optns)))) (with-current-buffer outbuf (nxml-mode)) (when org-export-show-te= mporary-export-buffer (switch-to-buffer-other-window outbuf)))) ((eql --cl-= var-- (quote 104)) (org-e-html-export-to-html (memq (quote subtree) optns) = (memq (quote visible) optns) (memq (quote body) optns))) ((eql --cl-var-- (= quote 98)) (org-open-file (org-e-html-export-to-html (memq (quote subtree) = optns) (memq (quote visible) optns) (memq (quote body) optns)))) ((eql --cl= -var-- (quote 111)) (org-e-odt-export-to-odt (memq (quote subtree) optns) (= memq (quote visible) optns) (memq (quote body) optns))) ((eql --cl-var-- (q= uote 79)) (org-open-file (org-e-odt-export-to-odt (memq (quote subtree) opt= ns) (memq (quote visible) optns) (memq (quote body) optns)))) ((eql --cl-va= r-- (quote 70)) (org-e-publish-current-file (memq (quote force) optns))) ((= eql --cl-var-- (quote 80)) (org-e-publish-current-project (memq (quote forc= e) optns))) ((eql --cl-var-- (quote 88)) (let ((project (assoc (org-icomple= ting-read "Publish project: " org-e-publish-project-alist nil t) org-e-publ= ish-project-alist))) (org-e-publish project (memq (quote force) optns)))) (= (eql --cl-var-- (quote 69)) (org-e-publish-all (memq (quote force) optns)))= (t (error "No command associated with key %s" (char-to-string raw-key)))) (let ((--cl-var-- (if (< raw-key 27) (+ raw-key 96) raw-key))) (cond ((eq= l --cl-var-- (quote 113)) nil) ((member* --cl-var-- (quote (65 78 85))) (le= t ((outbuf (org-export-to-buffer (quote e-ascii) "*Org E-ASCII Export*" (me= mq ... optns) (memq ... optns) (memq ... optns) (\` ...)))) (with-current-b= uffer outbuf (text-mode)) (when org-export-show-temporary-export-buffer (sw= itch-to-buffer-other-window outbuf)))) ((member* --cl-var-- (quote (97 110 = 117))) (org-e-ascii-export-to-ascii (memq (quote subtree) optns) (memq (quo= te visible) optns) (memq (quote body) optns) (\` (:ascii-charset (\, (case = raw-key ... ... ...)))))) ((eql --cl-var-- (quote 76)) (let ((outbuf (org-e= xport-to-buffer (quote e-latex) "*Org E-LaTeX Export*" (memq ... optns) (me= mq ... optns) (memq ... optns)))) (with-current-buffer outbuf (latex-mode))= (when org-export-show-temporary-export-buffer (switch-to-buffer-other-wind= ow outbuf)))) ((eql --cl-var-- (quote 108)) (org-e-latex-export-to-latex (m= emq (quote subtree) optns) (memq (quote visible) optns) (memq (quote body) = optns))) ((eql --cl-var-- (quote 112)) (org-e-latex-export-to-pdf (memq (qu= ote subtree) optns) (memq (quote visible) optns) (memq (quote body) optns))= ) ((eql --cl-var-- (quote 100)) (org-open-file (org-e-latex-export-to-pdf (= memq (quote subtree) optns) (memq (quote visible) optns) (memq (quote body)= optns)))) ((eql --cl-var-- (quote 72)) (let ((outbuf (org-export-to-buffer= (quote e-html) "*Org E-HTML Export*" (memq ... optns) (memq ... optns) (me= mq ... optns)))) (with-current-buffer outbuf (nxml-mode)) (when org-export-= show-temporary-export-buffer (switch-to-buffer-other-window outbuf)))) ((eq= l --cl-var-- (quote 104)) (org-e-html-export-to-html (memq (quote subtree) = optns) (memq (quote visible) optns) (memq (quote body) optns))) ((eql --cl-= var-- (quote 98)) (org-open-file (org-e-html-export-to-html (memq (quote su= btree) optns) (memq (quote visible) optns) (memq (quote body) optns)))) ((e= ql --cl-var-- (quote 111)) (org-e-odt-export-to-odt (memq (quote subtree) o= ptns) (memq (quote visible) optns) (memq (quote body) optns))) ((eql --cl-v= ar-- (quote 79)) (org-open-file (org-e-odt-export-to-odt (memq (quote subtr= ee) optns) (memq (quote visible) optns) (memq (quote body) optns)))) ((eql = --cl-var-- (quote 70)) (org-e-publish-current-file (memq (quote force) optn= s))) ((eql --cl-var-- (quote 80)) (org-e-publish-current-project (memq (quo= te force) optns))) ((eql --cl-var-- (quote 88)) (let ((project (assoc (org-= icompleting-read "Publish project: " org-e-publish-project-alist nil t) org= -e-publish-project-alist))) (org-e-publish project (memq (quote force) optn= s)))) ((eql --cl-var-- (quote 69)) (org-e-publish-all (memq (quote force) o= ptns))) (t (error "No command associated with key %s" (char-to-string raw-k= ey))))) (case (if (< raw-key 27) (+ raw-key 96) raw-key) (113 nil) ((65 78 85) (l= et ((outbuf (org-export-to-buffer (quote e-ascii) "*Org E-ASCII Export*" (m= emq (quote subtree) optns) (memq (quote visible) optns) (memq (quote body) = optns) (\` (:ascii-charset ...))))) (with-current-buffer outbuf (text-mode)= ) (when org-export-show-temporary-export-buffer (switch-to-buffer-other-win= dow outbuf)))) ((97 110 117) (org-e-ascii-export-to-ascii (memq (quote subt= ree) optns) (memq (quote visible) optns) (memq (quote body) optns) (\` (:as= cii-charset (\, (case raw-key (97 ...) (110 ...) (t ...))))))) (76 (let ((o= utbuf (org-export-to-buffer (quote e-latex) "*Org E-LaTeX Export*" (memq (q= uote subtree) optns) (memq (quote visible) optns) (memq (quote body) optns)= ))) (with-current-buffer outbuf (latex-mode)) (when org-export-show-tempora= ry-export-buffer (switch-to-buffer-other-window outbuf)))) (108 (org-e-late= x-export-to-latex (memq (quote subtree) optns) (memq (quote visible) optns)= (memq (quote body) optns))) (112 (org-e-latex-export-to-pdf (memq (quote s= ubtree) optns) (memq (quote visible) optns) (memq (quote body) optns))) (10= 0 (org-open-file (org-e-latex-export-to-pdf (memq (quote subtree) optns) (m= emq (quote visible) optns) (memq (quote body) optns)))) (72 (let ((outbuf (= org-export-to-buffer (quote e-html) "*Org E-HTML Export*" (memq (quote subt= ree) optns) (memq (quote visible) optns) (memq (quote body) optns)))) (with= -current-buffer outbuf (nxml-mode)) (when org-export-show-temporary-export-= buffer (switch-to-buffer-other-window outbuf)))) (104 (org-e-html-export-to= -html (memq (quote subtree) optns) (memq (quote visible) optns) (memq (quot= e body) optns))) (98 (org-open-file (org-e-html-export-to-html (memq (quote= subtree) optns) (memq (quote visible) optns) (memq (quote body) optns)))) = (111 (org-e-odt-export-to-odt (memq (quote subtree) optns) (memq (quote vis= ible) optns) (memq (quote body) optns))) (79 (org-open-file (org-e-odt-expo= rt-to-odt (memq (quote subtree) optns) (memq (quote visible) optns) (memq (= quote body) optns)))) (70 (org-e-publish-current-file (memq (quote force) o= ptns))) (80 (org-e-publish-current-project (memq (quote force) optns))) (88= (let ((project (assoc (org-icompleting-read "Publish project: " org-e-publ= ish-project-alist nil t) org-e-publish-project-alist))) (org-e-publish proj= ect (memq (quote force) optns)))) (69 (org-e-publish-all (memq (quote force= ) optns))) (t (error "No command associated with key %s" (char-to-string ra= w-key)))) (let* ((input (org-export-dispatch-ui (if (listp org-export-initial-scope= ) org-export-initial-scope (list org-export-initial-scope)) org-export-disp= atch-use-expert-ui)) (raw-key (car input)) (optns (cdr input))) (case (if (= < raw-key 27) (+ raw-key 96) raw-key) (113 nil) ((65 78 85) (let ((outbuf (= org-export-to-buffer (quote e-ascii) "*Org E-ASCII Export*" (memq ... optns= ) (memq ... optns) (memq ... optns) (\` ...)))) (with-current-buffer outbuf= (text-mode)) (when org-export-show-temporary-export-buffer (switch-to-buff= er-other-window outbuf)))) ((97 110 117) (org-e-ascii-export-to-ascii (memq= (quote subtree) optns) (memq (quote visible) optns) (memq (quote body) opt= ns) (\` (:ascii-charset (\, (case raw-key ... ... ...)))))) (76 (let ((outb= uf (org-export-to-buffer (quote e-latex) "*Org E-LaTeX Export*" (memq ... o= ptns) (memq ... optns) (memq ... optns)))) (with-current-buffer outbuf (lat= ex-mode)) (when org-export-show-temporary-export-buffer (switch-to-buffer-o= ther-window outbuf)))) (108 (org-e-latex-export-to-latex (memq (quote subtr= ee) optns) (memq (quote visible) optns) (memq (quote body) optns))) (112 (o= rg-e-latex-export-to-pdf (memq (quote subtree) optns) (memq (quote visible)= optns) (memq (quote body) optns))) (100 (org-open-file (org-e-latex-export= -to-pdf (memq (quote subtree) optns) (memq (quote visible) optns) (memq (qu= ote body) optns)))) (72 (let ((outbuf (org-export-to-buffer (quote e-html) = "*Org E-HTML Export*" (memq ... optns) (memq ... optns) (memq ... optns))))= (with-current-buffer outbuf (nxml-mode)) (when org-export-show-temporary-e= xport-buffer (switch-to-buffer-other-window outbuf)))) (104 (org-e-html-exp= ort-to-html (memq (quote subtree) optns) (memq (quote visible) optns) (memq= (quote body) optns))) (98 (org-open-file (org-e-html-export-to-html (memq = (quote subtree) optns) (memq (quote visible) optns) (memq (quote body) optn= s)))) (111 (org-e-odt-export-to-odt (memq (quote subtree) optns) (memq (quo= te visible) optns) (memq (quote body) optns))) (79 (org-open-file (org-e-od= t-export-to-odt (memq (quote subtree) optns) (memq (quote visible) optns) (= memq (quote body) optns)))) (70 (org-e-publish-current-file (memq (quote fo= rce) optns))) (80 (org-e-publish-current-project (memq (quote force) optns)= )) (88 (let ((project (assoc (org-icompleting-read "Publish project: " org-= e-publish-project-alist nil t) org-e-publish-project-alist))) (org-e-publis= h project (memq (quote force) optns)))) (69 (org-e-publish-all (memq (quote= force) optns))) (t (error "No command associated with key %s" (char-to-str= ing raw-key))))) org-export-dispatch() call-interactively(org-export-dispatch t nil) execute-extended-command(nil) call-interactively(execute-extended-command nil nil) --=Multipart0o0o0o0o0o0o0o Content-Type: text/plain -- Bis neulich ... Thomas --=Multipart0o0o0o0o0o0o0o--