diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2022-08-07 15:05:41 +0200 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2022-08-07 15:05:41 +0200 |
| commit | a59c41d90ede24cf5cdf4104790af3c318174b08 (patch) | |
| tree | 08911ee4b5dfba1c4d901f022f464ab3008530ad | |
| parent | 49a7a6e2dc8c400400d34b77ebc5709f458af88f (diff) | |
Use ash instead of lsh
| -rw-r--r-- | extensions/corfu-history.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/extensions/corfu-history.el b/extensions/corfu-history.el index 2257140..47b4640 100644 --- a/extensions/corfu-history.el +++ b/extensions/corfu-history.el @@ -74,7 +74,7 @@ ;; shorter than 2**16 entries. (cl-loop for cand on candidates do (setcar cand (cons (car cand) - (+ (lsh (gethash (car cand) corfu-history--hash #xFFFF) 13) + (+ (ash (gethash (car cand) corfu-history--hash #xFFFF) 13) (length (car cand)))))) (setq candidates (sort candidates #'corfu-history--sort-predicate)) (cl-loop for cand on candidates do (setcar cand (caar cand))) |