From e37cea2f24af2480230fdbaba8d433c5bbd114bf Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Tue, 25 Aug 2009 08:34:49 -0600 Subject: [PATCH] fixed small bug introduced when switching to the `org-src-lang-modes' --- lisp/org-babel-tangle.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-babel-tangle.el b/lisp/org-babel-tangle.el index 660d4fb47..32d496f04 100644 --- a/lisp/org-babel-tangle.el +++ b/lisp/org-babel-tangle.el @@ -79,8 +79,9 @@ exported source code blocks by language." (let* ((lang (car by-lang)) (specs (cdr by-lang)) (lang-f (intern (concat - (or (symbol-name - (cdr (assoc lang org-src-lang-modes))) + (or (and (cdr (assoc lang org-src-lang-modes)) + (symbol-name + (cdr (assoc lang org-src-lang-modes)))) lang) "-mode"))) (lang-specs (cdr (assoc lang org-babel-tangle-langs))) @@ -213,8 +214,9 @@ the source-code block which holds BODY." (setq new-body (concat new-body text)))) (with-temp-buffer (insert body) (goto-char (point-min)) - (funcall (intern (concat (or (symbol-name - (cdr (assoc lang org-src-lang-modes))) + (funcall (intern (concat (or (and (cdr (assoc lang org-src-lang-modes)) + (symbol-name + (cdr (assoc lang org-src-lang-modes)))) lang) "-mode"))) (setq index (point)) (while (and (re-search-forward "<<\\(.+\\)>>" nil t)) -- 2.11.4.GIT