diff options
author | Bastien Guerry <bzg@altern.org> | 2013-02-11 14:56:38 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-02-11 14:56:38 +0100 |
commit | fafb5f3429c41cba1eddb9fc78d9f9e0980acbe2 (patch) | |
tree | a6674032dcaf33c2adec529806d107b37fb00e0b | |
parent | 0b9e3b8a45244f9930f8acc01715ca046ccce642 (diff) | |
download | org-mode-fafb5f3429c41cba1eddb9fc78d9f9e0980acbe2.tar.gz |
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.
-rw-r--r-- | lisp/org-agenda.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 9b6dcae..59be594 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) |