From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: nljlistbox2@gmail.com (N. Jackson) Newsgroups: gmane.emacs.bugs Subject: bug#23917: 25.0.95; commit 3a9d6296b35e5317c497674d5725eb52699bd3b8 causing org-capture to error out Date: Thu, 21 Jul 2016 04:59:46 -0300 Message-ID: <87a8hb2zgt.fsf_-___1286.15575745261$1469088239$gmane$org@moondust.awandering> References: <87vb066ejv.fsf@linaro.org> <87mvlhmv0x.fsf_-_@moondust.awandering> <837fcl5zs9.fsf@gnu.org> <87a8hgkwcb.fsf@linaro.org> <8360s42mcb.fsf@gnu.org> <87eg6rgmlg.fsf@gmail.com> <83lh0y24y6.fsf@gnu.org> <83eg6q1hbo.fsf@gnu.org> <83a8hd1vzi.fsf@gnu.org> <834m7l1u8u.fsf@gnu.org> <83shv4z7e8.fsf@gnu.org> <83inw0yw9q.fsf@gnu.org> <87bn1rdd1f.fsf@users.sourceforge.net> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1469088239 26028 80.91.229.3 (21 Jul 2016 08:03:59 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 21 Jul 2016 08:03:59 +0000 (UTC) Cc: 23917@debbugs.gnu.org, Stefan Monnier , rpluim@gmail.com To: npostavs@users.sourceforge.net Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Jul 21 10:03:51 2016 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1bQ8xS-00044I-Ej for geb-bug-gnu-emacs@m.gmane.org; Thu, 21 Jul 2016 10:03:50 +0200 Original-Received: from localhost ([::1]:38857 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bQ8xR-0007p5-FM for geb-bug-gnu-emacs@m.gmane.org; Thu, 21 Jul 2016 04:03:49 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:60039) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bQ8u5-0005dC-By for bug-gnu-emacs@gnu.org; Thu, 21 Jul 2016 04:00:26 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bQ8u2-0003Kr-Go for bug-gnu-emacs@gnu.org; Thu, 21 Jul 2016 04:00:20 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:46924) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bQ8tn-0003E6-41; Thu, 21 Jul 2016 04:00:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1bQ8tm-0005ec-OS; Thu, 21 Jul 2016 04:00:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: nljlistbox2@gmail.com (N. Jackson) Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org, emacs-orgmode@gnu.org Resent-Date: Thu, 21 Jul 2016 08:00:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 23917 X-GNU-PR-Package: emacs,org-mode X-GNU-PR-Keywords: Original-Received: via spool by 23917-submit@debbugs.gnu.org id=B23917.146908799621696 (code B ref 23917); Thu, 21 Jul 2016 08:00:02 +0000 Original-Received: (at 23917) by debbugs.gnu.org; 21 Jul 2016 07:59:56 +0000 Original-Received: from localhost ([127.0.0.1]:59261 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bQ8tg-0005ds-5n for submit@debbugs.gnu.org; Thu, 21 Jul 2016 03:59:56 -0400 Original-Received: from mail-io0-f194.google.com ([209.85.223.194]:35727) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1bQ8te-0005de-8l for 23917@debbugs.gnu.org; Thu, 21 Jul 2016 03:59:54 -0400 Original-Received: by mail-io0-f194.google.com with SMTP id q83so4984149iod.2 for <23917@debbugs.gnu.org>; Thu, 21 Jul 2016 00:59:54 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version:content-transfer-encoding; bh=AEKDHqHK8g6lnDtgzhaq6ZROh8df3UcLVUyLqgp9ias=; b=K14OSqDHV5fhm1dm1NO/C7ad3VDrGpSQuO907twp73z5m+2Baj0lvmXTv+J57NusN1 QN21qjhzMi7d8iV3dwNUtn43804kjrtu/Aiexd5GgPD9Iiszem0KMiyuXCV1hW3/l+5f q2Qt0Ck1hnBye57pJLuPJW+R1X2LUqfPy79pK7VIzkB3mlv/zSAozaRzobO8YE0WI6mh HJPgAIbz2BcfwLUJWL0Pd3uBZgGo2tQFWD3SKq87V21FYbVHXuhQwQjFzOO2yijwoJ/j eA9sbnyvwwBAKBH1PuUb0aNe770MD+RHXxKIQUgokBbEmWue/afnfOCQT2EFP+q+XuEg ggpg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to :message-id:user-agent:mime-version:content-transfer-encoding; bh=AEKDHqHK8g6lnDtgzhaq6ZROh8df3UcLVUyLqgp9ias=; b=jvPCFGFayz+aY78244NRas7j2zUwYzoDU0HXZRFSQGpiaygK50doIh+p/xTLEFaFZn HmLJnnLt0A3v3HY+zW5x57Vywq9JTnKOn2TPm2d8tsyN+uGgEcBYYwbLmQe41ariHEVw ng/p+sl7sNfok3z/h6S/20g1HG47p3ftnkM1E+1Op+kiLhEq0wByV49GhBHg+W6BOIuA 1+mXXCUM0yRXemCJs+k2cPpA5pj190VhimfSRuR1kj3dFFMBpFe56NwZpm+tlD9WjJyP jpixqwnwykYhr0d7Oi+LBSGRJzL2WVstF1iydltBRpz4aOtUtBdC8G/V6FdrXBPGzHsC A08w== X-Gm-Message-State: ALyK8tL0Jqyh0pikh6KrhRQfv412Fn5Bjfz1JtqnX8qLtA+slDWcVZzzTz3oNXzBpQI4Hg== X-Received: by 10.107.4.198 with SMTP id 189mr12833000ioe.143.1469087988764; Thu, 21 Jul 2016 00:59:48 -0700 (PDT) Original-Received: from moondust.nodomain.none (blk-138-64-179.eastlink.ca. [24.138.64.179]) by smtp.gmail.com with ESMTPSA id w192sm3100480iof.24.2016.07.21.00.59.47 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Thu, 21 Jul 2016 00:59:48 -0700 (PDT) In-Reply-To: <87bn1rdd1f.fsf@users.sourceforge.net> (npostavs@users.sourceforge.net's message of "Wed, 20 Jul 2016 20:56:28 -0400") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.95 (gnu/linux) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:121364 Archived-At: At 20:56 -0400 on Wednesday 2016-07-20, npostavs@users.sourceforge.net wrot= e: > > From a8098080dff5f83f7cbcbec2bc263f9db3b45ad9 Mon Sep 17 00:00:00 2001 > From: Noam Postavsky > Date: Wed, 20 Jul 2016 20:15:14 -0400 > Subject: [PATCH v1] Adjust match data before calling after-change-funs > > * src/insdel.c (replace_range): Add new parameter ADJUST_MATCH_DATA, if > true. Update all callers except Freplace_match to pass 0 for the new > parameter. > * src/search.c (update_search_regs): New function, extracted from > Freplace_match. > (Freplace_match): Remove match data adjustment code, pass 1 for > ADJUST_MATCH_DATA to replace_range instead. > --- > src/cmds.c | 2 +- > src/editfns.c | 6 +++--- > src/insdel.c | 10 ++++++++-- > src/lisp.h | 4 +++- > src/search.c | 50 +++++++++++++++++++++++++++++--------------------- > 5 files changed, 44 insertions(+), 28 deletions(-) > > diff --git a/src/cmds.c b/src/cmds.c > index 1e44ddd..4003d8b 100644 > --- a/src/cmds.c > +++ b/src/cmds.c > @@ -447,7 +447,7 @@ internal_self_insert (int c, EMACS_INT n) > string =3D concat2 (string, tem); > } >=20=20 > - replace_range (PT, PT + chars_to_delete, string, 1, 1, 1); > + replace_range (PT, PT + chars_to_delete, string, 1, 1, 1, 0); > Fforward_char (make_number (n)); > } > else if (n > 1) > diff --git a/src/editfns.c b/src/editfns.c > index 412745d..32c8bec 100644 > --- a/src/editfns.c > +++ b/src/editfns.c > @@ -3192,7 +3192,7 @@ DEFUN ("subst-char-in-region", Fsubst_char_in_regio= n, > /* replace_range is less efficient, because it moves the gap, > but it handles combining correctly. */ > replace_range (pos, pos + 1, string, > - 0, 0, 1); > + 0, 0, 1, 0); > pos_byte_next =3D CHAR_TO_BYTE (pos); > if (pos_byte_next > pos_byte) > /* Before combining happened. We should not increment > @@ -3405,7 +3405,7 @@ DEFUN ("translate-region-internal", Ftranslate_regi= on_internal, > /* This is less efficient, because it moves the gap, > but it should handle multibyte characters correctly. */ > string =3D make_multibyte_string ((char *) str, 1, str_len); > - replace_range (pos, pos + 1, string, 1, 0, 1); > + replace_range (pos, pos + 1, string, 1, 0, 1, 0); > len =3D str_len; > } > else > @@ -3446,7 +3446,7 @@ DEFUN ("translate-region-internal", Ftranslate_regi= on_internal, > { > string =3D Fmake_string (make_number (1), val); > } > - replace_range (pos, pos + len, string, 1, 0, 1); > + replace_range (pos, pos + len, string, 1, 0, 1, 0); > pos_byte +=3D SBYTES (string); > pos +=3D SCHARS (string); > cnt +=3D SCHARS (string); > diff --git a/src/insdel.c b/src/insdel.c > index 4ad1074..fc3f19f 100644 > --- a/src/insdel.c > +++ b/src/insdel.c > @@ -1268,7 +1268,9 @@ adjust_after_insert (ptrdiff_t from, ptrdiff_t from= _byte, > /* Replace the text from character positions FROM to TO with NEW, > If PREPARE, call prepare_to_modify_buffer. > If INHERIT, the newly inserted text should inherit text properties > - from the surrounding non-deleted text. */ > + from the surrounding non-deleted text. > + If ADJUST_MATCH_DATA, then adjust the match data before calling > + signal_after_change. */ >=20=20 > /* Note that this does not yet handle markers quite right. > Also it needs to record a single undo-entry that does a replacement > @@ -1279,7 +1281,8 @@ adjust_after_insert (ptrdiff_t from, ptrdiff_t from= _byte, >=20=20 > void > replace_range (ptrdiff_t from, ptrdiff_t to, Lisp_Object new, > - bool prepare, bool inherit, bool markers) > + bool prepare, bool inherit, bool markers, > + bool adjust_match_data) > { > ptrdiff_t inschars =3D SCHARS (new); > ptrdiff_t insbytes =3D SBYTES (new); > @@ -1426,6 +1429,9 @@ replace_range (ptrdiff_t from, ptrdiff_t to, Lisp_O= bject new, > MODIFF++; > CHARS_MODIFF =3D MODIFF; >=20=20 > + if (adjust_match_data) > + update_search_regs (from, to, from + SCHARS (new)); > + > signal_after_change (from, nchars_del, GPT - from); > update_compositions (from, GPT, CHECK_BORDER); > } > diff --git a/src/lisp.h b/src/lisp.h > index 6a98adb..25f811e 100644 > --- a/src/lisp.h > +++ b/src/lisp.h > @@ -3516,7 +3516,7 @@ extern void adjust_after_insert (ptrdiff_t, ptrdiff= _t, ptrdiff_t, > ptrdiff_t, ptrdiff_t); > extern void adjust_markers_for_delete (ptrdiff_t, ptrdiff_t, > ptrdiff_t, ptrdiff_t); > -extern void replace_range (ptrdiff_t, ptrdiff_t, Lisp_Object, bool, bool= , bool); > +extern void replace_range (ptrdiff_t, ptrdiff_t, Lisp_Object, bool, bool= , bool, bool); > extern void replace_range_2 (ptrdiff_t, ptrdiff_t, ptrdiff_t, ptrdiff_t, > const char *, ptrdiff_t, ptrdiff_t, bool); > extern void syms_of_insdel (void); > @@ -3994,6 +3994,8 @@ extern Lisp_Object make_temp_name (Lisp_Object, boo= l); > /* Defined in search.c. */ > extern void shrink_regexp_cache (void); > extern void restore_search_regs (void); > +extern void update_search_regs (ptrdiff_t oldstart, > + ptrdiff_t oldend, ptrdiff_t newend); > extern void record_unwind_save_match_data (void); > struct re_registers; > extern struct re_pattern_buffer *compile_pattern (Lisp_Object, > diff --git a/src/search.c b/src/search.c > index 5c949ad..1b82c94 100644 > --- a/src/search.c > +++ b/src/search.c > @@ -2727,8 +2727,15 @@ DEFUN ("replace-match", Freplace_match, Sreplace_m= atch, 1, 5, 0, >=20=20 > /* Replace the old text with the new in the cleanest possible way. */ > replace_range (search_regs.start[sub], search_regs.end[sub], > - newtext, 1, 0, 1); > + newtext, 1, 0, 1, 1); > newpoint =3D search_regs.start[sub] + SCHARS (newtext); > + /* Update saved data to match adjustment made by replace_range. */ > + { > + ptrdiff_t change =3D newpoint - sub_end; > + if (sub_start >=3D sub_end) > + sub_start +=3D change; > + sub_end +=3D change; > + } >=20=20 > if (case_action =3D=3D all_caps) > Fupcase_region (make_number (search_regs.start[sub]), > @@ -2742,26 +2749,6 @@ DEFUN ("replace-match", Freplace_match, Sreplace_m= atch, 1, 5, 0, > || search_regs.num_regs !=3D num_regs) > error ("Match data clobbered by buffer modification hooks"); >=20=20 > - /* Adjust search data for this change. */ > - { > - ptrdiff_t oldend =3D search_regs.end[sub]; > - ptrdiff_t oldstart =3D search_regs.start[sub]; > - ptrdiff_t change =3D newpoint - search_regs.end[sub]; > - ptrdiff_t i; > - > - for (i =3D 0; i < search_regs.num_regs; i++) > - { > - if (search_regs.start[i] >=3D oldend) > - search_regs.start[i] +=3D change; > - else if (search_regs.start[i] > oldstart) > - search_regs.start[i] =3D oldstart; > - if (search_regs.end[i] >=3D oldend) > - search_regs.end[i] +=3D change; > - else if (search_regs.end[i] > oldstart) > - search_regs.end[i] =3D oldstart; > - } > - } > - > /* Put point back where it was in the text. */ > if (opoint <=3D 0) > TEMP_SET_PT (opoint + ZV); > @@ -3102,6 +3089,27 @@ restore_search_regs (void) > } > } >=20=20 > +/* Called from replace-match via replace_range. */ > +void > +update_search_regs (ptrdiff_t oldstart, ptrdiff_t oldend, ptrdiff_t newe= nd) > +{ > + /* Adjust search data for this change. */ > + ptrdiff_t change =3D newend - oldend; > + ptrdiff_t i; > + > + for (i =3D 0; i < search_regs.num_regs; i++) > + { > + if (search_regs.start[i] >=3D oldend) > + search_regs.start[i] +=3D change; > + else if (search_regs.start[i] > oldstart) > + search_regs.start[i] =3D oldstart; > + if (search_regs.end[i] >=3D oldend) > + search_regs.end[i] +=3D change; > + else if (search_regs.end[i] > oldstart) > + search_regs.end[i] =3D oldstart; > + } > +} > + > static void > unwind_set_match_data (Lisp_Object list) > { FWIW on my system applying this patch only partially resolves the org-capture issue. I'm testing with org-20160718 from GNU Elpa and latest Emacs 25 branch from the git (Repository revision: 4157159a37b43712440da91a45a6d5f71eb96e8a). The patch successfully eliminates the match-data-clobbered error/abort during org-capture with all my capture templates when I have my entire config loaded, but with a minimal recipe from emacs -Q the org-capture match-data-clobbered error still occurs. The minimal recipe I'm testing with is similar to that posted by Robert Pluim on 2016-07-18, specifically src/emacs -Q M-: (custom-set-variables '(package-selected-packages (quote (org-2016071= 8)))) RET M-x package-initialize RET C-x C-f ; find file. C-S-backspace ; kill-whole-line. ~/.notes RET ; Open the file expected by default capture template. M-x org-mode RET ; put the buffer into Org Mode. M-x org-capture RET t ; Run the default "Task" capture template bound to = the t key. With your patch I still get the error:=20 org-capture: Capture template =E2=80=98t=E2=80=99: Match data clobbered b= y buffer modification hooks . It puzzles me that your patch doesn't work for the emacs -Q recipe but does work for my normal configuration, so much so that I suspected that I had made a mistake, but I have reset and reapplied the patch three times and I continue to see the same results. I hope this helps.