From 5a24f6c9d2f0b479f0c7970607ccbddf00feb861 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 3 Nov 2009 10:35:05 +0100 Subject: [PATCH] Keep compiler happy --- lisp/org-clock.el | 4 ++-- lisp/org.el | 4 +++- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 67deb76a2..a70cba93e 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -246,7 +246,7 @@ to add an effort property.") (defvar org-clock-mode-line-timer nil) (defvar org-clock-idle-timer nil) -(defvar org-clock-heading "") +(defvar org-clock-heading) ; defined in org.el (defvar org-clock-heading-for-remember "") (defvar org-clock-start-time "") @@ -806,7 +806,7 @@ so long." (function (lambda (clock) (format "Clocked in & idle for %d mins" - (/ (time-to-seconds + (/ (org-float-time (time-subtract (current-time) org-clock-user-idle-start)) 60)))) (time-subtract (current-time) diff --git a/lisp/org.el b/lisp/org.el index 5906b533e..1fb0afc53 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3210,6 +3210,8 @@ If TABLE-TYPE is non-nil, also check for table.el-type tables." "Marker recording the last clock-in.") (defvar org-clock-hd-marker (make-marker) "Marker recording the last clock-in, but the headline position.") +(defvar org-clock-heading "" + "The heading of the current clock entry.") (defun org-clock-is-active () "Return non-nil if clock is currently running. The return value is actually the clock marker." @@ -10827,7 +10829,7 @@ ACTION can be `set', `up', `down', or a character." (setq current org-default-priority)) (cond ((eq action 'remove) - (setq remote t new ?\ )) + (setq remove t new ?\ )) ((or (eq action 'set) (if (featurep 'xemacs) (characterp action) (integerp action))) (if (not (eq action 'set)) -- 2.11.4.GIT