From d815f025e9fcce1a32dfe474bcc39f2a3783db60 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 12 Jan 2013 15:43:53 +0100 Subject: [PATCH] * org-mobile.el (org-mobile-write-agenda-for-mobile): Fix bug when replacing the heading. Thanks to Jeff Myer for reporting this. --- lisp/org-mobile.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index d2e7c217f..a410de0d7 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -620,12 +620,10 @@ The table of checksums is written to the file mobile-checksums." (delete-region (point) (point-at-eol))) ((get-text-property (point) 'org-agenda-structural-header) (setq in-date nil) - (setq app (get-text-property (point) - 'org-agenda-title-append)) - (setq short (get-text-property (point) - 'short-heading)) + (setq app (get-text-property (point) 'org-agenda-title-append)) + (setq short (get-text-property (point) 'short-heading)) (when (and short (looking-at ".+")) - (replace-match short) + (replace-match short nil t) (beginning-of-line 1)) (when app (end-of-line 1) -- 2.11.4.GIT