Browse Source

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.
Bastien Guerry 11 years ago
parent
commit
e3195550fc
1 changed files with 3 additions and 1 deletions
  1. 3 1
      lisp/org.el

+ 3 - 1
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)