diff options
author | Sebastien Delafond <seb@debian.org> | 2013-10-27 17:14:14 +0100 |
---|---|---|
committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:29 +0200 |
commit | d3ee0b02baea9e4e066ed16145ba076165d8a696 (patch) | |
tree | fdb3661e3284a5d42637a562216e29ac4edd40d4 /lisp/org-mobile.el | |
parent | 44bbf7eace0d917b5deb7a2ee74ef2927e095b3c (diff) | |
parent | 40ce6b75e6245659a3a14622356e32e7dd1125dd (diff) |
Imported Debian patch 8.2.1-1
Diffstat (limited to 'lisp/org-mobile.el')
-rw-r--r-- | lisp/org-mobile.el | 35 |
1 files changed, 18 insertions, 17 deletions
diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 7cdaf34..a43896b 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -319,23 +319,24 @@ create all custom agenda views, for upload to the mobile phone." (org-agenda-tag-filter org-agenda-tag-filter) (org-agenda-redo-command org-agenda-redo-command)) (save-excursion - (save-window-excursion - (run-hooks 'org-mobile-pre-push-hook) - (org-mobile-check-setup) - (org-mobile-prepare-file-lists) - (message "Creating agendas...") - (let ((inhibit-redisplay t) - (org-agenda-files (mapcar 'car org-mobile-files-alist))) - (org-mobile-create-sumo-agenda)) - (message "Creating agendas...done") - (org-save-all-org-buffers) ; to save any IDs created by this process - (message "Copying files...") - (org-mobile-copy-agenda-files) - (message "Writing index file...") - (org-mobile-create-index-file) - (message "Writing checksums...") - (org-mobile-write-checksums) - (run-hooks 'org-mobile-post-push-hook))) + (save-restriction + (save-window-excursion + (run-hooks 'org-mobile-pre-push-hook) + (org-mobile-check-setup) + (org-mobile-prepare-file-lists) + (message "Creating agendas...") + (let ((inhibit-redisplay t) + (org-agenda-files (mapcar 'car org-mobile-files-alist))) + (org-mobile-create-sumo-agenda)) + (message "Creating agendas...done") + (org-save-all-org-buffers) ; to save any IDs created by this process + (message "Copying files...") + (org-mobile-copy-agenda-files) + (message "Writing index file...") + (org-mobile-create-index-file) + (message "Writing checksums...") + (org-mobile-write-checksums) + (run-hooks 'org-mobile-post-push-hook)))) (setq org-agenda-buffer-name org-agenda-curbuf-name org-agenda-this-buffer-name org-agenda-curbuf-name)) (redraw-display) |