From mboxrd@z Thu Jan 1 00:00:00 1970 From: Aaron Ecay Subject: [PATCH 3/3] mark o-b-default-header-args:R as a safe local under proper conditions Date: Mon, 28 Oct 2013 16:19:03 -0400 Message-ID: <1382991543-14273-4-git-send-email-aaronecay@gmail.com> References: <1382991543-14273-1-git-send-email-aaronecay@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:57357) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VatHW-0000b9-Qk for emacs-orgmode@gnu.org; Mon, 28 Oct 2013 16:19:33 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VatHN-0007A6-Mx for emacs-orgmode@gnu.org; Mon, 28 Oct 2013 16:19:22 -0400 Received: from mail-qe0-x234.google.com ([2607:f8b0:400d:c02::234]:49050) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VatHN-0007A0-J2 for emacs-orgmode@gnu.org; Mon, 28 Oct 2013 16:19:13 -0400 Received: by mail-qe0-f52.google.com with SMTP id w7so4281869qeb.25 for ; Mon, 28 Oct 2013 13:19:13 -0700 (PDT) In-Reply-To: <1382991543-14273-1-git-send-email-aaronecay@gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * 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