|
@@ -1234,8 +1234,7 @@ may have been stored before."
|
|
(while (re-search-forward org-table-dataline-regexp end t)
|
|
(while (re-search-forward org-table-dataline-regexp end t)
|
|
(pcase (org-element-lineage (org-element-at-point) '(table) t)
|
|
(pcase (org-element-lineage (org-element-at-point) '(table) t)
|
|
(`nil nil)
|
|
(`nil nil)
|
|
- ((and table
|
|
|
|
- (guard (eq 'table.el (org-element-property :type table))))
|
|
|
|
|
|
+ ((pred (lambda (e) (eq 'table.el (org-element-property :type e))))
|
|
nil)
|
|
nil)
|
|
(table
|
|
(table
|
|
(goto-char (org-element-property :contents-end table))
|
|
(goto-char (org-element-property :contents-end table))
|