Browse Source

currently not even trying to find the table if it's in another file
(but this probably wouldn't be too much work)

Eric Schulte 16 years ago
parent
commit
5805507dc3
1 changed files with 10 additions and 6 deletions
  1. 10 6
      litorgy/litorgy-reference.el

+ 10 - 6
litorgy/litorgy-reference.el

@@ -100,12 +100,16 @@ representation of the value of the variable."
                    (t
                    (t
                     (goto-char (point-min))
                     (goto-char (point-min))
                     (setq direction 1)
                     (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))
                   (while (not (org-at-table-p))
                     (forward-line direction)
                     (forward-line direction)
                     (if (or (= (point) (point-min)) (= (point) (point-max)))
                     (if (or (= (point) (point-min)) (= (point) (point-max)))