supress-messages macro

2015-01-30 21:48:17 -08:00 · 2015-01-30 21:48:17 -08:00 · 995dda48d5
commit 995dda48d5
parent 134872ec90
1 changed files with 4 additions and 0 deletions
--- a/dotfiles/emacs.d/init.el
+++ b/dotfiles/emacs.d/init.el
@ -142,6 +142,10 @@
 ;;                                                                     functions
 ;; =============================================================================

+(defmacro suppress-messages (&rest forms)
+  `(flet ((message (&rest r) nil))
+     ,@forms))
+
 (defun cmp-int-list (a b)
  (when (and a b)
    (cond ((> (car a) (car b)) 1)