From 21849af58b707577806a74c8b371e128b770d5d5 Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Thu, 28 Jan 2010 09:58:52 -0700 Subject: [PATCH] babel: can now tangle files without extensions --- contrib/babel/lisp/org-babel-tangle.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/contrib/babel/lisp/org-babel-tangle.el b/contrib/babel/lisp/org-babel-tangle.el index c805373ce..66e2c2658 100644 --- a/contrib/babel/lisp/org-babel-tangle.el +++ b/contrib/babel/lisp/org-babel-tangle.el @@ -102,9 +102,10 @@ exported source code blocks by language." ((> (length tangle) 0) tangle)) target-file)) (file-name (when base-name - (if (string= base-name - (file-name-sans-extension base-name)) - (concat base-name "." ext) base-name)))) + (if (and ext + (string= base-name + (file-name-sans-extension base-name))) + (concat base-name "." ext) base-name)))) ;; ;; debugging ;; (message "tangle=%S base-name=%S file-name=%S" ;; tangle base-name file-name)