From: David Kastrup <dak@gnu.org>
To: Stefan Monnier <monnier@iro.umontreal.ca>
Cc: Juri Linkov <juri@jurta.org>,
Paul Pogonyshev <pogonyshev@gmx.net>,
emacs-devel@gnu.org
Subject: Re: regexp repacement, how to present replacement to user?
Date: Mon, 15 Oct 2007 07:57:31 +0200 [thread overview]
Message-ID: <85y7e4j4xg.fsf@lola.goethe.zz> (raw)
In-Reply-To: <jwvodf1f4k1.fsf-monnier+emacs@gnu.org> (Stefan Monnier's message of "Sun\, 14 Oct 2007 23\:20\:15 -0400")
Stefan Monnier <monnier@iro.umontreal.ca> writes:
>> (let ((from "\\([[:alpha:]]+\\)-\\([[:alpha:]]+\\)")
>> (to "\\1 \\2"))
>> (while (re-search-forward from nil t)
>> (if (y-or-n-p (format "Replace %s with %s "
>> (match-string 0)
>> (replace-regexp-in-string from to (match-string 0))))
>> (replace-match to nil nil))))
>
> This work 99% with the last 1% being due to failure in boundary conditions
> (e.g. if the pattern starts with "\\>").
(while (re-search-forward from nil t)
(if y-or-n-p (format "Replace %s with %s "
(match-string 0)
(save-match-data
(replace-match to nil nil (match-string 0)
(prog1 nil
(set-match-data
(mapcar
(lambda(x)(if (numberp x)
(- x (match-beginning 0))
x)))
(match-data t)))
[...]
--
David Kastrup, Kriemhildstr. 15, 44793 Bochum
next prev parent reply other threads:[~2007-10-15 5:57 UTC|newest]
Thread overview: 30+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-10-13 14:00 regexp repacement, how to present replacement to user? Paul Pogonyshev
2007-10-14 22:50 ` Juri Linkov
2007-10-15 3:20 ` Stefan Monnier
2007-10-15 5:57 ` David Kastrup [this message]
2007-10-15 20:28 ` Paul Pogonyshev
2007-10-16 23:54 ` Juri Linkov
2007-10-17 6:06 ` David Kastrup
2007-10-17 19:25 ` Paul Pogonyshev
2007-10-20 13:53 ` [patch] " Paul Pogonyshev
2007-10-21 16:26 ` Richard Stallman
2007-10-21 19:00 ` Paul Pogonyshev
2007-10-21 20:43 ` Juri Linkov
2007-10-21 21:15 ` Paul Pogonyshev
2007-10-22 1:22 ` Stefan Monnier
2007-10-26 3:48 ` Richard Stallman
2007-10-28 14:41 ` Paul Pogonyshev
2007-10-29 9:22 ` Richard Stallman
2007-10-30 14:16 ` Juri Linkov
2007-10-31 7:46 ` Richard Stallman
2007-10-31 21:39 ` Paul Pogonyshev
2007-11-01 7:32 ` Richard Stallman
2007-11-02 20:58 ` Paul Pogonyshev
2007-11-10 15:01 ` Paul Pogonyshev
2007-11-11 5:21 ` Richard Stallman
2007-11-10 21:54 ` Juri Linkov
2007-10-23 7:12 ` Richard Stallman
2007-10-23 8:16 ` David Kastrup
2007-10-23 17:53 ` Richard Stallman
2007-10-23 19:03 ` Lennart Borgman (gmail)
2007-10-24 8:32 ` Richard Stallman
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=85y7e4j4xg.fsf@lola.goethe.zz \
--to=dak@gnu.org \
--cc=emacs-devel@gnu.org \
--cc=juri@jurta.org \
--cc=monnier@iro.umontreal.ca \
--cc=pogonyshev@gmx.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).