branch: elpa/helm
commit 3ca35edd5a5e8f1bee1b03facbbf44df8c729e3f
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@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))
