Explorar o código

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

* 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.
Bastien Guerry %!s(int64=13) %!d(string=hai) anos
pai
achega
fc8ad1347e
Modificáronse 1 ficheiros con 7 adicións e 3 borrados
  1. 7 3
      lisp/org-odt.el

+ 7 - 3
lisp/org-odt.el

@@ -150,7 +150,11 @@ Also add it to `rng-schema-locating-files'."
   (let* ((d (expand-file-name "../" (org-find-library-dir "org-odt.el")))
   (let* ((d (expand-file-name "../" (org-find-library-dir "org-odt.el")))
 	 (styles-dir-list (list
 	 (styles-dir-list (list
 			   (concat d "etc/styles/") ;; ELPA and Git
 			   (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)
 	 styles-dir)
     (setq styles-dir
     (setq styles-dir
 	  (car
 	  (car
@@ -164,8 +168,8 @@ Also add it to `rng-schema-locating-files'."
 					"OrgOdtStyles.xml" sd)))
 					"OrgOdtStyles.xml" sd)))
 			     sd))
 			     sd))
 			 styles-dir-list))))
 			 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.
   "Directory that holds auxiliary XML files used by the ODT exporter.
 
 
 This directory contains the following XML files -
 This directory contains the following XML files -