[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 33cbb11d5a 2/4: org-kill-is-subtree-p: Handle clipb
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 33cbb11d5a 2/4: org-kill-is-subtree-p: Handle clipboard |
Date: |
Mon, 31 Oct 2022 21:57:59 -0400 (EDT) |
branch: externals/org
commit 33cbb11d5a522c82dfd9730a0e028a9c3df11518
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
org-kill-is-subtree-p: Handle clipboard
* lisp/org.el (org-kill-is-subtree-p): Allow `current-kill' to return
clipboard (even when `kill-ring' is empty). Do not throw error when
clipboard is also empty.
---
lisp/org.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org.el b/lisp/org.el
index 6aa81b020a..e147e16c88 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -7124,7 +7124,7 @@ headline level is not the largest headline level in the
tree.
So this will actually accept several entries of equal levels as well,
which is OK for `org-paste-subtree'.
If optional TXT is given, check this string instead of the current kill."
- (let* ((kill (or txt (and kill-ring (current-kill 0)) ""))
+ (let* ((kill (or txt (ignore-errors (current-kill 0))))
(re (org-get-limited-outline-regexp))
(^re (concat "^" re))
(start-level (and kill