From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nikolai Weibull Subject: [PATCH 1/2] Redo Agenda in more cases even in sticky mode Date: Thu, 20 Aug 2015 19:02:34 +0200 Message-ID: <1440090154-33109-2-git-send-email-now@disu.se> References: <87h9umi5vb.fsf@nicolasgoaziou.fr> <1440090154-33109-1-git-send-email-now@disu.se> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:50897) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZSTEw-0004fQ-Ve for emacs-orgmode@gnu.org; Thu, 20 Aug 2015 13:03:04 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZSTEt-0005yE-NL for emacs-orgmode@gnu.org; Thu, 20 Aug 2015 13:02:58 -0400 Received: from smtprelay-h21.telenor.se ([195.54.99.196]:33783) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZSTEt-0005y4-HY for emacs-orgmode@gnu.org; Thu, 20 Aug 2015 13:02:55 -0400 Received: from ipb1.telenor.se (ipb1.telenor.se [195.54.127.164]) by smtprelay-h21.telenor.se (Postfix) with ESMTP id B0B1EDABF for ; Thu, 20 Aug 2015 19:02:54 +0200 (CEST) In-Reply-To: <1440090154-33109-1-git-send-email-now@disu.se> 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-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Nikolai Weibull * org-agenda.el (org-agenda-maybe-redo): Test for org-agenda-this-buffer-name as well. The Agenda buffer will have a different name if it=E2=80=99s in sticky mo= de, but some commands that alter the agenda should still redo it, for example, org-agenda-remove-restriction-lock, just like org-agenda-filter-by-category does. --- lisp/org-agenda.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 07b77ac..5fd1cd4 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7169,7 +7169,9 @@ in the file. Otherwise, restriction will be to the= current subtree." =20 (defun org-agenda-maybe-redo () "If there is any window showing the agenda view, update it." - (let ((w (get-buffer-window org-agenda-buffer-name t)) + (let ((w (get-buffer-window (or org-agenda-this-buffer-name + org-agenda-buffer-name) + t)) (w0 (selected-window))) (when w (select-window w) --=20 2.5.0