From df78e9ff4eb8e168e628fbaedf5398db0678c9a5 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 3 Mar 2011 22:06:08 +0100 Subject: [PATCH] ttt --- lisp/org-table.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/lisp/org-table.el b/lisp/org-table.el index 7ccd3cdf0..f96cfb49c 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -2394,12 +2394,9 @@ not overwrite the stored one." t t form))) (setq form0 form) ;; Insert the references to fields in same row - (while (string-match "\\$\\([-+]?[0-9]+\\)" form) + (while (string-match "\\$\\(\\([-+]\\)?[0-9]+\\)" form) (setq n (+ (string-to-number (match-string 1 form)) - (if (member (substring form (match-beginning 1) - (1+ (match-beginning 1))) - '("+" "-")) - n0 0)) + (if (match-end 2) n0 0)) x (nth (1- (if (= n 0) n0 (max n 1))) fields)) (unless x (error "Invalid field specifier \"%s\"" (match-string 0 form))) -- 2.11.4.GIT