org-agenda: fix length computing

* lisp/org-agenda.el (org-format-agenda-item): Fix length computing.

Signed-off-by: Julien Danjou <julien@danjou.info>
This commit is contained in:
Julien Danjou 2011-03-18 11:22:54 +01:00
parent 7426874fd9
commit 9939312b37
1 changed files with 1 additions and 1 deletions

View File

@ -5331,7 +5331,7 @@ Any match of REMOVE-RE will be removed from TXT."
;; Set org-heading property on `txt' to mark the start of the ;; Set org-heading property on `txt' to mark the start of the
;; heading. ;; heading.
(add-text-properties 0 (1- (length txt)) '(org-heading t) txt) (add-text-properties 0 (length txt) '(org-heading t) txt)
;; Prepare the variables needed in the eval of the compiled format ;; Prepare the variables needed in the eval of the compiled format
(setq time (cond (s2 (concat (setq time (cond (s2 (concat