Browse Source

Revert "org-clean-before-export matches non-special columns spuriously"

This reverts commit 79873390edd26a44cefc2050c7af470a7ed8fd07.
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.
Nick Dokos 10 years ago
parent
commit
50da53de51
1 changed files with 7 additions and 3 deletions
  1. 7 3
      lisp/org-table.el

+ 7 - 3
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