[PATCH 3/3] mark o-b-default-header-args:R as a safe local under proper conditions

[Aaron Ecay <aaronecay@gmail.com>]

* lisp/ob-R.el (org-babel-default-header-args:R): mark as a safe local
variable
---
 lisp/ob-R.el | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/lisp/ob-R.el b/lisp/ob-R.el
index 74d7513..2086622 100644
--- a/lisp/ob-R.el
+++ b/lisp/ob-R.el
@@ -66,6 +66,22 @@
   "R-specific header arguments.")
 
 (defvar org-babel-default-header-args:R '())
+(put 'org-babel-default-header-args:R 'safe-local-variable
+     (lambda (value)
+       (and (listp value)
+	    (and (mapcar
+		  (lambda (pair)
+		    (and (consp pair)
+			 (or (org-babel-one-header-arg-safe-p pair)
+			     (memq (car pair)
+				   '(:width :height :bg
+					    :units :pointsize :antialias
+					    :quality :compression :res
+					    :type :family :title :fonts
+					    :version :paper :encoding
+					    :pagecentre :colormodel
+					    :useDingbats :horizontal)))))
+		  value)))))
 
 (defcustom org-babel-R-command "R --slave --no-save"
   "Name of command to use for executing R code."
-- 
1.8.4.1