From ab44d70017c5b40af89e6130b9486ab70fb30042 Mon Sep 17 00:00:00 2001 From: Gerard Vermeulen Date: Mon, 6 Dec 2021 08:30:31 +0100 Subject: [PATCH] Improve comments in source block --- README.org | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/README.org b/README.org index 3a763ac..d8438c8 100644 --- a/README.org +++ b/README.org @@ -796,9 +796,9 @@ Stolen from [[https://git.sr.ht/~bzg/org-contrib/tree/master/item/lisp/ox-extra. (header (org-export-read-attribute :header block :header))) (when (and (string= type "LATEX") (string= header "yes")) block)))))) - ;; Set point to where to insert LaTeX header lines after - ;; deleting the block. (mapc (lambda (block) + ;; Set point to where to insert LaTeX header lines + ;; after deleting the block. (goto-char (org-element-property :post-affiliated block)) (let ((lines (split-string (org-element-property :value block) "\n"))) @@ -808,8 +808,9 @@ Stolen from [[https://git.sr.ht/~bzg/org-contrib/tree/master/item/lisp/ox-extra. (insert (concat "#+latex_header: " (replace-regexp-in-string "\\` *" "" line) "\n"))))) - ;; Reverse to go upwards to avoid wrecking the numeric - ;; positions earlier in the file. + ;; Reverse to go upwards to avoid wrecking the list of + ;; block positions in the file that would occur in case + ;; of going downwards. (reverse blocks))))) (defun my-activate-buffer-local-org-export-filters ()