tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-e-odt.el: Continue previous commit

This commit is contained in:
Jambunathan K 2012-09-03 19:50:18 +05:30
parent 02ad62e300
commit 0ea0a60c59
1 changed files with 88 additions and 90 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/lisp/org-e-odt.el
View File

@ -3601,8 +3601,7 @@ contextual information."
;; Delete temporary directory and also other embedded
;; files that get copied there.
(delete-directory org-e-odt-zip-dir t)))))
(org-condition-case-unless-debug
err
(org-condition-case-unless-debug err
(progn
(unless (executable-find "zip")
;; Not at all OSes ship with zip by default
@ -3612,7 +3611,6 @@ contextual information."
(progn ,@body)
;; Create a manifest entry for content.xml.
(org-e-odt-create-manifest-file-entry "text/xml" "content.xml")
;; Write mimetype file
(let* ((mimetypes
'(("odt" . "application/vnd.oasis.opendocument.text")
@ -3750,7 +3748,7 @@ non-nil."
Use `org-e-odt-export-as-odf' to read LaTeX fragment and OpenDocument
formula file."
(interactive)
(org-open-file (call-interactively 'org-e-odt-export-as-odf)))
(org-open-file (call-interactively 'org-e-odt-export-as-odf) 'system))
;;;; Export to OpenDocument Text
@ -3850,7 +3848,7 @@ Return output file's name."
(message "Exported to %s" out-file)
(when prefix-arg
(message "Opening %s..." out-file)
(org-open-file out-file))
(org-open-file out-file 'system))
out-file)
(t
(message "Export to %s failed" out-file)