From 00ff149ebeca81e86a8f86810b1095a10d5793cb Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 16 Sep 2022 02:41:39 +0200 Subject: [PATCH] fix(cli): print-group-if! -> print-group! + :if Remove some vestigial references to the former, which was replaced with the latter in b7bd27d. Amend: b7bd27d22b45 --- lisp/cli/help.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/cli/help.el b/lisp/cli/help.el index ef3a539d4..e1398f1c2 100644 --- a/lisp/cli/help.el +++ b/lisp/cli/help.el @@ -67,8 +67,7 @@ OPTIONS: (signal 'doom-cli-command-not-found-error command) (doom-cli-help--print cli context manpage? localonly?) (exit! :pager?))) - (t - (dolist (section sections) + ((dolist (section sections) (unless (equal section (car sections)) (terpri)) (pcase section ("--synopsis" @@ -239,7 +238,7 @@ OPTIONS: (when (and contents (not (string-blank-p contents))) (when label (print! (bold "%s%s") label (if manpage? "" ":"))) - (print-group-if! label (printsection contents)))) + (print-group! :if label (printsection contents)))) (pcase-dolist (`(,label . ,contents) .sections) (when (and contents (not (assoc label alist))) (print! (bold "%s:") label) @@ -323,7 +322,7 @@ OPTIONS: (let ((label (if (car-safe group) (cdr commands)))) (when label (insert! ((bold "%s:") (car group)) "\n")) - (print-group-if! label + (print-group! :if label (dolist (command (cdr group)) (let* ((cli (doom-cli-get command t)) (rcli (doom-cli-get command))