From: Jeremy Bryant <jb@jeremybryant.net>
Date: Wed, 10 Apr 2024 21:56:27 +0000 (+0100)
Subject: Remove unnecessary (delq nil...).
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~983^2~10^2
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=1e89fa000e9ba9549f15ef57abccd118d5f2fe1a;p=emacs.git

Remove unnecessary (delq nil...).

This is presumed to be an artifacto of an old default.

* which-key.el (which-key-replacement-alist):
Remove unnecessary (delq nil...).
---

diff --git a/which-key.el b/which-key.el
index 0d44a61020a..f53226ee969 100644
--- a/which-key.el
+++ b/which-key.el
@@ -162,12 +162,11 @@ currently active keymaps."
   :version "1.0")
 
 (defcustom which-key-replacement-alist
-  (delq nil
-        `(((nil . "which-key-show-next-page-no-cycle") . (nil . "wk next pg"))
-          ,@(unless which-key-dont-use-unicode
-              '((("<left>") . ("←"))
-                (("<right>") . ("→"))))
-          (("<\\([[:alnum:]-]+\\)>") . ("\\1"))))
+  `(((nil . "which-key-show-next-page-no-cycle") . (nil . "wk next pg"))
+    ,@(unless which-key-dont-use-unicode
+        '((("<left>") . ("←"))
+          (("<right>") . ("→"))))
+    (("<\\([[:alnum:]-]+\\)>") . ("\\1")))
   "ALIST for manipulating display of binding descriptions.
 Each element of the list is a nested cons cell with the format