Guest User

Untitled

a guest
Apr 8th, 2026
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.11 KB | None | 0 0
  1. --- /tmp/git-blob-Ci3wqN/ob-tangle.el 2026-03-31 20:50:41.848263427 -0400
  2. +++ lisp/ob-tangle.el 2026-03-31 20:50:41.064157035 -0400
  3. @@ -269,7 +269,9 @@
  4. org-babel-default-header-args))
  5. (tangle-file
  6. (when (equal arg '(16))
  7. - (or (cdr (assq :tangle (nth 2 (org-babel-get-src-block-info 'no-eval))))
  8. + (or (org-babel-tangle--compute-targets
  9. + (buffer-file-name (buffer-base-buffer))
  10. + (org-babel-get-src-block-info))
  11. (user-error "Point is not in a source code block"))))
  12. path-collector
  13. (source-file (org-base-buffer-file-name)))
  14. @@ -513,7 +515,7 @@
  15. (unless (or (not src-file)
  16. ;; src block without lang
  17. (and (not src-lang) src-file)
  18. - (and tangle-file (not (equal tangle-file src-file)))
  19. + (and tangle-file (not (member src-file tangle-file)))
  20. ;; lang-re but either no lang or lang doesn't match
  21. (and lang-re
  22. (or (not src-lang)
  23.  
Advertisement
Add Comment
Please, Sign In to add comment