(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))
;; 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.