Save excursion in an Org Agenda buffer?

Question

I have a function that executes save-excursion from within an Org Agenda buffer, but it doesn't return the point to the agenda buffer once the body of the excursion finishes executing. Here is the function I call:

(defun link-headline-from-agenda ()
  "From an agenda window, link the corresponding headline to the selected file."
  (interactive)
  (save-excursion
    (org-agenda-goto)
    (link-headline)))

Is there a way to make save-excursion work as expected or get similar behavior inside an org agenda buffer?

Answer 1

It turns out the solution was in the source files. Agenda commands that operate on the corresponding buffer save the org buffer attributes, then operate on them using with-current-buffer. Here is my working version of the above function:

(defun link-headline-from-agenda ()
  "From an agenda window, link the corresponding headline to the selected file."
  (interactive)
  (let* ((marker (org-get-at-bol 'org-marker))
     (buffer (marker-buffer marker))
     (pos (marker-position marker)))
    (org-with-remote-undo buffer
      (with-current-buffer buffer
    (goto-char pos)
    (link-headline)))))