From fafb5f3429c41cba1eddb9fc78d9f9e0980acbe2 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Mon, 11 Feb 2013 14:56:38 +0100 Subject: [PATCH] org-agenda.el: Fix bug when displaying a temporary overlay * org-agenda.el (org-agenda-schedule, org-agenda-deadline): Cosmetic changes. (org-agenda-show-new-time): Fix bug when displaying a temporary overlay with the scheduled/deadline information. Thanks to Thomas Morgan for reporting this bug and testing the patch. --- lisp/org-agenda.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 9b6dcaed8..59be59416 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -8686,9 +8686,8 @@ Called with a universal prefix arg, show the priority instead of setting it." (defun org-agenda-show-new-time (marker stamp &optional prefix) "Show new date stamp via text properties." ;; We use text properties to make this undoable - (let ((inhibit-read-only t) - (buffer-invisibility-spec)) - (setq stamp (concat " " prefix " => " stamp)) + (let ((inhibit-read-only t)) + (setq stamp (concat prefix " => " stamp " ")) (save-excursion (goto-char (point-max)) (while (not (bobp)) @@ -8750,7 +8749,7 @@ ARG is passed through to `org-schedule'." (widen) (goto-char pos) (setq ts (org-schedule arg time))) - (org-agenda-show-new-time marker ts "S")) + (org-agenda-show-new-time marker ts " S")) (message "%s" ts))) (defun org-agenda-deadline (arg &optional time) @@ -8770,7 +8769,7 @@ ARG is passed through to `org-deadline'." (widen) (goto-char pos) (setq ts (org-deadline arg time))) - (org-agenda-show-new-time marker ts "D")) + (org-agenda-show-new-time marker ts " D")) (message "%s" ts))) (defun org-agenda-clock-in (&optional arg) -- 2.11.4.GIT