[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm a2be0a0e3b 2/4: Use with-helm-alive-p for helm-only c
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm a2be0a0e3b 2/4: Use with-helm-alive-p for helm-only commands and add missing prop |
Date: |
Mon, 25 Apr 2022 15:58:25 -0400 (EDT) |
branch: elpa/helm
commit a2be0a0e3bd936de3e734ffbd578d964d7a522d3
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Use with-helm-alive-p for helm-only commands and add missing prop
---
helm-core.el | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index 43e63134af..ddc175584e 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -6338,12 +6338,14 @@ delete minibuffer contents from point instead of
deleting all.
With a prefix arg reverse this behaviour. When at the end of
minibuffer, delete all."
(interactive "P")
- (let ((str (if helm-delete-minibuffer-contents-from-point
- (if (or arg (eobp))
- "" (helm-minibuffer-completion-contents))
- (if (and arg (not (eobp)))
- (helm-minibuffer-completion-contents) ""))))
- (helm--delete-minibuffer-contents-from str)))
+ (with-helm-alive-p
+ (let ((str (if helm-delete-minibuffer-contents-from-point
+ (if (or arg (eobp))
+ "" (helm-minibuffer-completion-contents))
+ (if (and arg (not (eobp)))
+ (helm-minibuffer-completion-contents) ""))))
+ (helm--delete-minibuffer-contents-from str))))
+(put 'helm-delete-minibuffer-contents 'no-helm-mx t)
;;; helm-source-in-buffer.