From b59ebe6ec205248381b33e475fc5c6ebef25bdb7 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Sun, 7 Feb 2010 11:36:52 -0700 Subject: [PATCH] babel: org-babel-load-file will no longer strip portions of file names which appear to be extensions --- contrib/babel/lisp/org-babel-tangle.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/contrib/babel/lisp/org-babel-tangle.el b/contrib/babel/lisp/org-babel-tangle.el index d75f1d20..cad8ceca 100644 --- a/contrib/babel/lisp/org-babel-tangle.el +++ b/contrib/babel/lisp/org-babel-tangle.el @@ -108,9 +108,8 @@ exported source code blocks by language." ((> (length tangle) 0) tangle)) target-file)) (file-name (when base-name - (if (and ext - (string= base-name - (file-name-sans-extension base-name))) + ;; decide if we want to add ext to base-name + (if (and ext (not (string= (file-name-extension base-name) ext))) (concat base-name "." ext) base-name)))) ;; ;; debugging ;; (message -- 2.11.4.GIT