From mboxrd@z Thu Jan 1 00:00:00 1970 From: Adam Porter Subject: [PATCH] Fix: (org-agenda-get-progress) Logbook list bullets with 2+ spaces Date: Fri, 31 Aug 2018 19:16:44 -0500 Message-ID: <87zhx23wcz.fsf@alphapapa.net> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:48258) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fvtb1-0001x3-Fh for emacs-orgmode@gnu.org; Fri, 31 Aug 2018 20:17:00 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fvtaw-00085m-Ih for emacs-orgmode@gnu.org; Fri, 31 Aug 2018 20:16:59 -0400 Received: from [195.159.176.226] (port=59579 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fvtaw-000850-BQ for emacs-orgmode@gnu.org; Fri, 31 Aug 2018 20:16:54 -0400 Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1fvtYm-0007Bp-TR for emacs-orgmode@gnu.org; Sat, 01 Sep 2018 02:14:40 +0200 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: emacs-orgmode@gnu.org Previously, logbook list entries with more than one space between the bullet and the beginning of the entry would be ignored (i.e. if a bullet is defined in org-list-two-spaces-after-bullet-regexp, two spaces will be inserted after the bullet, and that prevents state-changed entries from appearing in the Agenda Log Mode view). This commit fixes this problem by accepting multiple spaces between the list bullet and "State" in the state-change regexp. --- lisp/org-agenda.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index eaeddb6..a60fb60 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5733,7 +5733,7 @@ then those holidays will be skipped." (when (memq 'closed items) (concat "\\<" org-closed-string)) (when (memq 'clock items) (concat "\\<" org-clock-string)) (when (memq 'state items) - (format "- State \"%s\".*?" org-todo-regexp))))) + (format "- +State \"%s\".*?" org-todo-regexp))))) (parts-re (if parts (mapconcat 'identity parts "\\|") (error "`org-agenda-log-mode-items' is empty"))) (regexp (concat -- 2.7.4