Hi Thomas,
Thomas Morgan <t...@ziiuu.com> writes:
> In an Org TODO list, scheduling an item that contains a link can cause
> the link to disappear.
Thanks very for the report.
Please try the attached patch and let me know if it fixes it (it
should) but more importantly: if it breaks other agenda views.
Best,
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)
--
Bastien
