Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Added null-result handling...

  • Loading branch information...
commit 6d666493ed1a035e80cc6e5162198715b31c2510 1 parent 203182a
@theodorewiles authored
Showing with 7 additions and 6 deletions.
  1. +7 −6 org-latitude.el
View
13 org-latitude.el
@@ -95,11 +95,12 @@
(defun lat/makeagenda ()
"Make the agenda corresponding to all of the locations that have changed"
(let ((locations (concat (lat/matchinglocations) "/" lat/matchingTODO)))
- (org-add-agenda-custom-command
- '("X" tags (eval locations)))
- (org-batch-agenda "X")
- )
-)
+ (if (string= (lat/matchinglocations) "+")
+ nil
+ (progn (org-add-agenda-custom-command
+ '("X" tags (eval locations)))
+ (org-batch-agenda "X")))))
+
(defun lat/testcurrent ()
@@ -154,7 +155,7 @@
(when (timerp lat/timer)
(cancel-timer lat/timer))
(setq lat/timer
- (run-with-timer 15 15 'lat/timer-callback)))
+ (run-with-timer 60 15 'lat/timer-callback)))
;; stop function
(defun lat/timer-stop ()
Please sign in to comment.
Something went wrong with that request. Please try again.