From 672689aab8e6b68afa7961fbaa3beaded53b8991 Mon Sep 17 00:00:00 2001 From: Jeremy Bryant Date: Sun, 7 Apr 2024 19:30:00 +0100 Subject: [PATCH] ; Simplify internal defun * which-key.el (which-key--rotate): Simplify code slightly. Co-authored-by: Philip Kaludercic --- which-key.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/which-key.el b/which-key.el index 0c38a1a..660ff22 100644 --- a/which-key.el +++ b/which-key.el @@ -729,9 +729,8 @@ Used when `which-key-popup-type' is frame.") (defun which-key--rotate (list n) (let* ((len (length list)) - (n (if (< n 0) (+ len n) n)) - (n (mod n len))) - (append (last list (- len n)) (butlast list (- len n))))) + (n (- len (mod n len)))) + (append (last list n) (butlast list n)))) (defun which-key--pages-set-current-page (pages-obj n) (setf (which-key--pages-pages pages-obj)