From mboxrd@z Thu Jan 1 00:00:00 1970 From: marcowahlsoft@gmail.com Subject: Re: [PATCH][mini] bulk-mark-regexp and -toggle also with time grid Date: Fri, 19 Sep 2014 12:38:12 +0200 Message-ID: <84k34znbe3.fsf@tm6592.fritz.box> References: <84vbok957q.fsf@tm6592.fritz.box> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:55270) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XUvaI-0000Xz-A3 for emacs-orgmode@gnu.org; Fri, 19 Sep 2014 06:38:44 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XUvaC-000595-FA for emacs-orgmode@gnu.org; Fri, 19 Sep 2014 06:38:38 -0400 Received: from plane.gmane.org ([80.91.229.3]:53389) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XUvaC-00058b-8E for emacs-orgmode@gnu.org; Fri, 19 Sep 2014 06:38:32 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1XUva5-0007N4-0A for emacs-orgmode@gnu.org; Fri, 19 Sep 2014 12:38:25 +0200 Received: from stgt-5f70222f.pool.mediaways.net ([95.112.34.47]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 19 Sep 2014 12:38:24 +0200 Received: from marcowahlsoft by stgt-5f70222f.pool.mediaways.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 19 Sep 2014 12:38:24 +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 --=-=-= Content-Type: text/plain > (org-agenda-bulk-mark-all) > > Mark all entries for future agenda bulk action. > Currently this is not true if there is a time grid in the agenda buffer. > > Please consider to apply the attached patch. I forgot one line in the previous patch. Please consider the new patch only. --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=real-bulk-multi-marking-with-time-grid.patch Content-Description: bulk-mark regexp and toggle also with time grid patch 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 () --=-=-= Content-Type: text/plain Sorry for the extra noise, Marco -- http://www.wahlzone.de PGP: 0x0A3AE6F2 --=-=-=--