[elpa] externals/standard-themes 4dc2ed8050: Use alist-get instead of needless private function

[ELPA Syncer]

branch: externals/standard-themes
commit 4dc2ed8050c4e248d7828df6d68480b9686ea014
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

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

diff --git a/standard-themes.el b/standard-themes.el
index ebbb6da728..d310c03e02 100644
--- a/standard-themes.el
+++ b/standard-themes.el
@@ -418,10 +418,6 @@ value."
     ('subtle (list :background mainbg))
     (_ (list :background 'unspecified))))
 
-(defun standard-themes--key-cdr (key alist)
-  "Get cdr of KEY in ALIST."
-  (cdr (assoc key alist)))
-
 (defun standard-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
@@ -442,8 +438,8 @@ sequence given SEQ-PRED, using SEQ-DEFAULT as a fallback."
 
 (defun standard-themes--heading (level)
   "Conditional styles for `standard-themes-headings' per LEVEL heading."
-  (let* ((key (standard-themes--key-cdr level standard-themes-headings))
-         (style (or key (standard-themes--key-cdr t standard-themes-headings)))
+  (let* ((key (alist-get level standard-themes-headings))
+         (style (or key (alist-get t standard-themes-headings)))
          (style-listp (listp style))
          (properties style)
          (weight (when style-listp (standard-themes--weight style))))