diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-11-17 15:51:26 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-11-17 15:51:26 +0100 |
commit | 4c7dcd083079584827fbede7997077fe473616cd (patch) | |
tree | a9d239feb157da87d44aa797104b03155604b082 | |
parent | a00a7b29183798c36ab75698a4ef5c3db4e670ec (diff) | |
download | org-mode-4c7dcd083079584827fbede7997077fe473616cd.tar.gz |
Silence byte compiler
* contrib/lisp/org-invoice.el (org-invoice-info-to-table,
org-invoice-list-to-table): Silence byte compiler.
* lisp/org-agenda.el (org-agenda-show-clocking-issues,
org-agenda-format-item): Silence byte compiler.
* lisp/org-colview-xemacs.el (org-agenda-columns): Silence byte
compiler.
* lisp/org-colview.el (org-agenda-columns): Silence byte compiler.
* lisp/org.el (org-properties-postprocess-alist): Silence byte
compiler.
Function renaming was necessary as of
a00a7b29183798c36ab75698a4ef5c3db4e670ec.
-rw-r--r-- | contrib/lisp/org-invoice.el | 6 | ||||
-rw-r--r-- | lisp/org-agenda.el | 6 | ||||
-rw-r--r-- | lisp/org-colview-xemacs.el | 2 | ||||
-rw-r--r-- | lisp/org-colview.el | 2 | ||||
-rw-r--r-- | lisp/org.el | 2 |
5 files changed, 9 insertions, 9 deletions
diff --git a/contrib/lisp/org-invoice.el b/contrib/lisp/org-invoice.el index c951d4e..59c36e2 100644 --- a/contrib/lisp/org-invoice.el +++ b/contrib/lisp/org-invoice.el @@ -226,8 +226,8 @@ looks like tree2, where the level is 2." (setq org-invoice-total-time (+ org-invoice-total-time work) org-invoice-total-price (+ org-invoice-total-price price))) - (setq total (and total (org-minutes-to-hh:mm-string total))) - (setq work (and work (org-minutes-to-hh:mm-string work))) + (setq total (and total (org-minutes-to-clocksum-string total))) + (setq work (and work (org-minutes-to-clocksum-string work))) (insert-before-markers (concat "|" title (cond @@ -251,7 +251,7 @@ looks like tree2, where the level is 2." (when with-summary (insert-before-markers (concat "|-\n|Total:|" - (org-minutes-to-hh:mm-string org-invoice-total-time) + (org-minutes-to-clocksum-string org-invoice-total-time) (and with-price (concat "|" (format "%.2f" org-invoice-total-price))) "|\n"))))) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 7e1d835..2c484b5 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5732,13 +5732,13 @@ See also the user option `org-agenda-clock-consistency-checks'." ((> dt (* 60 maxtime)) ;; a very long clocking chunk (setq issue (format "Clocking interval is very long: %s" - (org-minutes-to-hh:mm-string + (org-minutes-to-clocksum-string (floor (/ (float dt) 60.)))) face (or (plist-get pl :long-face) face))) ((< dt (* 60 mintime)) ;; a very short clocking chunk (setq issue (format "Clocking interval is very short: %s" - (org-minutes-to-hh:mm-string + (org-minutes-to-clocksum-string (floor (/ (float dt) 60.)))) face (or (plist-get pl :short-face) face))) ((and (> tlend 0) (< ts tlend)) @@ -6240,7 +6240,7 @@ Any match of REMOVE-RE will be removed from TXT." ;; Try to set s2 if s1 and `org-agenda-default-appointment-duration' are set (when (and s1 (not s2) org-agenda-default-appointment-duration) (setq s2 - (org-minutes-to-hh:mm-string + (org-minutes-to-clocksum-string (+ (org-hh:mm-string-to-minutes s1) org-agenda-default-appointment-duration)))) ;; Compute the duration diff --git a/lisp/org-colview-xemacs.el b/lisp/org-colview-xemacs.el index 3da7f8d..713ad1f 100644 --- a/lisp/org-colview-xemacs.el +++ b/lisp/org-colview-xemacs.el @@ -1553,7 +1553,7 @@ and tailing newline characters." ;; OK, the property is not defined. Use appointment duration? (when (and org-agenda-columns-add-appointments-to-effort-sum (setq d (get-text-property (point) 'duration))) - (setq d (org-minutes-to-hh:mm-string d)) + (setq d (org-minutes-to-clocksum-string d)) (put-text-property 0 (length d) 'face 'org-warning d) (push (cons org-effort-property d) p))) (push (cons (org-current-line) p) cache)) diff --git a/lisp/org-colview.el b/lisp/org-colview.el index d9afbd1..62c8e74 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -1403,7 +1403,7 @@ and tailing newline characters." ;; OK, the property is not defined. Use appointment duration? (when (and org-agenda-columns-add-appointments-to-effort-sum (setq d (get-text-property (point) 'duration))) - (setq d (org-minutes-to-hh:mm-string d)) + (setq d (org-minutes-to-clocksum-string d)) (put-text-property 0 (length d) 'face 'org-warning d) (push (cons org-effort-property d) p))) (push (cons (org-current-line) p) cache)) diff --git a/lisp/org.el b/lisp/org.el index 7f22ac3..dc411b8 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -3203,7 +3203,7 @@ and the clock summary: (let ((clocksum (org-clock-sum-current-item)) (effort (org-duration-string-to-minutes (org-entry-get (point) \"Effort\")))) - (org-minutes-to-hh:mm-string (- effort clocksum))))))" + (org-minutes-to-clocksum-string (- effort clocksum))))))" :group 'org-properties :version "24.1" :type '(alist :key-type (string :tag "Property") |