From f43b42b6ebe92bdbaa33d666570433048f600c6c Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 10 May 2021 19:38:18 -0700 Subject: use pushnew to warning-suppress-types, and suppress comp --- .emacs.d/init-spw.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el index fe83c7b1..8d7d3b64 100644 --- a/.emacs.d/init-spw.el +++ b/.emacs.d/init-spw.el @@ -985,6 +985,10 @@ whole thing." (setq inferior-lisp-program "sbcl") +(unless (boundp 'warning-suppress-types) + (setq warning-suppress-types nil)) +(cl-pushnew '(comp) warning-suppress-types :test #'cl-tree-equal) + ;;;; TRAMP @@ -2579,9 +2583,8 @@ mutt's review view, after exiting EDITOR." ;; kill warnings about snippets that use backquoted lisp to change ;; the buffer - (unless (boundp 'warning-suppress-types) - (setq warning-suppress-types nil)) - (push '(yasnippet backquote-change) warning-suppress-types)) + (cl-pushnew '(yasnippet backquote-change) warning-suppress-types + :test #'cl-tree-equal)) ;; company is used by notmuch for address completion; otherwise unused (with-eval-after-load 'company -- cgit v1.2.3