mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-25 00:32:54 +00:00
Code Releases Activity

Merge branch 'master' of git+ssh://repo.or.cz/srv/git/org-mode

Browse source
This commit is contained in:
Carsten Dominik 2010-01-29 08:20:21 +01:00
parent 2038d61463 21849af58b
commit ef3c18ed47
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
contrib/babel/lisp/org-babel-tangle.el
View file

@ -102,9 +102,10 @@ exported source code blocks by language."
((> (length tangle) 0) tangle)) ((> (length tangle) 0) tangle))
target-file)) target-file))
(file-name (when base-name (file-name (when base-name
(if (string= base-name (if (and ext
(file-name-sans-extension base-name)) (string= base-name
(concat base-name "." ext) base-name)))) (file-name-sans-extension base-name)))
(concat base-name "." ext) base-name))))
;; ;; debugging ;; ;; debugging
;; (message "tangle=%S base-name=%S file-name=%S" ;; (message "tangle=%S base-name=%S file-name=%S"
;; tangle base-name file-name) ;; tangle base-name file-name)