emacs-elpa-diffs
[Top][All Lists]
Advanced

[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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]