From 7d5790254b19acec7dc688054a65790808bf733f Mon Sep 17 00:00:00 2001 From: John Kitchin Date: Wed, 24 Sep 2014 10:55:48 -0400 Subject: [PATCH] fix bug where clicking on cite: gives an error --- org-ref.org | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/org-ref.org b/org-ref.org index 97d0472..71dff79 100644 --- a/org-ref.org +++ b/org-ref.org @@ -1096,7 +1096,18 @@ keyword we clicked on. We also strip the text properties." (interactive) (let* ((object (org-element-context)) (link-string (org-element-property :path object))) - + (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))) + (if (not (org-element-property :contents-begin object)) ;; this means no description in the link (progn -- 2.39.2