mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 00:32:54 +00:00
Merge branch 'master' of git+ssh://repo.or.cz/srv/git/org-mode
This commit is contained in:
commit
ef3c18ed47
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue