From 52fad5b38d1970ea546c645daf4652110b00123b Mon Sep 17 00:00:00 2001 From: Correl Roush Date: Wed, 10 Dec 2014 22:59:41 -0500 Subject: [PATCH] [emacs] Fix org-babel aliases --- .emacs.d/emacs.org | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/.emacs.d/emacs.org b/.emacs.d/emacs.org index 0d20000..4f7542d 100644 --- a/.emacs.d/emacs.org +++ b/.emacs.d/emacs.org @@ -144,14 +144,15 @@ (let ((language-table (cddr '<>))) (mapcar (lambda (lang-pair) (let* ((alias (if (not (string= (cadr lang-pair) "")) (cadr lang-pair))) - (lang (if alias (make-symbol alias) (make-symbol (car lang-pair)))) + (lang (make-symbol (car lang-pair))) + (lang-or-alias (if alias (make-symbol alias) lang)) (confirm (not (string= (cl-caddr lang-pair) "No")))) (if alias (add-to-list 'my/org-src-lang-modes (cons alias lang))) (if (not confirm) - (add-to-list 'my/org-babel-no-confirm-languages lang)) - (add-to-list 'my/org-babel-evaluated-languages lang) - lang)) + (add-to-list 'my/org-babel-no-confirm-languages lang-or-alias)) + (add-to-list 'my/org-babel-evaluated-languages lang-or-alias) + lang-or-alias)) language-table)) (mapcar (lambda (alias)