mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-02-07 21:35:02 +00:00
Code

babel: can now tangle files without extensions

Browse Source
This commit is contained in:
Dan Davison 2010-01-28 09:58:52 -07:00 committed by Eric Schulte
parent 04057e2195
commit 21849af58b
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))
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)