[nongnu] elpa/org-contrib 4739427741: lisp/org-static-mathjax.el: Add FIXME

[ELPA Syncer]

branch: elpa/org-contrib
commit 47394277415129ab979d03ae991b88027aca8b16
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    lisp/org-static-mathjax.el: Add FIXME
---
 lisp/org-static-mathjax.el | 29 ++++++++++++++++-------------
 1 file changed, 16 insertions(+), 13 deletions(-)

diff --git a/lisp/org-static-mathjax.el b/lisp/org-static-mathjax.el
index 23ce70bc0f..375da4958e 100644
--- a/lisp/org-static-mathjax.el
+++ b/lisp/org-static-mathjax.el
@@ -98,19 +98,22 @@ Sets the following buffer-local variables for
 HTML export `org-static-mathjax-options': The string given with
 #+STATICMATHJAX: in the file"
   (let ((static-mathjax-option-string (plist-get opt-plist :static-mathjax)))
-       (if static-mathjax-option-string
-               (progn (set (make-local-variable 'org-static-mathjax-options) 
static-mathjax-option-string)
-                          (set (make-local-variable 
'org-static-mathjax-mathjax-path)
-                                       (nth 1 (assq 'path 
org-export-html-mathjax-options)))
-                          (let ((mathjax-options (plist-get opt-plist 
:mathjax)))
-                                (if mathjax-options
-                                        (if (string-match "\\<path:" 
mathjax-options)
-                                                (set 
'org-static-mathjax-mathjax-path
-                                                         (car (read-from-string
-                                                                       
(substring mathjax-options (match-end 0))))))))
-                          (add-hook 'after-save-hook
-                                                'org-static-mathjax-process
-                                                nil t)))))
+    (if static-mathjax-option-string
+       (progn (set (make-local-variable 'org-static-mathjax-options) 
static-mathjax-option-string)
+              (set (make-local-variable 'org-static-mathjax-mathjax-path)
+                    ;; FIXME: `org-export-html-mathjax-options' dates
+                    ;; back to ox-xhtml.el that has been removed from
+                    ;; Org mode long time ago.  This code is not operational.
+                   (nth 1 (assq 'path org-export-html-mathjax-options)))
+              (let ((mathjax-options (plist-get opt-plist :mathjax)))
+                (if mathjax-options
+                    (if (string-match "\\<path:" mathjax-options)
+                        (set 'org-static-mathjax-mathjax-path
+                             (car (read-from-string
+                                   (substring mathjax-options (match-end 
0))))))))
+              (add-hook 'after-save-hook
+                        'org-static-mathjax-process
+                        nil t)))))
 
 
 (defun org-static-mathjax-process ()