(defun fwoar--paste-from-register-mru-buffer (register)
  (interactive
   (let ((overlay (make-overlay (point) (point)))
         (string "\""))
     (unwind-protect
         (progn
           ;; display " in the buffer while reading register
           (put-text-property 0 1 'face 'minibuffer-prompt string)
           (put-text-property 0 1 'cursor t string)
           (overlay-put overlay 'after-string string)
           (list (or evil-this-register (read-char))))
       (delete-overlay overlay))))
  (let ((filename (with-current-buffer helm-current-buffer 
                    (evil-get-register register t))))
    (insert filename)))

(defun fwoar--read-register-name ()
  (let ((overlay (make-overlay (point) (point)))
        (string "\""))
    (unwind-protect
        (progn
          ;; display " in the buffer while reading register
          (put-text-property 0 1 'face 'minibuffer-prompt string)
          (put-text-property 0 1 'cursor t string)
          (overlay-put overlay 'after-string string)
          (list (or evil-this-register (read-char))))
      (delete-overlay overlay))))
(defun fwoar--paste-register-from-helm-current-buffer (register)
  (interactive (fwoar--read-register-name))
  (let ((filename (with-current-buffer helm-current-buffer
                    (if (equal register
                               (elt (kbd "C-w") 0))
                        (word-at-point)
                      (evil-get-register register t)))))
    (when filename
      (insert filename))))

  (define-key helm-map (kbd "C-r") 'fwoar--paste-register-from-helm-current-buffer)
  (define-key helm-map (kbd "<right>") 'helm-execute-persistent-action)

    (kbd "C-r")
    'fwoar--paste-from-register-mru-buffer)
  (define-key helm-map
    (kbd "<right>")
    'helm-execute-persistent-action)
  (define-key helm-map