Преглед изворни кода

Merge branch 'master' of orgmode.org:org-mode

Bastien Guerry пре 12 година
родитељ
комит
8694aa9352
1 измењених фајлова са 5 додато и 2 уклоњено
  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