diff options
author | Sébastien Delafond <sdelafond@gmail.com> | 2014-08-27 12:01:58 +0200 |
---|---|---|
committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-08-27 12:01:58 +0200 |
commit | f57fab831252ebe5037ceabe9843623c4bd14f15 (patch) | |
tree | d383b556871ea0034a90209c6d2dce523975701a /lisp/org-table.el | |
parent | 75a81babfdc3c8c643962fd77b034b42e20cbee3 (diff) |
Imported Upstream version 8.2.7c
Diffstat (limited to 'lisp/org-table.el')
-rw-r--r-- | lisp/org-table.el | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/lisp/org-table.el b/lisp/org-table.el index 6d649ab..f19c027 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -436,15 +436,11 @@ available parameters." "[ \t]*|[ \t]*"))))))) (defvar org-table-clean-did-remove-column nil) ; dynamically scoped -(defun org-table-clean-before-export (lines &optional maybe-quoted) +(defun org-table-clean-before-export (lines) "Check if the table has a marking column. If yes remove the column and the special lines." - (let ((special (if maybe-quoted - "^[ \t]*| *\\\\?[\#!$*_^/ ] *|" - "^[ \t]*| *[\#!$*_^/ ] *|")) - (ignore (if maybe-quoted - "^[ \t]*| *\\\\?[!$_^/] *|" - "^[ \t]*| *[!$_^/] *|"))) + (let ((special "^[ \t]*| *[#!$*_^/] *|") + (ignore "^[ \t]*| *[!$_^/] *|")) (setq org-table-clean-did-remove-column (not (memq nil (mapcar @@ -3863,10 +3859,10 @@ With prefix ARG, apply the new formulas to the table." (push org-table-current-begin-pos org-show-positions) (let ((min (apply 'min org-show-positions)) (max (apply 'max org-show-positions))) - (set-window-start (selected-window) (point-min)) + (set-window-start (selected-window) min) (goto-char max) (or (pos-visible-in-window-p max) - (set-window-start (selected-window) (point-max))))) + (set-window-start (selected-window) max)))) (select-window win)))) (defun org-table-force-dataline () |