From mboxrd@z Thu Jan  1 00:00:00 1970
From: Michael Brand <michael.ch.brand@gmail.com>
Subject: Re: Cut and paste an entry programmatically
Date: Sat, 29 Jun 2019 09:27:48 +0200
Message-ID: <CALn3zoiKXw7TXOqf9GF6ikpmv_OTpt_oSyFKRE9AetPsDjjZ5w@mail.gmail.com>
References: <CALn3zojt7gsD_GqUvDz09s136mWXERPEh99aFMBeRAbbqcN-xg@mail.gmail.com>
 <CAJcAo8tNV73NDzRzAEWS6pD7SmThFeDOW6fco0M0Tb4K3iPZMg@mail.gmail.com>
 <CALn3zog12GqR=9Xi+TxqGO70tE4Z-i3Q4f-0FUQyHbXhq-9mKw@mail.gmail.com>
 <87lfxlky1z.fsf@kyleam.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="UTF-8"
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:470:142:3::10]:44186)
 by lists.gnu.org with esmtp (Exim 4.86_2)
 (envelope-from <michael.ch.brand@gmail.com>) id 1hh7qd-0001Rh-Eu
 for emacs-orgmode@gnu.org; Sat, 29 Jun 2019 03:32:36 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <michael.ch.brand@gmail.com>) id 1hh7qc-0004oM-Hz
 for emacs-orgmode@gnu.org; Sat, 29 Jun 2019 03:32:35 -0400
Received: from mail-lf1-x12a.google.com ([2a00:1450:4864:20::12a]:45580)
 by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16)
 (Exim 4.71) (envelope-from <michael.ch.brand@gmail.com>)
 id 1hh7qc-0004m9-3b
 for emacs-orgmode@gnu.org; Sat, 29 Jun 2019 03:32:34 -0400
Received: by mail-lf1-x12a.google.com with SMTP id u10so5382486lfm.12
 for <emacs-orgmode@gnu.org>; Sat, 29 Jun 2019 00:32:32 -0700 (PDT)
In-Reply-To: <87lfxlky1z.fsf@kyleam.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
 <mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
 <mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: "Emacs-orgmode"
 <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
To: Kyle Meyer <kyle@kyleam.com>
Cc: Org Mode <emacs-orgmode@gnu.org>

Hi Kyle

On Sat, Jun 29, 2019 at 2:58 AM Kyle Meyer <kyle@kyleam.com> wrote:

> Hmm I don't consider that a bug.  It's documented behavior for kill
> commands to append to the last kill when called successively.
>
> ,----[ C-h f kill-region RET ]
> | [...]
> | Any command that calls this function is a "kill command".
> | If the previous command was also a kill command,
> | the text killed this time appends to the text killed last time
> | to make one entry in the kill ring.
> | [...]
> `----

Although I knew of course that ~C-k C-k~ appends it didn't ring the
bell it should have. And I was not aware of the concept of a "kill
command" which can make my function a "kill command", _depending on
how it is invoked_.

> In addition to what Samuel posted, another way for a lisp caller to
> avoid the append behavior if desired is to let-bind this-command so that
> kill-region's attempt to set it to kill-region doesn't work.  Using your
> example, that'd be
>
> #+begin_src emacs-lisp
> (defun temp ()
>   (let (this-command)
>     (org-cut-subtree))
>   (org-forward-heading-same-level 2)
>   (org-paste-subtree))
> #+end_src

This is what I have been looking for, thank you.

Michael