浏览代码

org-agenda: fix length computing

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

Signed-off-by: Julien Danjou <julien@danjou.info>
Julien Danjou 14 年之前
父节点
当前提交
9939312b37
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      lisp/org-agenda.el

+ 1 - 1
lisp/org-agenda.el

@@ -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