mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-07-20 13:26:28 +00:00
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'.
This commit is contained in:
parent
ae0f1c56a7
commit
46f6fe3655
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue