fix: fix some byte compiler errors

abougouffa · Jun 28, 2023 · 7a46079 · 7a46079
1 parent 0921dbf
commit 7a46079
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/elisp/+emacs.el b/elisp/+emacs.el
@@ -168,8 +168,10 @@ be deleted.
             ;; Or default to the built-in `tab-bar'.
             (when-let ((tab-num (seq-position (tab-bar-tabs) ,tab-name (lambda (tab name) (string= name (alist-get 'name tab))))))
              (tab-close (1+ tab-num)))))))
-      (when exit-func (add-to-list 'fn-body `(advice-add ',exit-func :after #',exit-fn-name) t))
-      (when exit-hook (add-to-list 'fn-body `(add-hook ',exit-hook #',exit-fn-name) t)))
+      (when exit-func
+        (setq fn-body (append fn-body `((advice-add ',exit-func :after #',exit-fn-name)))))
+      (when exit-hook
+        (setq fn-body (append fn-body `((add-hook ',exit-hook #',exit-fn-name))))))
     `(progn
        (defvar ,tab-name ,(format "*%s*" cmd))
        (defun ,fn-name ()

diff --git a/elisp/+primitives.el b/elisp/+primitives.el
@@ -27,9 +27,7 @@
     (while (length> key-vals 0)
       (let ((key (pop key-vals))
             (val (pop key-vals)))
-        (add-to-list
-         'out
-         `(setq ,plist (plist-put ,plist ,key ,val)) t)))
+        (setq out (append out `((setq ,plist (plist-put ,plist ,key ,val)))))))
     out))
 
 ;;;###autoload

diff --git a/modules/extras/me-spell-fu.el b/modules/extras/me-spell-fu.el
@@ -119,7 +119,7 @@
   (let* ((fn-name (intern (format "+spell-fu--multi-langs-%s-h" (string-join langs "-"))))
          (closure `(defun ,fn-name ())))
     (dolist (lang langs)
-      (add-to-list 'closure `(+spell-fu--add-dictionary ,lang) t))
+      (setq closure (append closure `((+spell-fu--add-dictionary ,lang)))))
     (append '(add-hook (quote spell-fu-mode-hook)) (list closure))))
 
 ;;;###autoload