branch: externals/doric-themes
commit 619bf91f3928a87319ff7b2a3adb86f3b8ac98d0
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Use pcase-let in doric-themes-prepare-faces
---
doric-themes.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/doric-themes.el b/doric-themes.el
index 9b00220f64..a38c01f482 100644
--- a/doric-themes.el
+++ b/doric-themes.el
@@ -929,8 +929,7 @@
(defun doric-themes-prepare-faces (&rest faces-and-attributes)
"Set faces to their respective attributes in FACES-AND-ATTRIBUTES."
- (let ((faces (car faces-and-attributes))
- (attributes (cdr faces-and-attributes)))
+ (pcase-let ((`(,faces . ,attributes) faces-and-attributes))
(mapcar
(lambda (face)
(backquote (list ',face (list (list t ,@attributes)))))
