remove an apparent duplicate label finder.

diff --git a/org-ref.el b/org-ref.el
index 1433b2f207a865df045e133fdba8ead9339959e0..8495d42be827fb40498b2fd157a54a5457b1dad7 100644 (file)
--- a/org-ref.el
+++ b/org-ref.el
@@ -975,8 +975,10 @@ ARG does nothing."
        :type "custom_id"
        :link (format "[[#%s]]" (org-entry-get (point) "CUSTOM_ID"))))
 
        :type "custom_id"
        :link (format "[[#%s]]" (org-entry-get (point) "CUSTOM_ID"))))
 

-    ;; and to #+label: lines
-    (when (and (equal (org-element-type object) 'paragraph)
+    ;; and to #+label: lines. In a table these are retrieved by :name
+    ;; properties.
+    (when (and (-contains? '(paragraph table src-block)
+                          (org-element-type object))

               (org-element-property :name object))
       (org-store-link-props
        :type "ref"
               (org-element-property :name object))
       (org-store-link-props
        :type "ref"


@@ -1653,8 +1655,8 @@ Prompt for NEW-FILE includes bib files in `org-ref-default-bibliography', and bi
   (interactive)
   (doi-utils-crossref (org-ref-get-doi-at-point)))
 
   (interactive)
   (doi-utils-crossref (org-ref-get-doi-at-point)))
 

-;; *** Minibuffer menu
-
+;; *** DEPRECATED Minibuffer menu
+;; See [[Helm bibtex setup]]

 (defun org-ref-cite-onclick-minibuffer-menu (&optional link-string)
   "Action when a cite link is clicked on.
 Provides a menu of context sensitive actions.  If the bibtex entry
 (defun org-ref-cite-onclick-minibuffer-menu (&optional link-string)
   "Action when a cite link is clicked on.
 Provides a menu of context sensitive actions.  If the bibtex entry


@@ -2447,11 +2449,6 @@ Makes a new buffer with clickable links."
                         labels) 1)
          ;; this is a multiply defined label.
          (let ((cp (point)))
                         labels) 1)
          ;; this is a multiply defined label.
          (let ((cp (point)))

-           (goto-char (point-min))
-           (while (re-search-forward
-                   (format  "[^#+]label:%s\\s-" label) nil t)
-             (push (cons label (point-marker)) multiple-labels))
-

            (goto-char (point-min))
            (while (re-search-forward
                    (format  "\\label{%s}\\s-?" label) nil t)
            (goto-char (point-min))
            (while (re-search-forward
                    (format  "\\label{%s}\\s-?" label) nil t)