summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-01-12 15:43:53 +0100
committerBastien Guerry <bzg@altern.org>2013-01-12 15:43:53 +0100
commitd815f025e9fcce1a32dfe474bcc39f2a3783db60 (patch)
tree9ad5017b2683ead9706dc7c69b130b09b5b19701
parent5e60f27a30fd1e592fdb622124fc3fc65c7d2990 (diff)
downloadorg-mode-3392d91cca7ed093fb57fec16940e63680615056.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.el8
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)