[elpa] externals/consult e4546edb6f: Use ash instead of lsh (Fix #623)

[ELPA Syncer]

branch: externals/consult
commit e4546edb6f1268c4a13ac3dd1dec8c9b28d7df51
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Use ash instead of lsh (Fix #623)
---
 consult.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/consult.el b/consult.el
index a79328b3f5..cee30dcac8 100644
--- a/consult.el
+++ b/consult.el
@@ -3816,7 +3816,7 @@ starts a new Isearch session otherwise."
       'consult--candidate sym
       'consult--minor-mode-narrow
       (logior
-       (lsh (if (local-variable-if-set-p sym) ?l ?g) 8)
+       (ash (if (local-variable-if-set-p sym) ?l ?g) 8)
        (if (and (boundp sym) (symbol-value sym)) ?i ?o))
       'consult--minor-mode-group
       (concat
@@ -3861,7 +3861,7 @@ This is an alternative to 
`minor-mode-menu-from-indicator'."
           (lambda (cand)
             (let ((narrow (get-text-property 0 'consult--minor-mode-narrow 
cand)))
               (or (= (logand narrow 255) consult--narrow)
-                  (= (lsh narrow -8) consult--narrow))))
+                  (= (ash narrow -8) consult--narrow))))
           :keys
           consult--minor-mode-menu-narrow)
     :lookup #'consult--lookup-candidate