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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/helm 46a23666be 4/7: Put the dummy source at end in helm-c


From: ELPA Syncer
Subject: [nongnu] elpa/helm 46a23666be 4/7: Put the dummy source at end in helm-comp-read
Date: Sun, 19 May 2024 01:00:11 -0400 (EDT)

branch: elpa/helm
commit 46a23666be34c4e006a2e62f6222d36d7abbb203
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Put the dummy source at end in helm-comp-read
---
 helm-mode.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/helm-mode.el b/helm-mode.el
index b6ae49fc8a..4349e8375c 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -933,7 +933,6 @@ that use `helm-comp-read'.  See `helm-M-x' for example."
                     :help-message help-message
                     :action action-fn))
            (src-list (list src-hist
-                           (unless (eq must-match t) dummy-src)
                            (if candidates-in-buffer
                                src-1 src)))
            (helm-execute-action-at-once-if-one exec-when-only-one)
@@ -943,6 +942,8 @@ that use `helm-comp-read'.  See `helm-M-x' for example."
         (setq src-list (cl-loop for src in src-list
                              collect (cons '(nomark) src))))
       (when reverse-history (setq src-list (nreverse src-list)))
+      (unless (eq must-match t)
+        (setq src-list (append src-list (list dummy-src))))
       (when raw-candidate
         (cl-loop for src in src-list
                  do (helm-set-attr 'raw-candidate t src)))



reply via email to

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