Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --- /tmp/git-blob-Ci3wqN/ob-tangle.el 2026-03-31 20:50:41.848263427 -0400
- +++ lisp/ob-tangle.el 2026-03-31 20:50:41.064157035 -0400
- @@ -269,7 +269,9 @@
- org-babel-default-header-args))
- (tangle-file
- (when (equal arg '(16))
- - (or (cdr (assq :tangle (nth 2 (org-babel-get-src-block-info 'no-eval))))
- + (or (org-babel-tangle--compute-targets
- + (buffer-file-name (buffer-base-buffer))
- + (org-babel-get-src-block-info))
- (user-error "Point is not in a source code block"))))
- path-collector
- (source-file (org-base-buffer-file-name)))
- @@ -513,7 +515,7 @@
- (unless (or (not src-file)
- ;; src block without lang
- (and (not src-lang) src-file)
- - (and tangle-file (not (equal tangle-file src-file)))
- + (and tangle-file (not (member src-file tangle-file)))
- ;; lang-re but either no lang or lang doesn't match
- (and lang-re
- (or (not src-lang)
Advertisement
Add Comment
Please, Sign In to add comment