mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 23:17:49 +00:00
ob-tangle.el: Fix coderef removal during tangling
* lisp/ob-tangle.el (orb-babel-tangle-single-block): Regularize behavior when removing coderefs during tangling. This fixes an issue where trailing whitespace would be retained when coderefs were removed for tangling.
This commit is contained in:
parent
5469bc4e55
commit
b523ad491d
|
@ -415,9 +415,8 @@ non-nil, return the full association list to be used by
|
|||
(src-lang (nth 0 info))
|
||||
(params (nth 2 info))
|
||||
(extra (nth 3 info))
|
||||
(cref-fmt (or (and (string-match "-l \"\\(.+\\)\"" extra)
|
||||
(match-string 1 extra))
|
||||
org-coderef-label-format))
|
||||
(coderef (nth 6 info))
|
||||
(cref-regexp (org-src-coderef-regexp coderef))
|
||||
(link (let ((l (org-no-properties (org-store-link nil))))
|
||||
(and (string-match org-link-bracket-re l)
|
||||
(match-string 1 l))))
|
||||
|
@ -446,8 +445,7 @@ non-nil, return the full association list to be used by
|
|||
(funcall assignments-cmd params))))))
|
||||
(when (string-match "-r" extra)
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward
|
||||
(replace-regexp-in-string "%s" ".+" cref-fmt) nil t)
|
||||
(while (re-search-forward cref-regexp nil t)
|
||||
(replace-match "")))
|
||||
(run-hooks 'org-babel-tangle-body-hook)
|
||||
(buffer-string))))
|
||||
|
|
Loading…
Reference in a new issue