[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm eab742aa8a 1/4: Reindent no code change
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm eab742aa8a 1/4: Reindent no code change |
Date: |
Tue, 17 Dec 2024 04:06:04 -0500 (EST) |
branch: elpa/helm
commit eab742aa8a1923734394f78f60f748c5cb4f01e6
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Reindent no code change
---
helm-mode.el | 31 ++++++++++++++++---------------
1 file changed, 16 insertions(+), 15 deletions(-)
diff --git a/helm-mode.el b/helm-mode.el
index 4712a83d9b..d0d8b5fdde 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -2381,21 +2381,22 @@ When AFUN, AFIX are nil and CATEGORY is not file return
COMPS unmodified."
(cl-loop for f in comps
unless (string-match "\\`\\.\\{1,2\\}/\\'" f)
collect f)))
- (cond (afix (let ((affixations (funcall afix comps)))
- (if (functionp affixations)
- (cl-loop for comp in comps
- for cand = (funcall affixations comp)
- when cand
- collect (cons (propertize (concat (nth 1 cand)
;prefix
- (nth 0 cand)
;comp
- (nth 2 cand))
;suffix
- 'match-part (nth 0
cand))
- comp))
- (cl-loop for (comp prefix suffix) in affixations
- collect (cons (propertize
- (concat prefix comp suffix)
- 'match-part comp)
- comp)))))
+ (cond (afix
+ (let ((affixations (funcall afix comps)))
+ (if (functionp affixations)
+ (cl-loop for comp in comps
+ for cand = (funcall affixations comp)
+ when cand
+ collect (cons (propertize (concat (nth 1 cand) ;prefix
+ (nth 0 cand) ;comp
+ (nth 2 cand)) ;suffix
+ 'match-part (nth 0 cand))
+ comp))
+ (cl-loop for (comp prefix suffix) in affixations
+ collect (cons (propertize
+ (concat prefix comp suffix)
+ 'match-part comp)
+ comp)))))
(afun
;; Add annotation at end of
;; candidate if needed, e.g. foo<f>, this happen when