[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] Prefixing a function call with C-digit
From: |
Peter Westlake |
Subject: |
Re: [Orgmode] Prefixing a function call with C-digit |
Date: |
Wed, 09 Sep 2009 15:23:54 +0100 |
On Wed, 09 Sep 2009 14:39 +0200, "Carsten Dominik"
<address@hidden> 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.