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:
Nicolas Goaziou 2015-08-09 02:09:08 +02:00
parent 134d5983ec
commit 46f3f4c626
1 changed files with 2 additions and 2 deletions

View File

@ -2560,14 +2560,14 @@ This function assumes the table is already analyzed (i.e., using
(cond
((cdr (assoc ref org-table-named-field-locations)))
((string-match "\\`@\\([1-9][0-9]*\\)\\$\\([1-9][0-9]*\\)\\'" ref)
(cons (condition-case nil
(list (condition-case nil
(aref org-table-dlines
(string-to-number (match-string 1 ref)))
(error (user-error "Invalid row number in %s" ref)))
(string-to-number (match-string 2 ref))))
(t (user-error "Unknown field: %s" ref))))
(line (car coordinates))
(column (cdr coordinates))
(column (nth 1 coordinates))
(create-new-column (if (functionp create-column-p)
(funcall create-column-p column)
create-column-p)))