X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=org-ref.org;h=7f13af029ba26b9c2fa80fe4fbcb97499bacb40d;hp=e4baf37dc61040d3dde844397c8b4d1ae2650e5a;hb=9bed4a60882b93922d60110605ed9ce0de5e9e0b;hpb=7eeb57bb2e9a7f24f881d371cd5c4700b8586087

diff --git a/org-ref.org b/org-ref.org
index e4baf37..7f13af0 100644
--- a/org-ref.org
+++ b/org-ref.org
@@ -2795,7 +2795,6 @@ Now, let us define a function that inserts the cite links:
   "Insert selected KEYS as cite link. Append KEYS if you are on a link.
 Technically, this function should return a string that is inserted by helm. This function does the insertion and gives helm an empty string to insert. This lets us handle appending to a link properly."
   (let* ((object (org-element-context)))
-  (message-box "prefix is %s" helm-current-prefix-arg)
     (cond
      ;; case where we are in a link
      ((and (equal (org-element-type object) 'link)
@@ -2823,6 +2822,9 @@ Technically, this function should return a string that is inserted by helm. This
      (t
       (insert
        (concat (if helm-current-prefix-arg
+		   (helm :sources `((name . "link types")
+				    (candidates . ,org-ref-cite-types)
+				    (action . (lambda (x) x))))
                   (ido-completing-read "Type: " org-ref-cite-types)
                org-ref-default-citation-link)
 	       ":"