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

org-mobile: Save agenda files before pushing 

* lisp/org-mobile.el (org-mobile-push): Save agenda files before
  pushing.

Fixes: 19448
This commit is contained in:
Nicolas Goaziou 2018-01-03 15:45:53 +01:00
parent 837e1b4249
commit c0ea20aab7
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-mobile.el
View File

@ -311,6 +311,11 @@ create all custom agenda views, for upload to the mobile phone."
(let ((org-agenda-buffer-name "*SUMO*")
(org-agenda-tag-filter org-agenda-tag-filter)
(org-agenda-redo-command org-agenda-redo-command))
;; Offer to save agenda-related buffers before pushing, preventing
;; "Non-existent agenda file" prompt for lock files (see #19448).
(let ((agenda-buffers (org-buffer-list 'agenda)))
(save-some-buffers nil
(lambda () (memq (current-buffer) agenda-buffers))))
(save-excursion
(save-restriction
(save-window-excursion