diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-10 19:38:18 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-17 13:49:13 -0700 |
| commit | f43b42b6ebe92bdbaa33d666570433048f600c6c (patch) | |
| tree | 72137073328bbb908b1558843f710cb6d4062713 | |
| parent | 713ace999426b4be103f4f2058fe9fa7e0e0eddc (diff) | |
| download | dotfiles-f43b42b6ebe92bdbaa33d666570433048f600c6c.tar.gz | |
use pushnew to warning-suppress-types, and suppress comp
| -rw-r--r-- | .emacs.d/init-spw.el | 9 |
1 files 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 |