[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm 2f957c0fe9 1/2: Fix pcase quoting
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm 2f957c0fe9 1/2: Fix pcase quoting |
Date: |
Sun, 26 Nov 2023 03:59:36 -0500 (EST) |
branch: elpa/helm
commit 2f957c0fe993655b2e3de5486382cf7fd8012fe7
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Fix pcase quoting
---
helm-files.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index 01efa9457d..866d6a2405 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -1319,10 +1319,10 @@ ACTION can be `rsync' or any action supported by
`helm-dired-action'."
(setq info
(mapconcat (lambda (x)
(pcase x
- (`size (nth 0 infos))
- (`percent (nth 1 infos))
- (`speed (nth 2 infos))
- (`remain (nth 3 infos))))
+ ('size (nth 0 infos))
+ ('percent (nth 1 infos))
+ ('speed (nth 2 infos))
+ ('remain (nth 3 infos))))
(helm-mklist helm-ff-rsync-progress-bar-info)
", "))
(when (string-match "\\([0-9]+\\)%" progbar)