diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-02-07 11:36:52 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-02-07 11:42:55 -0700 |
commit | b59ebe6ec205248381b33e475fc5c6ebef25bdb7 (patch) | |
tree | e857703146e05032a4ad9e64fe652a68668e3147 | |
parent | a60a83fbb65a368bb96ea6aaf1db20706b3e99c5 (diff) | |
download | org-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.el | 5 |
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 |