diff options
author | Bastien Guerry <bzg@altern.org> | 2013-01-12 15:43:53 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-12 15:43:53 +0100 |
commit | d815f025e9fcce1a32dfe474bcc39f2a3783db60 (patch) | |
tree | 9ad5017b2683ead9706dc7c69b130b09b5b19701 | |
parent | 5e60f27a30fd1e592fdb622124fc3fc65c7d2990 (diff) | |
download | org-mode-d815f025e9fcce1a32dfe474bcc39f2a3783db60.tar.gz |
* org-mobile.el (org-mobile-write-agenda-for-mobile): Fix bugrelease_7.9.3c
when replacing the heading.
Thanks to Jeff Myer for reporting this.
-rw-r--r-- | lisp/org-mobile.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index d2e7c21..a410de0 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) |