From 7ce732b294a6766a1d461970cc12a97ef4cfc192 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <n.goaziou@gmail.com>
Date: Sat, 1 Sep 2012 14:19:42 +0200
Subject: [PATCH] org-export: Make BIND keywords case insensitive

* contrib/lisp/org-export.el (org-export--install-letbind-maybe): Make
  BIND keywords case insensitive.
* testing/lisp/test-org-export.el: Add test.
---
 contrib/lisp/org-export.el      | 2 +-
 testing/lisp/test-org-export.el | 8 +++++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el
index 354fee050..0ead36811 100644
--- a/contrib/lisp/org-export.el
+++ b/contrib/lisp/org-export.el
@@ -1546,7 +1546,7 @@ possible security risks."
   "Install the values from #+BIND lines as local variables.
 Variables must be installed before in-buffer options are
 retrieved."
-  (let (letbind pair)
+  (let ((case-fold-search t) letbind pair)
     (org-with-wide-buffer
      (goto-char (point-min))
      (while (re-search-forward "^[ \t]*#\\+BIND:" nil t)
diff --git a/testing/lisp/test-org-export.el b/testing/lisp/test-org-export.el
index ed7257758..59987a093 100644
--- a/testing/lisp/test-org-export.el
+++ b/testing/lisp/test-org-export.el
@@ -88,7 +88,13 @@ already filled in `info'."
      (let ((org-export-allow-BIND 'confirm))
        (org-set-local 'org-export--allow-BIND-local nil)
        (org-export--install-letbind-maybe)
-       (boundp 'variable)))))
+       (boundp 'variable))))
+  ;; BIND keywords are case-insensitive.
+  (should
+   (org-test-with-temp-text "#+bind: variable value"
+     (let ((org-export-allow-BIND t))
+       (org-export--install-letbind-maybe)
+       (eq variable 'value)))))
 
 (ert-deftest test-org-export/parse-option-keyword ()
   "Test reading all standard #+OPTIONS: items."