From 3aa9796b84dc975399a73624c6b407897adb7c6c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ellis=20Keny=C5=91?= Date: Sun, 14 Aug 2022 16:17:36 +0100 Subject: [PATCH] fix(format): resolve list expansion issues The argument list was being expanded incorrectly, this should now be resolved. --- modules/editor/format/autoload/settings.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/modules/editor/format/autoload/settings.el b/modules/editor/format/autoload/settings.el index 0406facdb..85c71d354 100644 --- a/modules/editor/format/autoload/settings.el +++ b/modules/editor/format/autoload/settings.el @@ -1,8 +1,7 @@ ;;; editor/format/autoload/settings.el -*- lexical-binding: t; -*- ;;;###autodef -(cl-defun set-formatter! - (name &rest args &key modes filter &allow-other-keys) +(cl-defun set-formatter! (name args &key modes filter) "Define (or modify) a formatter named NAME. Supported keywords: :modes :filter @@ -80,7 +79,10 @@ Advanced examples: (while (rassoc name apheleia-mode-alist) (setq apheleia-mode-alist (assq-delete-all (car (rassoc name apheleia-mode-alist)) apheleia-mode-alist)))) - (setf (alist-get name apheleia-formatters) args) + (let ((formatter (cond + ((listp args) `(,@args)) + (t args)))) + (setf (alist-get name apheleia-formatters) formatter)) (when modes (dolist (mode modes) (setf (alist-get mode apheleia-mode-alist) name))))))