From d0a3a3870f1d8e51d621890728c55ad9862371cb Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Tue, 6 Sep 2011 21:52:04 -0600 Subject: [PATCH] org-exp: only remove commas on the front line of a code block * lisp/org-exp.el (org-export-select-backend-specific-text): Only remove commas on the front line of a code block. --- lisp/org-exp.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/org-exp.el b/lisp/org-exp.el index f795fbd02..42b26e47b 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -1738,8 +1738,14 @@ from the buffer." (save-excursion (save-match-data (goto-char beg-content) - (while (re-search-forward "^[ \t]*\\(,\\)" end-content t) - (replace-match "" nil nil nil 1)))) + (let ((front-line (save-excursion + (re-search-forward + "[^[:space:]]" end-content t) + (goto-char (match-beginning 0)) + (current-column)))) + (while (re-search-forward "^[ \t]*\\(,\\)" end-content t) + (when (= (current-column) front-line) + (replace-match "" nil nil nil 1)))))) (delete-region (match-beginning 0) (match-end 0)) (save-excursion (goto-char beg)