From a7c699331e4a86d5779cecec22de0a297cd13d1c Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Wed, 30 Jun 2010 12:37:07 -0700 Subject: [PATCH 2/2] babel: added function for completely disabling emacs-lisp code block evaluation * lisp/babel/langs/ob-emacs-lisp.el (org-babel-disable:emacs-lisp): added function for completely disabling emacs-lisp code block evaluation, after this function is called emacs lisp code blocks will be note evaluable by Babel unless the ob-emacs-lisp file is re-loaded --- lisp/babel/langs/ob-emacs-lisp.el | 11 +++++++++++ 1 files changed, 11 insertions(+), 0 deletions(-) diff --git a/lisp/babel/langs/ob-emacs-lisp.el b/lisp/babel/langs/ob-emacs-lisp.el index 81ee22e..8ddb8c3 100644 --- a/lisp/babel/langs/ob-emacs-lisp.el +++ b/lisp/babel/langs/ob-emacs-lisp.el @@ -68,6 +68,17 @@ (org-babel-pick-name (nth 4 processed-params) (cdr (assoc :colnames params))) (org-babel-pick-name (nth 5 processed-params) (cdr (assoc :rownames params))))))) +(defun org-babel-disable:emacs-lisp () + "This function can be used to disable evaluation of emacs-lisp +code blocks. Calling this function ensures that no emacs-lisp +code blocks can be evaluated on your system unless +`ob-emacs-lisp' is later explicitly loaded or required." + (interactive) + (defun org-babel-execute:emacs-lisp (body params) + (error "Emacs lisp evaluation is disabled.")) + (defun org-babel-expand-body:emacs-lisp (body params &optional processed-params) + (error "Emacs lisp evaluation is disabled."))) + (provide 'ob-emacs-lisp) ;; arch-tag: e9a3acca-dc84-472a-9f5a-23c35befbcd6 -- 1.7.0.4