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

org-odt.el (org-odt-styles-dir): Try more directories

Browse source 
* org-odt.el (org-odt-styles-dir): Try more directories.
Don't throw an error, just send a message.

Thanks to Nick Dokos for reporting this.
This commit is contained in:
Bastien Guerry 2012-10-03 10:30:40 +02:00
parent 27c6737813
commit fc8ad1347e
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/org-odt.el
View file

@ -150,7 +150,11 @@ Also add it to `rng-schema-locating-files'."
(let* ((d (expand-file-name "../" (org-find-library-dir "org-odt.el")))
(styles-dir-list (list
(concat d "etc/styles/") ;; ELPA and Git
(concat d "etc/org/")))
(concat d "etc/org/") ;; Org from Emacs
(concat d "../"
(number-to-string emacs-major-version) "."
(number-to-string emacs-minor-version) "/etc/org/")
(concat data-directory "org/"))) ;; Custom install
styles-dir)
(setq styles-dir
(car
@ -164,8 +168,8 @@ Also add it to `rng-schema-locating-files'."
"OrgOdtStyles.xml" sd)))
sd))
styles-dir-list))))
(or styles-dir
(error "Cannot find factory styles files for Org ODT, aborting")))
(or (expand-file-name styles-dir)
(message "Cannot find factory styles files for Org ODT, aborting")))
"Directory that holds auxiliary XML files used by the ODT exporter.
This directory contains the following XML files -