7445,7450c7445,7451
<   (with-temp-buffer
<     (let ((org-inhibit-startup t))
<       (org-mode)
<       (insert s)
<       (goto-char (point-min))
<       (org-open-at-point arg))))
---
>   (let ((reference-buffer (current-buffer)))
>     (with-temp-buffer
>       (let ((org-inhibit-startup t))
> 	(org-mode)
> 	(insert s)
> 	(goto-char (point-min))
> 	(org-open-at-point arg reference-buffer)))))
7452c7453
< (defun org-open-at-point (&optional in-emacs)
---
> (defun org-open-at-point (&optional in-emacs reference-buffer)
7515a7517,7518
>       ;; if called in a temporary buffer (from org-open-link-from-string), switch back to original buffer
>       (cond (reference-buffer (switch-to-buffer reference-buffer)))