From 79031ab5ab9aa175b1d1105c65b7875e58799a35 Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Tue, 20 Oct 2009 13:24:55 +0200
Subject: [PATCH] Keep compiler happy

---
 lisp/org-agenda.el | 6 ++++++
 lisp/org-clock.el  | 4 ++--
 lisp/org-mobile.el | 5 +++--
 3 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 8f5a533df..a586144fd 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -54,8 +54,14 @@
 (declare-function calendar-persian-date-string  "cal-persia" (&optional date))
 (declare-function org-columns-quit              "org-colview" ())
 (declare-function org-mobile-write-agenda-for-mobile "org-mobile" (file))
+(declare-function org-habit-insert-consistency-graphs
+		  "org-habit" (&optional line))
+(declare-function org-is-habit-p "org-habit" (&optional pom))
+(declare-function org-habit-parse-todo "org-habit" (&optional pom))
 (defvar calendar-mode-map)
 (defvar org-mobile-force-id-on-agenda-items) ; defined in org-mobile.el
+(defvar org-habit-show-habits)
+(defvar org-habit-show-habits-only-for-today)
 
 ;; Defined somewhere in this file, but used before definition.
 (defvar org-agenda-buffer-name)
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 8c0b2aede..cfba43f2c 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -918,8 +918,8 @@ the clocking selection, associated with the letter `d'."
 			     (y-or-n-p
 			      (format
 			       "You stopped another clock %d mins ago; start this one from then? "
-			       (/ (- (time-to-seconds (current-time))
-				     (time-to-seconds left-over)) 60)))
+			       (/ (- (org-float-time (current-time))
+				     (org-float-time left-over)) 60)))
 			     left-over)
 			(current-time)))
 	      (setq ts (org-insert-time-stamp org-clock-start-time
diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el
index e0a2644e7..15f20230d 100644
--- a/lisp/org-mobile.el
+++ b/lisp/org-mobile.el
@@ -33,6 +33,7 @@
 
 (require 'org)
 (require 'org-agenda)
+(eval-when-compile (require 'cl))
 
 (defgroup org-mobile nil
   "Options concerning support for a viewer/editor on a mobile device."
@@ -337,7 +338,7 @@ agenda view showing the flagged items."
 (defun org-mobile-copy-agenda-files ()
   "Copy all agenda files to the stage or WebDAV directory."
   (let ((files-alist org-mobile-files-alist)
-	file buf entry link-name target-path target-dir)
+	file buf entry link-name target-path target-dir check)
     (while (setq entry (pop files-alist))
       (setq file (car entry) link-name (cdr entry))
       (when (file-exists-p file)
@@ -654,7 +655,7 @@ If BEG and END are given, only do this in that region."
 	    (goto-char (+ 2 bos-marker))
 	    (unless (markerp id-pos)
 	      (insert "BAD REFERENCE ")
-	      (incf cnd-error)
+	      (incf cnt-error)
 	      (throw 'next t))
 	    (unless cmd
 	      (insert "BAD FLAG ")