[elpa] externals/zones 3169815: * zones.el (zz-add-zones-matching-regexp): Bug fix

[Stefan Monnier]

branch: externals/zones
commit 3169815c323966ff8e252b44e3558d6d045243fe
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * zones.el (zz-add-zones-matching-regexp): Bug fix
    
    Was adding complement before search hit as zone, instead of hit.
---
 zones.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/zones.el b/zones.el
index d12a6dc..ca88d48 100644
--- a/zones.el
+++ b/zones.el
@@ -7,11 +7,11 @@
 ;; Author: Drew Adams
 ;; Maintainer: Drew Adams <address@hidden>
 ;; Created: Sun Apr 18 12:58:07 2010 (-0700)
-;; Version: 2019.4.7
+;; Version: 2019.4.30
 ;; Package-Requires: ()
-;; Last-Updated: Sun Apr  7 17:13:06 2019 (-0700)
+;; Last-Updated: Tue Apr 30 17:07:29 2019 (-0700)
 ;;           By: dradams
-;;     Update #: 3122
+;;     Update #: 3127
 ;; URL: https://elpa.gnu.org/packages/zones.html
 ;; URL: https://www.emacswiki.org/emacs/download/zones.el
 ;; Doc URL: https://www.emacswiki.org/emacs/Zones
@@ -572,6 +572,8 @@
 ;;
 ;;(@* "Change Log")
 ;;
+;; 2019/04/30 dadams
+;;     zz-add-zones-matching-regexp: Bug fix: was adding complement before 
search hit as zone, instead of hit.
 ;; 2019/04/07 dadams
 ;;     Added: zz-add-region-as-izone, zz-auto-add-region-as-izone-mode, 
zz-auto-remove-empty-izones-flag,
 ;;            zz-remove-empty-izones, zz-empty-zone-p, zz-same-position-p, 
zz-numeric-position.
@@ -1580,7 +1582,7 @@ arg, and the parameters when called from Lisp."
                    (c-end       (if beg (match-beginning 0) (min end 
(point-max))))) ; Truncate.
               (isearchp-add/remove-dim-overlay c-beg c-end 'ADD)
               (cond ((not (string= "" hit-string))
-                     (zz-add-zone c-beg c-end variable not-buf-local-p 
set-var-p)
+                     (zz-add-zone hit-beg hit-end variable not-buf-local-p 
set-var-p)
                      (isearchp-add/remove-dim-overlay hit-beg hit-end nil))
                     (t
                      (isearchp-add/remove-dim-overlay hit-beg hit-end 'ADD))))