From f0c766122d6b6c81a34020734f24388c0db3f08d Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 31 Jan 2008 11:36:02 +0100 Subject: [PATCH] Release 5.06e --- org.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/org.el b/org.el index e20ac6352..160a3f614 100644 --- a/org.el +++ b/org.el @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/ -;; Version: 5.06d +;; Version: 5.06e ;; ;; This file is part of GNU Emacs. ;; @@ -83,7 +83,7 @@ ;;; Version -(defconst org-version "5.06d" +(defconst org-version "5.06e" "The version number of the file org.el.") (defun org-version () (interactive) @@ -18321,7 +18321,8 @@ the documentation of `org-diary'." (point)))) (setq donep (string-match org-looking-at-done-regexp head)) (if (string-match " \\([012]?[0-9]:[0-9][0-9]\\)" s) - (setq timestr (concat (match-string 1 s) " ")) + (setq timestr + (concat (substring s (match-beginning 1)) " ")) (setq timestr nil)) (if (and donep (or org-agenda-skip-deadline-if-done @@ -18396,7 +18397,8 @@ FRACTION is what fraction of the head-warning time has passed." (progn (skip-chars-forward "^\r\n") (point)))) (setq donep (string-match org-looking-at-done-regexp head)) (if (string-match " \\([012]?[0-9]:[0-9][0-9]\\)" s) - (setq timestr (concat (match-string 1 s) " ")) + (setq timestr + (concat (substring s (match-beginning 1)) " ")) (setq timestr nil)) (if (and donep (or org-agenda-skip-scheduled-if-done -- 2.11.4.GIT