Cool. I was just looking for something like that the other day. On Tue, May 12, 2009 at 3:30 PM, Carsten Dominik <carsten.domi...@gmail.com>wrote:
> Applied, thanks. > > - Carsten > > > On May 12, 2009, at 4:18 AM, s...@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 >> s...@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 >
_______________________________________________ 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
