diff options
author | Bastien Guerry <bzg@altern.org> | 2013-01-12 15:44:01 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-12 15:44:01 +0100 |
commit | 4b1fcd04e8e36e0325337d716dce4602c8e62001 (patch) | |
tree | 1730669735c9467cfbe7a9e209d9bfa8c08c9585 | |
parent | 6b7d2688d9a5a056b170054bb87aeb623808cb4e (diff) | |
parent | d815f025e9fcce1a32dfe474bcc39f2a3783db60 (diff) | |
download | org-mode-4b1fcd04e8e36e0325337d716dce4602c8e62001.tar.gz |
Merge branch 'maint'
-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 9e95aab..843ccdd 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -626,12 +626,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) |