+ (message "%s" object)
+
+ ;; you may click on the part before the citations. here we make
+ ;; sure to move to the beginning so you get the first citation.
+ (let ((cp (point)))
+ (goto-char (org-element-property :begin object))
+ (search-forward link-string (org-element-property :end object))
+ (goto-char (match-beginning 0))
+ ;; check if we clicked before the path and move as needed.
+ (unless (< cp (point))
+ (goto-char cp)))
+