[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm 43f4f1782c 2/3: Use helm-candidate-prefixed-p in helm
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm 43f4f1782c 2/3: Use helm-candidate-prefixed-p in helm-confirm-and-exit-minibuffer |
Date: |
Tue, 30 Jan 2024 10:00:02 -0500 (EST) |
branch: elpa/helm
commit 43f4f1782c774ccdea507a33ddfb25332bd1bf87
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Use helm-candidate-prefixed-p in helm-confirm-and-exit-minibuffer
In the past we were looking if candidate was prefixed with [?], now
such candidates have either a text property 'helm-new-file or 'unknown.
---
helm-core.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index 47abdd14ca..63dbab13b9 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -6285,11 +6285,11 @@ message \\='no match'."
(empty-buffer-p (with-current-buffer helm-buffer
(eq (point-min) (point-max))))
(unknown (and (not empty-buffer-p)
- (helm-aif (get-text-property
- 0 'display
- (helm-get-selection nil 'withprop src))
- (when (stringp it)
- (string-match-p "\\`\\[\\?\\]" it))))))
+ ;; Now such candidates have a helm-new-file or an
+ ;; unknown text property (we were testing if string
+ ;; match [?] previously).
+ (helm-candidate-prefixed-p
+ (helm-get-selection nil 'withprop src)))))
(cond ((and (or empty-buffer-p unknown)
(memq minibuffer-completion-confirm
'(confirm confirm-after-completion)))