summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2010-02-07 11:36:52 -0700
committerEric Schulte <schulte.eric@gmail.com>2010-02-07 11:42:55 -0700
commitb59ebe6ec205248381b33e475fc5c6ebef25bdb7 (patch)
treee857703146e05032a4ad9e64fe652a68668e3147
parenta60a83fbb65a368bb96ea6aaf1db20706b3e99c5 (diff)
downloadorg-mode-b59ebe6ec205248381b33e475fc5c6ebef25bdb7.tar.gz
babel: org-babel-load-file will no longer strip portions of file names which appear to be extensions
-rw-r--r--contrib/babel/lisp/org-babel-tangle.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/contrib/babel/lisp/org-babel-tangle.el b/contrib/babel/lisp/org-babel-tangle.el
index d75f1d2..cad8cec 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