From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bastien Subject: Re: Scheduling makes link disappear Date: Thu, 07 Feb 2013 11:42:43 +0100 Message-ID: <87d2wcz9p8.fsf@bzg.ath.cx> References: <87622c45c8.fsf@ziiuu.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:45151) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U3OwL-0008Pk-6d for emacs-orgmode@gnu.org; Thu, 07 Feb 2013 05:42:51 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1U3OwJ-0006HY-7n for emacs-orgmode@gnu.org; Thu, 07 Feb 2013 05:42:49 -0500 Received: from wg-in-x0229.1e100.net ([2a00:1450:400c:c00::229]:55751 helo=mail-wg0-x229.google.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U3OwJ-0006H8-1e for emacs-orgmode@gnu.org; Thu, 07 Feb 2013 05:42:47 -0500 Received: by mail-wg0-f41.google.com with SMTP id ds1so5826251wgb.4 for ; Thu, 07 Feb 2013 02:42:46 -0800 (PST) In-Reply-To: <87622c45c8.fsf@ziiuu.com> (Thomas Morgan's message of "Fri, 01 Feb 2013 06:54:31 -0500") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Thomas Morgan Cc: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Hi Thomas, Thomas Morgan 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, --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=org-agenda-fix-display.patch 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) --=-=-= Content-Type: text/plain -- Bastien --=-=-=--