Disable notifications with if statement instead of comment.

This commit is contained in:
Ivan Malison 2015-08-03 10:34:16 -07:00
parent da97013957
commit 25c27855bc

View File

@ -708,13 +708,14 @@ The current directory is assumed to be the project's root otherwise."
(setq helm-org-headings-fontify t) (setq helm-org-headings-fontify t)
;; Enable appointment notifications. ;; Enable appointment notifications.
;; (defadvice org-agenda-to-appt (before wickedcool activate) (if nil
;; "Clear the appt-time-msg-list." (defadvice org-agenda-to-appt (before wickedcool activate)
;; (setq appt-time-msg-list nil)) "Clear the appt-time-msg-list."
;; (appt-activate) (setq appt-time-msg-list nil))
;; (defun org-agenda-to-appt-no-message () (appt-activate)
;; (suppress-messages (org-agenda-to-appt))) (defun org-agenda-to-appt-no-message ()
;; (run-at-time "00:00" 60 'org-agenda-to-appt-no-message) (suppress-messages (org-agenda-to-appt)))
(run-at-time "00:00" 60 'org-agenda-to-appt-no-message))
(defun org-archive-if (condition-function) (defun org-archive-if (condition-function)
(if (funcall condition-function) (if (funcall condition-function)