From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nicolas Goaziou Subject: bug#19448: 25.0.50; org-mobile-push should offer to save unsaved agenda files Date: Wed, 03 Jan 2018 15:47:04 +0100 Message-ID: <87o9mbdmon.fsf@nicolasgoaziou.fr> References: <56147641-A364-4D1E-A7A6-0CF602EBA828@constantly.at> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:46062) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eWkKr-0008Ik-MD for emacs-orgmode@gnu.org; Wed, 03 Jan 2018 09:48:06 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eWkKo-0006az-K1 for emacs-orgmode@gnu.org; Wed, 03 Jan 2018 09:48:05 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:53478) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eWkKo-0006al-H5 for emacs-orgmode@gnu.org; Wed, 03 Jan 2018 09:48:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1eWkKo-0000Gm-83 for emacs-orgmode@gnu.org; Wed, 03 Jan 2018 09:48:02 -0500 Sender: "Debbugs-submit" Resent-To: emacs-orgmode@gnu.org Resent-Message-ID: In-Reply-To: <56147641-A364-4D1E-A7A6-0CF602EBA828@constantly.at> (Rudi Schlatte's message of "Fri, 26 Dec 2014 10:58:23 +0100") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: Rudi Schlatte Cc: 19448-done@debbugs.gnu.org Hello, Rudi Schlatte writes: > When trying to call `org-mobile-push' while an org file in > org-agenda-files is open and modified, `org-mobile-push' displays a > prompt like the following in the minibuffer: > > Non-existent agenda file ~/Documents/Org/.#notes.org. [R]emove from list or [A]bort? > > This trivial patch uses `save-some-buffers' to save the agenda > files, removing the confusing prompt: > > --- a/lisp/org/org-mobile.el > +++ b/lisp/org/org-mobile.el > @@ -318,6 +318,9 @@ create all custom agenda views, for upload to the mobile phone." > (org-agenda-buffer-name "*SUMO*") > (org-agenda-tag-filter org-agenda-tag-filter) > (org-agenda-redo-command org-agenda-redo-command)) > + (let ((agenda-files (org-agenda-files))) > + (save-some-buffers nil (lambda () (member (buffer-file-name) > + agenda-files)))) > (save-excursion > (save-restriction > (save-window-excursion I applied something equivalent. Thank you. Regards, -- Nicolas Goaziou 0x80A93738