diff options
| author | Bastien Guerry <bzg@altern.org> | 2013-07-01 00:35:53 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2013-07-01 00:35:53 +0200 |
| commit | e3195550fc0e057124bbb9e35eb8adb96a6b0d48 (patch) | |
| tree | 499ad02d60511efcae84c9f72cce05a25e5ec8f8 | |
| parent | 8012d88db72b69d6dd68d4a3d880918652031d4a (diff) | |
| download | org-mode-e3195550fc0e057124bbb9e35eb8adb96a6b0d48.tar.gz | |
org.el (org-refile): Don't store the last refiled subtree in the kill ring
* org.el (org-refile): Don't store the last refiled subtree in
the kill ring.
Thanks to Samuel for reporting this.
| -rw-r--r-- | lisp/org.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index c62ad1c..a876979 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11584,7 +11584,9 @@ prefix argument (`C-u C-u C-u C-c C-w')." (unless org-refile-keep (if regionp (delete-region (point) (+ (point) region-length)) - (org-cut-subtree))) + (delete-region + (point-at-bol) + (min (buffer-size) (1+ (org-end-of-subtree t)))))) (when (featurep 'org-inlinetask) (org-inlinetask-remove-END-maybe)) (setq org-markers-to-move nil) |