diff options
author | Sébastien Delafond <sdelafond@gmail.com> | 2014-10-13 11:01:35 +0200 |
---|---|---|
committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-10-13 11:01:35 +0200 |
commit | 4dc4918d0d667f18f3d5e3dd71e6f117ddb8af8a (patch) | |
tree | 6a236a48e820fe956c9737b967f9517e09a9137e /lisp/org-table.el | |
parent | f57fab831252ebe5037ceabe9843623c4bd14f15 (diff) |
Imported Upstream version 8.2.10
Diffstat (limited to 'lisp/org-table.el')
-rw-r--r-- | lisp/org-table.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/org-table.el b/lisp/org-table.el index f19c027..30a66c9 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -436,11 +436,15 @@ available parameters." "[ \t]*|[ \t]*"))))))) (defvar org-table-clean-did-remove-column nil) ; dynamically scoped -(defun org-table-clean-before-export (lines) +(defun org-table-clean-before-export (lines &optional maybe-quoted) "Check if the table has a marking column. If yes remove the column and the special lines." - (let ((special "^[ \t]*| *[#!$*_^/] *|") - (ignore "^[ \t]*| *[!$_^/] *|")) + (let ((special (if maybe-quoted + "^[ \t]*| *\\\\?[\#!$*_^/ ] *|" + "^[ \t]*| *[\#!$*_^/ ] *|")) + (ignore (if maybe-quoted + "^[ \t]*| *\\\\?[!$_^/] *|" + "^[ \t]*| *[!$_^/] *|"))) (setq org-table-clean-did-remove-column (not (memq nil (mapcar |