Re: Prefixing a function call with C-digit

["Peter Westlake" <peter.westlake@pobox.com>]

On Wed, 09 Sep 2009 14:39 +0200, "Carsten Dominik"
<carsten.dominik@gmail.com> wrote:
>
> On Sep 8, 2009, at 8:14 PM, Raffi R wrote:
...
> > In org-mode normally, I can get this behaviour by pressing C-0 C-x
> > C-e.  Looking at org.el suggested that I should be able to simply
> > provide the 0 as an argument, i.e. using (org-export 0). However,
> > org-export seems to ignore that 0.
>
> (let ((current-prefix-arg 0))
>   (call-interactively 'org-export))

This also happens to be the reason a function I was trying to write
didn't work! I would never have worked it out for myself - does
anyone have time to explain why the original form doesn't work?

Here, incidentally, is the function I was writing. It works now!
It is intended to be bound to C-c l in the agenda buffer, and
was written by imitating org-agenda-refile:

(defun org-agenda-store-link (arg)
  "Store a link to the item at point."
  (interactive "P")
  (let* ((marker (or (get-text-property (point) 'org-hd-marker)
                     (org-agenda-error)))
         (buffer (marker-buffer marker))
         (org-link-to-org-use-id t))
    (with-current-buffer buffer
      (save-excursion
        (save-restriction
          (widen)
          (goto-char marker)
          (let ((current-prefix-arg 0))
            (call-interactively 'org-store-link)))))))

Is this the right way to do it?

Peter.