mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-23 16:48:45 +00:00
Code Releases Activity

exp: strip protective commas from literal code blocks

Browse source 
* lisp/org-exp.el (org-export-select-backend-specific-text): Strip
  protective commas from literal code blocks.
This commit is contained in:
Eric Schulte 2011-06-28 15:43:20 -07:00
parent cb67a439b1
commit 20044297a4
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/org-exp.el
View file

@ -1708,6 +1708,12 @@ from the buffer."
(add-text-properties
beg-content end-content
`(org-protected t original-indentation ,ind org-native-text t))
;; strip protective commas
(save-excursion
(save-match-data
(goto-char beg-content)
(while (re-search-forward "^[ \t]*\\(,\\)" end-content t)
(replace-match "" nil nil nil 1))))
(delete-region (match-beginning 0) (match-end 0))
(save-excursion
(goto-char beg)