add tangle to two blocks

[org-ref.git] / org-ref.org

diff --git a/org-ref.org b/org-ref.org
index 0c2e1d972afac69b11398b504d2b2feaa20b133b..7d66a799189df41c15debbeae0fb6c2a5c2926fb 100644 (file)
--- 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.