forked from mirrors/org-mode
Revert "org-clean-before-export matches non-special columns spuriously"
This reverts commit 79873390ed
.
The fix was wrong and gave rise to a different problem - see
http://thread.gmane.org/gmane.emacs.orgmode/89945
Revert it for now, since there is a workaround for the original
problem and plan on a correct fix in the near future.
This commit is contained in:
parent
b8bd2147cb
commit
50da53de51
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue