mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

* org-mobile.el (org-mobile-write-agenda-for-mobile): Fix bug 

when replacing the heading.

Thanks to Jeff Myer for reporting this.
This commit is contained in:
Bastien Guerry 2013-01-12 15:43:53 +01:00
parent 5e60f27a30
commit d815f025e9
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-mobile.el
View File

@ -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)