diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2018-08-01 14:06:42 -0500 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2018-08-01 14:06:42 -0500 |
| commit | dc6b93032b2f836e471a5b97e38e8eceeac6b425 (patch) | |
| tree | c354330188d18315e77e81dc49f0c4b8128c720a /lisp/Makefile | |
| parent | 73b89d3be4e65dd406bf4bcac0b72e12368e8444 (diff) | |
make: Move suppress-warnings to file where it is used
Diffstat (limited to 'lisp/Makefile')
| -rw-r--r-- | lisp/Makefile | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/Makefile b/lisp/Makefile index 49bd162..94c949c 100644 --- a/lisp/Makefile +++ b/lisp/Makefile @@ -135,3 +135,15 @@ define VERSIONLIB_TMPL endef export VERSIONLIB_TMPL #' + +define suppress_warnings +(fset 'original-message (symbol-function 'message)) +(fset 'message ;' + (lambda (f &rest a) + (unless (or (equal f "Wrote %s") + (equal f "pcase-memoize: equal first branch, yet different") + (and (equal f "Warning: Unknown defun property `%S' in %S") + (memq (car a) '(pure side-effect-free interactive-only)))) + (apply 'original-message f a)))) +endef +export suppress_warnings |