[elpa] externals/ef-themes 5c21955309: Use alist-get instead of needless private function

[ELPA Syncer]

branch: externals/ef-themes
commit 5c21955309b7fada8ebefb5565b66c7fd7b7c40d
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Use alist-get instead of needless private function
---
 ef-themes.el | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/ef-themes.el b/ef-themes.el
index b3ffc93911..0640c4cd08 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -324,10 +324,6 @@ Other examples:
   (when ef-themes-variable-pitch-ui
     (list :inherit 'variable-pitch)))
 
-(defun ef-themes--key-cdr (key alist)
-  "Get cdr of KEY in ALIST."
-  (cdr (assoc key alist)))
-
 (defun ef-themes--alist-or-seq (properties alist-key seq-pred seq-default)
   "Return value from alist or sequence.
 Check PROPERTIES for an alist value that corresponds to
@@ -348,8 +344,8 @@ sequence given SEQ-PRED, using SEQ-DEFAULT as a fallback."
 
 (defun ef-themes--heading (level)
   "Conditional styles for `ef-themes-headings' per LEVEL heading."
-  (let* ((key (ef-themes--key-cdr level ef-themes-headings))
-         (style (or key (ef-themes--key-cdr t ef-themes-headings)))
+  (let* ((key (alist-get level ef-themes-headings))
+         (style (or key (alist-get t ef-themes-headings)))
          (style-listp (listp style))
          (properties style)
          (var (when (memq 'variable-pitch properties) 'variable-pitch))