update packages

lisp/org-ref/contrib.el

@@ -1,9 +1,16 @@
-;;; contrib.el --- Code contributed by users
+;;; contrib.el --- Code contributed by users -*- lexical-binding: t; -*-
 
 ;;; Commentary:
 ;; 
 
 ;;; Code:
+(defvar org-ref-cite-types)
+(declare-function org-element-context "org-element")
+(declare-function org-element-type "org-element")
+(declare-function org-element-property "org-element")
+(declare-function bibtex-completion-apa-format-reference "bibtex-completion")
+(declare-function org-ref-parse-cite-path "org-ref-citation-links")
+
 
 ;; * Add messages in minibuffer
 ;; Contributed in https://github.com/jkitchin/org-ref/issues/938 by @DiogoFerrari
@@ -17,7 +24,7 @@ If not on a key, but on a cite, prompt for key."
       key
     ;; point is not on a key, but may still be on a cite link
     (let ((el (org-element-context))
-	  data
+	  data text
 	  keys)
       (cond
        ;; on a cite-link type
@@ -33,7 +40,7 @@ If not on a key, but on a cite, prompt for key."
 	(dolist (key keys)
 	  (search-forward key)
 	  (goto-char (match-beginning 0))
-	  (get-text-property (point) 'cite-key)
+	  ;; (get-text-property (point) 'cite-key)
 	  ;; (message (bibtex-completion-apa-format-reference key))
 	  (setq text (concat text "\n" (bibtex-completion-apa-format-reference key))))))))
   (message (string-trim-left text)))
@@ -45,7 +52,8 @@ If not on a key, but on a cite, prompt for key."
 
 (defcustom org-ref-message-interval 0.5
   "Time in seconds to wait for the idle timer that displays the cite message."
-  :group 'org-ref)
+  :group 'org-ref
+  :type 'float)
 
 
 (defun org-ref-link-message ()