X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=org-ref.org;h=7d66a799189df41c15debbeae0fb6c2a5c2926fb;hp=0c2e1d972afac69b11398b504d2b2feaa20b133b;hb=46a88d1f19dd80cb33673bbd61a2eef3b099dc91;hpb=56658921640ee1eddc7077dd0d2fc9c40e696fd0

diff --git a/org-ref.org b/org-ref.org
index 0c2e1d9..7d66a79 100644
--- a/org-ref.org
+++ b/org-ref.org
@@ -1100,7 +1100,7 @@ Now, we can put all the labels together which will give us a list of candidates.
 #+END_SRC
 
 Let us make a helm function to insert a label link. This will help you enter unique labels.
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle org-ref.el
 (defun org-ref-helm-insert-label-link ()
   "Insert a label link. helm just shows you what labels already exist."
   (interactive)
@@ -1142,7 +1142,7 @@ Alternatively, you may want to just call a function that inserts a link with com
 
 Another alternative ref insertion is to use helm.
 
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle org-ref.el
 (defun org-ref-helm-insert-ref-link ()
   "Helm menu to insert ref links to labels in the document.
 Use C-u to insert a different kind of ref link."
@@ -3131,9 +3131,6 @@ C-u C-u will change the key at point to the selected keys.
 	(insert (concat "," (mapconcat 'identity keys ","))))
        ;; double prefix, replace key at point
        ((equal helm-current-prefix-arg '(16))
-	(message-box "Replacing %s with %s"
-		     (car (org-ref-get-bibtex-key-and-file))
-		     (mapconcat 'identity keys ","))
 	(setf (buffer-substring
 	       (org-element-property :begin object)
 	       (org-element-property :end object))
@@ -3146,7 +3143,7 @@ C-u C-u will change the key at point to the selected keys.
 	       ;; replace space at end to avoid collapsing into next word.
 	       " ")))
        (t
-	(message-box "Not found"))))
+	(message "Not found"))))
 
      ;; We are next to a link, and we want to append
      ;; next to a link means one character back is on a link.