From cd314a118833c2b76b08fb24560b7f8250ae5c7f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Edwin=20T=C3=B6r=C3=B6k?= Date: Thu, 4 Oct 2018 00:36:42 +0100 Subject: [PATCH 1/3] fix setq-hook error path MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit In setq-hook!: core-lib.el:280:41:Warning: ‘listp’ called with 2 args, but requires 1 Signed-off-by: Edwin Török --- core/core-lib.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/core-lib.el b/core/core-lib.el index 22877494a..42b671be5 100644 --- a/core/core-lib.el +++ b/core/core-lib.el @@ -277,7 +277,7 @@ Body forms can access the hook's arguments through the let-bound variable fill-column 80)" (declare (indent 1)) (unless (= 0 (% (length rest) 2)) - (signal 'wrong-number-of-arguments (listp #'evenp (length rest)))) + (signal 'wrong-number-of-arguments (list #'evenp (length rest)))) `(add-hook! :append ,hooks ,@(let (forms) (while rest From e5ff6c841882d371062d9a62a2c4592a67e930c9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Edwin=20T=C3=B6r=C3=B6k?= Date: Thu, 4 Oct 2018 00:37:09 +0100 Subject: [PATCH 2/3] fix +format--set error path MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit In +format--set: ../modules/editor/format/autoload/settings.el:81:26:Warning: ‘error’ called with 0 args to fill 1 format field(s) Signed-off-by: Edwin Török --- modules/editor/format/autoload/settings.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/editor/format/autoload/settings.el b/modules/editor/format/autoload/settings.el index 1e8b54cbb..31f0988b6 100644 --- a/modules/editor/format/autoload/settings.el +++ b/modules/editor/format/autoload/settings.el @@ -77,7 +77,7 @@ (cl-defun +format--set (name &key function modes unset) (declare (indent defun)) (when (and unset (not (gethash name format-all-format-table))) - (error "'%s' formatter does not exist to be unset")) + (error "'%s' formatter does not exist to be unset" name)) (puthash name function format-all-format-table) (dolist (mode (doom-enlist modes)) (cl-destructuring-bind (m &optional probe) From 649b0795de8c07ff17fd41a09bebda310464a704 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Edwin=20T=C3=B6r=C3=B6k?= Date: Thu, 4 Oct 2018 00:37:34 +0100 Subject: [PATCH 3/3] fix org/config typo MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit In toplevel form: ../modules/lang/org/config.el:380:1:Warning: Unused lexical variable ‘seperator’ Signed-off-by: Edwin Török --- modules/lang/org/config.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/lang/org/config.el b/modules/lang/org/config.el index 6cafb5255..5abf45e64 100644 --- a/modules/lang/org/config.el +++ b/modules/lang/org/config.el @@ -391,7 +391,7 @@ conditions where a window's buffer hasn't changed at the time this hook is run." ;; Fix variable height org-level-N faces in the eldoc string (defun +org*format-outline-path (orig-fn path &optional width prefix separator) (let ((result (funcall orig-fn path width prefix separator)) - (seperator (or separator "/"))) + (separator (or separator "/"))) (string-join (cl-loop for part in (split-string (substring-no-properties result) separator)