From mboxrd@z Thu Jan 1 00:00:00 1970 From: marcowahlsoft@gmail.com Subject: [PATCH] Fix to determine a bulk-markable line Date: Sat, 20 Sep 2014 22:26:18 +0200 Message-ID: <84iokif385.fsf@tm6592.fritz.box> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:35423) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XVRF4-0002P6-S9 for emacs-orgmode@gnu.org; Sat, 20 Sep 2014 16:26:58 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XVREx-0004Ez-D6 for emacs-orgmode@gnu.org; Sat, 20 Sep 2014 16:26:50 -0400 Received: from plane.gmane.org ([80.91.229.3]:52664) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XVREx-0004EN-6p for emacs-orgmode@gnu.org; Sat, 20 Sep 2014 16:26:43 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1XVREp-0001WK-KA for emacs-orgmode@gnu.org; Sat, 20 Sep 2014 22:26:35 +0200 Received: from stgt-5f71b07a.pool.mediaways.net ([95.113.176.122]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 20 Sep 2014 22:26:35 +0200 Received: from marcowahlsoft by stgt-5f71b07a.pool.mediaways.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 20 Sep 2014 22:26:35 +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-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * lisp/org-agenda.el (org-agenda-bulk-mark, org-agenda-bulk-mark-regexp, org-agenda-bulk-toggle-all): This fixes e.g. org-agenda-bulk-mark-all when time-grid is shown. TINYCHANGE --- lisp/org-agenda.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index dbc9861..1bec8dc 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9680,7 +9680,7 @@ This is a command that has to be installed in `calendar-mode-map'." (overlay-put ov 'type 'org-marked-entry-overlay)) (end-of-line 1) (or (ignore-errors - (goto-char (next-single-property-change (point) 'txt))) + (goto-char (next-single-property-change (point) 'org-hd-marker))) (beginning-of-line 2)) (while (and (get-char-property (point) 'invisible) (not (eobp))) (beginning-of-line 2)) @@ -9698,7 +9698,7 @@ This is a command that has to be installed in `calendar-mode-map'." (let ((entries-marked 0) txt-at-point) (save-excursion (goto-char (point-min)) - (goto-char (next-single-property-change (point) 'txt)) + (goto-char (next-single-property-change (point) 'org-hd-marker)) (while (and (re-search-forward regexp nil t) (setq txt-at-point (get-text-property (point) 'txt))) (when (string-match regexp txt-at-point) @@ -9734,7 +9734,7 @@ This is a command that has to be installed in `calendar-mode-map'." (save-excursion (goto-char (point-min)) (while (ignore-errors - (goto-char (next-single-property-change (point) 'txt))) + (goto-char (next-single-property-change (point) 'org-hd-marker))) (org-agenda-bulk-toggle)))) (defun org-agenda-bulk-toggle () -- 2.1.0