Browse Source

TBLFM remote ref indirection: Fix start

* lisp/org-table.el (org-table-remote-reference-indirection): Change
the local variable START to a value that will be still valid after
`replace-match'.
Michael Brand 11 years ago
parent
commit
46f6fe3655
1 changed files with 5 additions and 2 deletions
  1. 5 2
      lisp/org-table.el

+ 5 - 2
lisp/org-table.el

@@ -5022,12 +5022,15 @@ distinguished from a plain table name or ID."
 			  ;; Same as in `org-table-eval-formula'.
 			  "\\<remote([ \t]*\\("
 			  ;; Allow "$1", "@<", "$-1", "@<<$1" etc.
-			  "[@$][^,)]+"
+			  "[@$][^ \t,]+"
 			  ;; Same as in `org-table-eval-formula'.
 			  "\\)[ \t]*,[ \t]*\\([^\n)]+\\))")
 			 form
 			 start)
-      (setq start (match-end 0))
+      ;; The position of the character as far as possible to the right
+      ;; that will not be replaced and particularly not be shifted by
+      ;; `replace-match'.
+      (setq start (match-beginning 1))
       ;; Substitute the remote reference with the value found in the
       ;; field.
       (setq form