ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

save-restriction in `org-mobile-push' 

* lisp/org-mobile.el (org-mobile-push): add `save-restriction'

The fact that pushing org-file loses my narrow context annoys me.

TINYCHANGE
This commit is contained in:
Muchenxuan Tong 2013-07-19 13:19:07 +08:00 committed by Carsten Dominik
parent 2b9f8c9433
commit 59eff74fad
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lisp/org-mobile.el
View File

@ -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-tag-filter org-agenda-tag-filter)
(org-agenda-redo-command org-agenda-redo-command)) (org-agenda-redo-command org-agenda-redo-command))
(save-excursion (save-excursion
(save-window-excursion (save-restriction
(run-hooks 'org-mobile-pre-push-hook) (save-window-excursion
(org-mobile-check-setup) (run-hooks 'org-mobile-pre-push-hook)
(org-mobile-prepare-file-lists) (org-mobile-check-setup)
(message "Creating agendas...") (org-mobile-prepare-file-lists)
(let ((inhibit-redisplay t) (message "Creating agendas...")
(org-agenda-files (mapcar 'car org-mobile-files-alist))) (let ((inhibit-redisplay t)
(org-mobile-create-sumo-agenda)) (org-agenda-files (mapcar 'car org-mobile-files-alist)))
(message "Creating agendas...done") (org-mobile-create-sumo-agenda))
(org-save-all-org-buffers) ; to save any IDs created by this process (message "Creating agendas...done")
(message "Copying files...") (org-save-all-org-buffers) ; to save any IDs created by this process
(org-mobile-copy-agenda-files) (message "Copying files...")
(message "Writing index file...") (org-mobile-copy-agenda-files)
(org-mobile-create-index-file) (message "Writing index file...")
(message "Writing checksums...") (org-mobile-create-index-file)
(org-mobile-write-checksums) (message "Writing checksums...")
(run-hooks 'org-mobile-post-push-hook))) (org-mobile-write-checksums)
(run-hooks 'org-mobile-post-push-hook))))
(setq org-agenda-buffer-name org-agenda-curbuf-name (setq org-agenda-buffer-name org-agenda-curbuf-name
org-agenda-this-buffer-name org-agenda-curbuf-name)) org-agenda-this-buffer-name org-agenda-curbuf-name))
(redraw-display) (redraw-display)