From 45841a8a9de62049c15d371831be6673d50a24eb Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Sat, 12 Jun 2010 16:02:50 -0700 Subject: [PATCH] babel: ensure `org-babel-interpreters' is defined before `org-babel-add-interpreter' * lisp/babel/ob.el: ensure `org-babel-interpreters' is defined before `org-babel-add-interpreter' --- lisp/babel/ob.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/babel/ob.el b/lisp/babel/ob.el index dae8f6ebe..74aeae9bc 100644 --- a/lisp/babel/ob.el +++ b/lisp/babel/ob.el @@ -156,6 +156,16 @@ can not be resolved.") (concat org-babel-source-name-regexp (regexp-quote name) "[ \t\n]*" (substring org-babel-src-block-regexp 1))) +(defun org-babel-add-interpreter (interpreter) + "Add INTERPRETER to `org-babel-interpreters' and update +`org-babel-src-block-regexp' appropriately." + (unless (member interpreter org-babel-interpreters) + (setq org-babel-interpreters + (sort (cons interpreter org-babel-interpreters) + (lambda (left right) + (> (length left) (length right))))) + (org-babel-set-interpreters 'org-babel-interpreters org-babel-interpreters))) + (defun org-babel-set-interpreters (var value) "Update the regular expressions used to match block and inline code." @@ -177,16 +187,6 @@ code." "{\\([^\f\n\r\v]+?\\)}" ;; (5) body "\\)"))) -(defun org-babel-add-interpreter (interpreter) - "Add INTERPRETER to `org-babel-interpreters' and update -`org-babel-src-block-regexp' appropriately." - (unless (member interpreter org-babel-interpreters) - (setq org-babel-interpreters - (sort (cons interpreter org-babel-interpreters) - (lambda (left right) - (> (length left) (length right))))) - (org-babel-set-interpreters 'org-babel-interpreters org-babel-interpreters))) - (defcustom org-babel-interpreters '() "Interpreters allows for evaluation tags. This is a list of program names (as strings) that can evaluate code and