From 7d1a6777d08a18e3df481ed2b6654ac220c05f57 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Sat, 12 Dec 2015 00:38:39 +0100
Subject: [PATCH] ox: Fix uninterpreted subscript

* lisp/ox.el (org-export--remove-uninterpreted-data-1): Fix
  un-interpreted subscript containing another object.

* testing/lisp/test-ox.el (test-org-export/uninterpreted): Add test.

Reported-by: Yasushi SHOJI <yashi@atmark-techno.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/103553>
---
 lisp/ox.el              |  2 +-
 testing/lisp/test-ox.el | 10 ++++++++++
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/lisp/ox.el b/lisp/ox.el
index 3071e559f..488c7271c 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -2757,7 +2757,7 @@ returned by the function."
 	(when new
 	  ;; Splice NEW at BLOB location in parse tree.
 	  (dolist (e new (org-element-extract-element blob))
-	    (unless (string= e "") (org-element-insert-before e blob))))))
+	    (unless (equal e "") (org-element-insert-before e blob))))))
     info nil nil t)
   ;; Return modified parse tree.
   data)
diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el
index 31de8f454..136fdfeff 100644
--- a/testing/lisp/test-ox.el
+++ b/testing/lisp/test-ox.el
@@ -778,6 +778,16 @@ Paragraph <2012-03-29 Thu>[2012-03-29 Thu]"
 			     (paragraph . (lambda (p c i) c))
 			     (section . (lambda (s c i) c))))
 	     nil nil nil '(:with-sub-superscript {})))))
+  (should
+   (equal "a_entity\n"
+	  (org-test-with-temp-text "a_\\alpha"
+	    (org-export-as
+	     (org-export-create-backend
+	      :transcoders '((entity . (lambda (e c i) "entity"))
+			     (subscript . (lambda (s c i) "dummy"))
+			     (paragraph . (lambda (p c i) c))
+			     (section . (lambda (s c i) c))))
+	     nil nil nil '(:with-sub-superscript nil)))))
   ;; Also handle uninterpreted objects in title.
   (should
    (equal "a_b"