diff options
| author | Bastien Guerry <bzg@altern.org> | 2013-01-12 14:43:53 (GMT) |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2013-01-12 14:43:53 (GMT) |
| commit | d815f025e9fcce1a32dfe474bcc39f2a3783db60 (patch) | |
| tree | 9ad5017b2683ead9706dc7c69b130b09b5b19701 | |
| parent | 5e60f27a30fd1e592fdb622124fc3fc65c7d2990 (diff) | |
| download | org-mode-d815f025e9fcce1a32dfe474bcc39f2a3783db60.zip 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) |