mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-18 10:17:03 +00:00
Code

currently not even trying to find the table if it's in another file

Browse Source 
(but this probably wouldn't be too much work)
This commit is contained in:
Eric Schulte 2009-03-28 14:25:26 -07:00
parent 9b2e4f2257
commit 5805507dc3
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
litorgy/litorgy-reference.el
View File

@ -100,12 +100,16 @@ representation of the value of the variable."
(t
(goto-char (point-min))
(setq direction 1)
(unless (re-search-forward
(concat "^#\\+TBLNAME:[ \t]*" (regexp-quote ref) "[ \t]*$") nil t)
(setq id-loc (org-id-find name-or-id 'marker)
buffer (marker-buffer id-loc)
loc (marker-position id-loc))
(move-marker id-loc nil))))
(unless (let ((regexp (concat "^#\\+TBLNAME:[ \t]*"
(regexp-quote ref) "[ \t]*$")))
(or (re-search-forward regexp nil t)
(re-search-backward regexp nil t)))
;; ;; TODO: allow searching for table in other buffers
;; (setq id-loc (org-id-find ref 'marker)
;; buffer (marker-buffer id-loc)
;; loc (marker-position id-loc))
;; (move-marker id-loc nil)
(error (format "table '%s' not found in this buffer" ref)))))
(while (not (org-at-table-p))
(forward-line direction)
(if (or (= (point) (point-min)) (= (point) (point-max)))