From 1cddb5c36993aa24117327d00f1b46074eadc37d Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 25 Sep 2022 11:43:00 +0200 Subject: [PATCH] fix(cli): doom doctor: void-variable key error A regression introduced in 4efaf68, cause by an incomplete refactoring of the loop, where not all instances of `key` were changed into `group` and `name`. Amend: 4efaf6837be7 Fix: #6840 --- lisp/cli/doctor.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/cli/doctor.el b/lisp/cli/doctor.el index 0e7f13a55..192643e9e 100644 --- a/lisp/cli/doctor.el +++ b/lisp/cli/doctor.el @@ -242,9 +242,9 @@ in." (let (doom-doctor--errors doom-doctor--warnings) (condition-case-unless-debug ex - (doom-module-context-with key - (let ((doctor-file (doom-module-expand-path (car key) (cdr key) "doctor.el")) - (packages-file (doom-module-expand-path (car key) (cdr key) doom-module-packages-file))) + (doom-module-context-with (cons group name) + (let ((doctor-file (doom-module-expand-path group name "doctor.el")) + (packages-file (doom-module-expand-path group name doom-module-packages-file))) (cl-loop with doom-output-indent = 6 for name in (doom-context-with 'packages (let* (doom-packages @@ -264,7 +264,7 @@ in." (error (error! "Syntax error: %s" ex))) (when (or doom-doctor--errors doom-doctor--warnings) (print-group! - (print! (start (bold "%s %s")) (car key) (cdr key)) + (print! (start (bold "%s %s")) group name) (print! "%s" (string-join (append doom-doctor--errors doom-doctor--warnings) "\n"))) (setq doom-local-errors doom-doctor--errors doom-local-warnings doom-doctor--warnings)))