mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:36:26 +00:00
Code Releases Activity

org-table: Fix number-or-marker-p error

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/org-table.el
View file

@ -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)))