[elpa] externals/marginalia 0bca060531 07/15: Minor simplification

[ELPA Syncer]

branch: externals/marginalia
commit 0bca06053174e6e1761ef13790fd2ebcd1852b3c
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Minor simplification
---
 marginalia.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 960145c581..55bee8f004 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -946,10 +946,9 @@ looking for a regexp that matches the prompt."
 
 (defun marginalia--cache-reset ()
   "Reset the cache."
-  (when marginalia--cache
-    (setq marginalia--cache (and (> marginalia--cache-size 0)
-                                 (cons nil (make-hash-table :test #'equal
-                                                            :size 
marginalia--cache-size))))))
+  (setq marginalia--cache (and marginalia--cache (> marginalia--cache-size 0)
+                               (cons nil (make-hash-table :test #'equal
+                                                          :size 
marginalia--cache-size)))))
 
 (defun marginalia--cached (fun key)
   "Cached application of function FUN with KEY.
@@ -961,7 +960,7 @@ Selectrum."
       (let ((ht (cdr marginalia--cache)))
         (or (gethash key ht)
             (let ((val (funcall fun key)))
-              (setcar marginalia--cache (cons key (car marginalia--cache)))
+              (push key (car marginalia--cache))
               (puthash key val ht)
               (when (>= (hash-table-count ht) marginalia--cache-size)
                 (let ((end (last (car marginalia--cache) 2)))