forked from mirrors/org-mode
Revert "org-table: Improve bidirectional reordering in tables"
This reverts commit f4ae1941c9
.
This commit is contained in:
parent
ff0f3e4723
commit
401890986c
|
@ -496,12 +496,6 @@ variable is initialized with `org-table-analyze'.")
|
|||
(concat "\\(" "@[-0-9I$]+" "\\|" "[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)" "\\)")
|
||||
"Match a reference that needs translation, for reference display.")
|
||||
|
||||
(defconst org-table-separator-space
|
||||
(propertize " " 'display '(space :width 1))
|
||||
"Space used around fields when aligning the table.
|
||||
This space serves as a segment separator for the purposes of the
|
||||
bidirectional reordering.")
|
||||
|
||||
(defmacro org-table-save-field (&rest body)
|
||||
"Save current field; execute BODY; restore field.
|
||||
Field is restored even in case of abnormal exit."
|
||||
|
@ -888,10 +882,7 @@ edit. Full value is:\n"
|
|||
;; Compute the formats needed for output of the table.
|
||||
(let ((hfmt (concat indent "|"))
|
||||
(rfmt (concat indent "|"))
|
||||
(rfmt1 (concat org-table-separator-space
|
||||
"%%%s%ds"
|
||||
org-table-separator-space
|
||||
"|"))
|
||||
(rfmt1 " %%%s%ds |")
|
||||
(hfmt1 "-%s-+"))
|
||||
(dolist (l lengths (setq hfmt (concat (substring hfmt 0 -1) "|")))
|
||||
(let ((ty (if (pop typenums) "" "-"))) ; Flush numbers right.
|
||||
|
|
Loading…
Reference in New Issue