diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2019-09-04 10:10:45 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2019-09-04 10:10:45 +0200 |
commit | d1bdf6c7890041d7a7234a2cd5b91e42d6b61ace (patch) | |
tree | cf5daed02fb68b1c854631f7635b05202861eccd | |
parent | 18c69675aeb96fd3cf0cae328244cbd0e542b6fd (diff) | |
download | org-mode-d1bdf6c7890041d7a7234a2cd5b91e42d6b61ace.tar.gz |
Small fix in manual
-rw-r--r-- | doc/org-manual.org | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/doc/org-manual.org b/doc/org-manual.org index f2e211b..8664663 100644 --- a/doc/org-manual.org +++ b/doc/org-manual.org @@ -9178,14 +9178,14 @@ the Internet, and outside of business hours, with something like this: #+begin_src emacs-lisp (defun org-my-auto-exclude-fn (tag) - (and (cond - ((string= tag "net") - (/= 0 (call-process "/sbin/ping" nil nil nil - "-c1" "-q" "-t1" "mail.gnu.org"))) - ((or (member tag '("errand" "call"))) - (let ((hr (nth 2 (decode-time)))) - (or (< hr 8) (> hr 21))))) - (concat "-" tag))) + (if (cond + ((string= tag "net") + (/= 0 (call-process "/sbin/ping" nil nil nil + "-c1" "-q" "-t1" "mail.gnu.org"))) + ((member tag '("errand" "call")) + (let ((hr (nth 2 (decode-time)))) + (or (< hr 8) (> hr 21))))) + (concat "-" tag))) (setq org-agenda-auto-exclude-function 'org-my-auto-exclude-fn) #+end_src |