diff options
| author | Paul Eggert | 2017-09-10 22:22:55 -0700 |
|---|---|---|
| committer | Paul Eggert | 2017-09-10 22:31:23 -0700 |
| commit | 74b8615fcceba7b92c4938e1bcc92015f10ae899 (patch) | |
| tree | 5f8d8002fb0dcf6fc20509f9e3c69ab41d85fc0c | |
| parent | 739593d68742f45e4e35dfc99573c47a5031b646 (diff) | |
| download | emacs-74b8615fcceba7b92c4938e1bcc92015f10ae899.tar.gz emacs-74b8615fcceba7b92c4938e1bcc92015f10ae899.zip | |
Adjust ob-tangle to new copy-file behavior
* lisp/org/ob-tangle.el (org-babel-tangle-publish):
Port to new copy-file behavior.
| -rw-r--r-- | lisp/org/ob-tangle.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/org/ob-tangle.el b/lisp/org/ob-tangle.el index 3b0533261c6..2dc55caf89c 100644 --- a/lisp/org/ob-tangle.el +++ b/lisp/org/ob-tangle.el | |||
| @@ -197,6 +197,7 @@ Return a list whose CAR is the tangled file name." | |||
| 197 | "Tangle FILENAME and place the results in PUB-DIR." | 197 | "Tangle FILENAME and place the results in PUB-DIR." |
| 198 | (unless (file-exists-p pub-dir) | 198 | (unless (file-exists-p pub-dir) |
| 199 | (make-directory pub-dir t)) | 199 | (make-directory pub-dir t)) |
| 200 | (setq pub-dir (file-name-as-directory pub-dir)) | ||
| 200 | (mapc (lambda (el) (copy-file el pub-dir t)) (org-babel-tangle-file filename))) | 201 | (mapc (lambda (el) (copy-file el pub-dir t)) (org-babel-tangle-file filename))) |
| 201 | 202 | ||
| 202 | ;;;###autoload | 203 | ;;;###autoload |