Merge branch 'maint'

This commit is contained in:
Bastien Guerry 2013-01-12 15:44:01 +01:00
commit 4b1fcd04e8
1 changed files with 3 additions and 5 deletions

View File

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