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

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

[nongnu] elpa/helm 3ca35edd5a 2/2: Use dst pattern in helm-highlight-cur


From: ELPA Syncer
Subject: [nongnu] elpa/helm 3ca35edd5a 2/2: Use dst pattern in helm-highlight-current-line
Date: Sat, 30 Nov 2024 01:00:00 -0500 (EST)

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

    Use dst pattern in helm-highlight-current-line
---
 helm-utils.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/helm-utils.el b/helm-utils.el
index cddb9e7259..72dc7034cd 100644
--- a/helm-utils.el
+++ b/helm-utils.el
@@ -938,9 +938,9 @@ Optional arguments START, END and FACE are only here for 
debugging purpose."
         ;; `helm-highlight-matches-around-point-max-lines' is
         ;; compared as a number by other clauses and return an error.
         (never (cl-return-from helm-highlight-current-line))
-        ((guard (consp it))
-         (setq start-match (save-excursion (forward-line (- (car it))) 
(pos-bol))
-               end-match   (save-excursion (forward-line (cdr it)) (pos-bol))))
+        ((dst (x . y))
+         (setq start-match (save-excursion (forward-line (- x)) (pos-bol))
+               end-match   (save-excursion (forward-line y) (pos-bol))))
         ((guard (or (null it) (zerop it)))
          (setq start-match start
                end-match   end))



reply via email to

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