Re: [O] [PATCH] save-restriction in `org-mobile-push'

[Carsten Dominik]

Applied, thanks.

- Carsten

On 19.7.2013, at 07:19, Muchenxuan Tong <address@hidden> wrote:

> * lisp/org-mobile.el (org-mobile-push): add `save-restriction'
> 
> The fact that pushing org-file loses my narrow context annoys me.
> 
> TINYCHANGE
> ---
> lisp/org-mobile.el | 35 ++++++++++++++++++-----------------
> 1 file 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)
> -- 
> 1.8.3.2
> 
>