summaryrefslogtreecommitdiff
path: root/lisp/org-table.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/org-table.el')
-rw-r--r--lisp/org-table.el10
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