mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 21:07:54 +00:00
org-table: Fix number-or-marker-p error
* lisp/org-table.el (org-table-goto-field): Fix number-or-marker-p error. Initial patch by Rasmus <rasmus@gmx.us>. Reported-by: Scott Randby <srandby@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/99715>
This commit is contained in:
parent
134d5983ec
commit
46f3f4c626
|
@ -2560,14 +2560,14 @@ This function assumes the table is already analyzed (i.e., using
|
||||||
(cond
|
(cond
|
||||||
((cdr (assoc ref org-table-named-field-locations)))
|
((cdr (assoc ref org-table-named-field-locations)))
|
||||||
((string-match "\\`@\\([1-9][0-9]*\\)\\$\\([1-9][0-9]*\\)\\'" ref)
|
((string-match "\\`@\\([1-9][0-9]*\\)\\$\\([1-9][0-9]*\\)\\'" ref)
|
||||||
(cons (condition-case nil
|
(list (condition-case nil
|
||||||
(aref org-table-dlines
|
(aref org-table-dlines
|
||||||
(string-to-number (match-string 1 ref)))
|
(string-to-number (match-string 1 ref)))
|
||||||
(error (user-error "Invalid row number in %s" ref)))
|
(error (user-error "Invalid row number in %s" ref)))
|
||||||
(string-to-number (match-string 2 ref))))
|
(string-to-number (match-string 2 ref))))
|
||||||
(t (user-error "Unknown field: %s" ref))))
|
(t (user-error "Unknown field: %s" ref))))
|
||||||
(line (car coordinates))
|
(line (car coordinates))
|
||||||
(column (cdr coordinates))
|
(column (nth 1 coordinates))
|
||||||
(create-new-column (if (functionp create-column-p)
|
(create-new-column (if (functionp create-column-p)
|
||||||
(funcall create-column-p column)
|
(funcall create-column-p column)
|
||||||
create-column-p)))
|
create-column-p)))
|
||||||
|
|
Loading…
Reference in a new issue