|
@@ -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
|