ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Export: Do not treat #+ lines as exportable comments

This commit is contained in:
Carsten Dominik 2009-05-27 16:36:39 +02:00
parent 3089eb6150
commit ecfabf4968
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-exp.el
View File

@ -1754,16 +1754,17 @@ table line. If it is a link, add it to the line containing the link."
"Remove comments, or convert to backend-specific format. "Remove comments, or convert to backend-specific format.
COMMENTSP can be a format string for publishing comments. COMMENTSP can be a format string for publishing comments.
When it is nil, all comments will be removed." When it is nil, all comments will be removed."
(let ((re "^#\\(.*\n?\\)") (let ((re "^\\(#\\|[ \t]*#\\+\\)\\(.*\n?\\)")
pos) pos)
(goto-char (point-min)) (goto-char (point-min))
(while (or (looking-at re) (while (or (looking-at re)
(re-search-forward re nil t)) (re-search-forward re nil t))
(setq pos (match-beginning 0)) (setq pos (match-beginning 0))
(if commentsp (if (and commentsp
(not (equal (char-before (match-end 1)) ?+)))
(progn (add-text-properties (progn (add-text-properties
(match-beginning 0) (match-end 0) '(org-protected t)) (match-beginning 0) (match-end 0) '(org-protected t))
(replace-match (format commentsp (match-string 1)) t t)) (replace-match (format commentsp (match-string 2)) t t))
(goto-char (1+ pos)) (goto-char (1+ pos))
(org-if-unprotected (org-if-unprotected
(replace-match "") (replace-match "")