use shut-up in place of suppress-messages

This commit is contained in:
Ivan Malison 2016-06-13 17:35:28 -07:00
parent 3c5cf82268
commit 03730f5a64

View File

@ -424,10 +424,6 @@ Prefix alternatives is a macro that builds a function that selects one of a coll
(interactive) (interactive)
(insert (imalison:uuid))) (insert (imalison:uuid)))
(defmacro suppress-messages (&rest forms)
`(flet ((message (&rest r) nil))
,@forms))
(defun imalison:compare-int-list (a b) (defun imalison:compare-int-list (a b)
(when (and a b) (when (and a b)
(cond ((> (car a) (car b)) 1) (cond ((> (car a) (car b)) 1)
@ -741,7 +737,7 @@ Sets environment variables by starting a shell
(setq appt-time-msg-list nil)) (setq appt-time-msg-list nil))
(appt-activate) (appt-activate)
(defun org-agenda-to-appt-no-message () (defun org-agenda-to-appt-no-message ()
(suppress-messages (org-agenda-to-appt))) (shut-up (org-agenda-to-appt)))
(run-at-time "00:00" 60 'org-agenda-to-appt-no-message)) (run-at-time "00:00" 60 'org-agenda-to-appt-no-message))
(defun org-archive-if (condition-function) (defun org-archive-if (condition-function)
@ -1870,6 +1866,10 @@ The packages in this section provide no functionality on their own, but support
:ensure nil :ensure nil
:load-path "~/Projects/gh.el") :load-path "~/Projects/gh.el")
#+END_SRC #+END_SRC
*** shut-up
#+BEGIN_SRC emacs-lisp
(use-package shut-up)
#+END_SRC
** Other ** Other
*** iedit *** iedit
I don't use iedit directly, but it is used by [[*emr][emr]] and I need to disable ~iedit-toggle-key-default~ or else a buffer pops up complaing that the key has been bound to something else I don't use iedit directly, but it is used by [[*emr][emr]] and I need to disable ~iedit-toggle-key-default~ or else a buffer pops up complaing that the key has been bound to something else