[elpa] externals/org 5dc8ea0abe 3/4: org-paste-subtree: Fix when `kill-ring' is empty

[ELPA Syncer]

branch: externals/org
commit 5dc8ea0abee10a787160456f74672da6ff3c3b40
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-paste-subtree: Fix when `kill-ring' is empty
    
    * lisp/org.el (org-paste-subtree): Allow pasting from system
    clipboard.
---
 lisp/org.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index e147e16c88..d8708f8f25 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -7109,8 +7109,7 @@ When REMOVE is non-nil, remove the subtree from the 
clipboard."
        (when (or for-yank (called-interactively-p 'interactive))
          (message "Clipboard pasted as level %d subtree" new-level))
        (when (and (not for-yank) ; in this case, org-yank will decide about 
folding
-                 kill-ring
-                 (equal org-subtree-clip (current-kill 0))
+                 (equal org-subtree-clip tree)
                  org-subtree-clip-folded)
          ;; The tree was folded before it was killed/copied
          (org-fold-subtree t))