From a70604eb6337464ba86d713a81297a1312bc9334 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 3 Aug 2015 22:56:22 +0200 Subject: [PATCH] org-table: Fix computation with backwards ranges * lisp/org-table.el (org-table-get-range): Use correct values to extract range. This is important when range is defined backwards (e.g., @-I..@-II). Reported-by: Sebastien Vauban --- lisp/org-table.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/org-table.el b/lisp/org-table.el index 4bde140e6..62de402ad 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -2939,16 +2939,16 @@ and column2 are table column numbers." (last-column (max c1 c2))) (if corners-only (list first-row first-column last-row last-column) ;; Copy the range values into a list. - (forward-line (- r1 thisline)) + (forward-line (- first-row thisline)) (while (not (looking-at org-table-dataline-regexp)) (forward-line) - (incf r1)) - (org-table-goto-column c1) + (incf first-row)) + (org-table-goto-column first-column) (let ((beg (point))) - (forward-line (- r2 r1)) + (forward-line (- last-row first-row)) (while (not (looking-at org-table-dataline-regexp)) (forward-line -1)) - (org-table-goto-column c2) + (org-table-goto-column last-column) (let ((end (point))) (when highlight (org-table-highlight-rectangle