Thank you very much! On Wed, Sep 9, 2009 at 10:23 AM, Peter Westlake<peter.westl...@pobox.com> wrote: > On Wed, 09 Sep 2009 14:39 +0200, "Carsten Dominik" > <carsten.domi...@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. > > > _______________________________________________ > Emacs-orgmode mailing list > Remember: use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode >
_______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
