[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/which-key 672689aab8 12/12: ; Simplify internal defun
From: |
ELPA Syncer |
Subject: |
[elpa] externals/which-key 672689aab8 12/12: ; Simplify internal defun |
Date: |
Tue, 9 Apr 2024 15:59:04 -0400 (EDT) |
branch: externals/which-key
commit 672689aab8e6b68afa7961fbaa3beaded53b8991
Author: Jeremy Bryant <jb@jeremybryant.net>
Commit: Justin Burkett <justin@burkett.cc>
; Simplify internal defun
* which-key.el (which-key--rotate):
Simplify code slightly.
Co-authored-by: Philip Kaludercic <philipk@posteo.net>
---
which-key.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/which-key.el b/which-key.el
index 0c38a1a1bc..660ff22801 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)
- [elpa] externals/which-key updated (5111e377a2 -> 672689aab8), ELPA Syncer, 2024/04/09
- [elpa] externals/which-key bfab035d1b 02/12: Simplify code to use null, ELPA Syncer, 2024/04/09
- [elpa] externals/which-key f25457c270 04/12: Replace wholenump by natnump for context readability, ELPA Syncer, 2024/04/09
- [elpa] externals/which-key aceafc88e6 06/12: Change cl-case to cl-ecase, ELPA Syncer, 2024/04/09
- [elpa] externals/which-key 2c9f94162c 10/12: ; Use `memq' to be just as explicit as necessary, ELPA Syncer, 2024/04/09
- [elpa] externals/which-key 672689aab8 12/12: ; Simplify internal defun,
ELPA Syncer <=
- [elpa] externals/which-key bf9ceab0be 03/12: ; which-key.el: Display mode in error message, ELPA Syncer, 2024/04/09
- [elpa] externals/which-key 94a29cda9f 07/12: * which-key.el (which-key--partition-list): Replace cl-subseq by take, ELPA Syncer, 2024/04/09
- [elpa] externals/which-key 62ebafeae7 08/12: * which-key.el (which-key--create-pages-1): Use cl-decf for clarity, ELPA Syncer, 2024/04/09
- [elpa] externals/which-key 681001bf69 01/12: ; Change defcustom types to natnum, ELPA Syncer, 2024/04/09
- [elpa] externals/which-key c9c3eafafa 05/12: * which-key.el (which-key--popup-max-dimensions): Fix docstring typo, ELPA Syncer, 2024/04/09
- [elpa] externals/which-key 54b52f4c3c 09/12: * which-key.el (which-key--show-evil-operator-keymap): let not let*, ELPA Syncer, 2024/04/09
- [elpa] externals/which-key 8adbc25c39 11/12: Use null for clarity, ELPA Syncer, 2024/04/09