Cool.  I was just looking for something like that the other day.

On Tue, May 12, 2009 at 3:30 PM, Carsten Dominik
<carsten.dominik@gmail.com>wrote:

> Applied, thanks.
>
> - Carsten
>
>
> On May 12, 2009, at 4:18 AM, sand@blarg.net wrote:
>
>  The org-yank function has special support for outline structures.  But
>> if you want the same behavior for something other than yank, you're
>> out of luck.  This patch (against 6.21b) moves the main functionality
>> into org-yank-generic, with yanking being just one particular entry
>> point.  (I use this to create a new entry point for a personal
>> clipboard-inserting command.)
>>
>> Derek
>>
>> --
>> Derek Upham
>> sand@blarg.net
>>
>> ------------------------------ cut here ------------------------------
>> --- org.el.orig 2009-05-11 19:07:08.000000000 -0700
>> +++ org.el      2009-05-11 19:09:00.000000000 -0700
>> @@ -14809,9 +14809,17 @@
>> \[1] Basically, the test checks if the first non-white line is a heading
>>    and if there are no other headings with fewer stars."
>>  (interactive "P")
>> -  (setq this-command 'yank)
>> +  (org-yank-generic 'yank arg))
>> +
>> +(defun org-yank-generic (command arg)
>> +  "Perform some yank-like command.
>> +
>> +This function implements the behavior described in the `org-yank'
>> +documentation. However, it has been generalized to work for any
>> +interactive command with similar behavior."
>> +  (setq this-command command)
>>  (if arg
>> -      (call-interactively 'yank)
>> +      (call-interactively command)
>>    (let ((subtreep ; is kill a subtree, and the yank position appropriate?
>>          (and (org-kill-is-subtree-p)
>>               (or (bolp)
>> @@ -14826,7 +14834,7 @@
>>             end)
>>         (if (and subtreep org-yank-adjusted-subtrees)
>>             (org-paste-subtree nil nil 'for-yank)
>> -           (call-interactively 'yank))
>> +           (call-interactively command))
>>         (setq end (point))
>>         (goto-char beg)
>>         (when (and (bolp) subtreep
>> @@ -14842,7 +14850,7 @@
>>               (error (goto-char end)))))
>>         (when swallowp
>>           (message
>> -            "Yanked text not folded because that would swallow text"))
>> +            "Inserted text not folded because that would swallow text"))
>>         (goto-char end)
>>         (skip-chars-forward " \t\n\r")
>>         (beginning-of-line 1)
>> @@ -14852,7 +14860,7 @@
>>         (org-paste-subtree nil nil 'for-yank)
>>         (push-mark beg 'nomsg)))
>>       (t
>> -       (call-interactively 'yank))))))
>> +       (call-interactively command))))))
>>
>> (defun org-yank-folding-would-swallow-text (beg end)
>>  "Would hide-subtree at BEG swallow any text after END?"
>>
>>
>> _______________________________________________
>> 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
>